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The easiest, least expensive way to generate 

spectacular multi-color graphics, sharp two-color alphanumerics: 

Your computer, a color tv set and the Percom Electric Crayon™. 



Add the Electric Crayon™ to your 
system and your keyboard be- 
comes a palette, the tv screen 
your medium. 

You dab and stroke using one- 
key commands to create dazzling 
full-color drawings, eye-catching 
charts and diagrams. 

Or you run any of innumerable 
programs. Your own BASIC lan- 
guage programs that generate 
dynamic pyrotechnic images, 
laugh-provoking animations. 

From a combined alphanu- 
merics-semigraphics mode to a 
high resolution 256- by 192- 
element full graphics mode, the 
microprocessor-controlled Electric 
Crayon™ is capable of generating 
10 distinctly different display 
modes. 

Colors are brilliant and true, and 
up to eight are available depend- 
ing on the mode. 

As shipped, the Electric 
Crayon™ interfaces a TRS-80* 
computer. It may be easily 
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adapted for interfacing to any 
computer or to an ordinary parallel 
ASCII keyboard. 

But that's not all 

The Electric Crayon is not just a 
color graphics generator/control- 
ler. 

It is also a complete self- 
contained control computer. With 
built-in provision for 1K-byte of 
on-board program RAM, an 
EPROM chip for extending EGOS™, 
its on-board ROM graphics OS, 
and a dual bidirectional eight-bit 
port — over and above the com- 
puter/keyboard port — for 
peripherals. The applications are 
endless. 

Shipped with EGOS™, 1K-byte of 
display memory and a com- 
prehensive user's manual that in- 
cludes an assembly language list- 
ing of EGOS™ and listings of 
BASIC demo programs, the Elec- 
tric Crayon™ costs only $249.95. 



Options include: 

• LEVEL II BASIC color 
graphics programs on 
minidiskette: $17.95. 

• A 34-conductor ribbon 
cable to interconnect the Elec- 
tric Crayon™ to a TRS-80*: 
$24.95. 

• RAM chips for adding re- 
fresh memory for higher den- 
sity graphics modes: $29.95 
per K-byte. 

• Electric Crayon™ 
Sketchpad, a sketching grid 
of proportioned picture ele- 
ments (pixels) in a tv aspect 
ratio. For 128 x 192 or 256 x 
192 graphics modes. 11 -inch 
by 17-inch, 25-sheet pads: 
$3.95 per pad. 

SYSTEM REQUIREMENTS: the video cir- 
cuitry of the Electric Crayon™ provides di- 
rect drive input to a video monitor or mod- 
ified tv set. An internal up-modulator for rf 
antenna input may be constructed by add- 
ing inexpensive components to the existing 
video circuitry. 
Prices and specifications suoieci to change without notice. 




PERCOM DATA COMPANY. INC. 

211 N KIRBY GARLANO. TEXAS 75042 
(214)272-3421 



,u = trademark ol Percom Data Company. Inc. 

• = trademark ol Tandy Radio Shack Corporation which has no relationship to Percom Data Company. 

Get into computer color graphics the easy, low-cost way with a Per- 
com Electric Crayon™. Available at Percom dealers nationwide. Call 
toll-free, 1-800-527-1592, for the address of your nearest dealer, 
or to order direct if there Is no Percom dealer in your area. 



TRS-80* Computer Compatible . . . 



is the real difference, 
Low price is merely a 



High quality. 

Competitive pricing. 

And a proven track record. 

Three reasons why Percom is the industry's 
number one independent manufacturer of 
mini-disk systems for microcomputers. 

And if you're looking at 
mini-disk drives, extra storage 
capacity is an added 
bonus. 

In fact, you store 
almost one fifth more 
data on Percom 
TFD-lOO"" drives and 
over two-and-one-fourth 
times as much on 
TFD-20CT drives. 

Besides extra testing 
and superior design, you get 
free, with each system, a software 
patch on minidiskette that not only 
upgrades TRSDOS* for operation with 
the newer 40- and 77-track drives, but 
also deglitches version 2.1. 

Available in 1-, 2- and 3-drive 
configurations, Percom drives for the 
TRS-80* computer start as low as $399. 

The gift of speech 
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Called 

Speak-2-Me- 
2 ,m . this clever 
interface 
module makes 
a Texas 
Instruments' 

Speak & Spell''' the voice of your 

computer — announcing, imploring, 

commanding with expressions and 

sentences created from the Speak & 

Spellt vocabulary. 
Speech is controlled either at the 

keyboard or by your own Level II 

BASIC programs. Or by Percom , 

minidiskette word games 

(available soon). 
Speak-2-Me-2 ,m 

is installed in the 

battery 

compartment of 

your Speak & 

Spell' 1 ", and power is 

provided from an 

ordinary calculator power 

pak. Supplied with an 

interconnecting cable, 

operating software and a 

comprehensive users manual, 

Speak-2-Me-2 ,m costs only 

$69.95. 

(Speak & Spell™ not included. 





the Separator : tm End "CRC 
error. Track locked out!" 

This plug-in 
adapter 
virtually 
eliminates data 
read errors, a 
problem that 
plagues 

TRS-80* computer systems. The 
SEPARATOR"", so called, is installed in 
the Expansion Interface without 
modifying the host system. When 
installed, data and clock signals are 
reliably separated during playback, an 
essential function that the separator 
circuitry of the host computer performs 
very poorly. Price is only $29.95. 

Note. Opening the Expansion Interface 
may void the Tandy limited 90-day 
warranty. 



OS-80 tm uses Level II 
BASIC commands 

With OS-80 tm , Level II BASIC 
commands are used for DOS and Disk 
BASIC functions. 

You extend the OS-80 ,m utility set 
indefinitely with your own BASIC 
disk-resident utilities. 

OS-SO 1 " 1 resides in less than 7-Kbytes 
of RAM. 

The program is supplied on 
minidiskette along with a simple file 
manager, BASIC disk utilities and an 
OS-80 ,m "Handbook" that you expand 
and maintain. 

All are helpful programming 
examples. 

Price, with instruction manual, $29.95. 

NEW! OS-80 ,m 
Machine Language 
SAVE /LOAD 
Utility. Only 
$19.95 on 
minidiskette w/instructions. 
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Quality Percom products are available at Percom dealers nationwide. 
Call Percom's toll-free order number, 1-800-527-1592, 
for the address of your nearest dealer or to order direct. 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 




PERCOM DATA COMPANY. INC. 
211 N. KIRBY GARLAND. TEXAS 75042 

(214) 272-3421 

• 258 



lm trademark of Percom Data Company. Inc. 

* trademark of Tandy Radio Shack Corporation which has no relationship to Percom Data Company. 

t trademark of Texas Instruments. Inc. 



META TECHNOLOGIES 

FOR YOUR TRS-80® DISK SYSTEM 



• new* MTC AIDS-III* *new* 

MODEL I . . .$69.95 MODEL II . . $99.95 

Introducing the latest addition to MTC's family of data management systems, AIDS-III. NO 
PROGRAMMING, easy to use. COMPLETE PACKAGE including demonstration application, 
documentation and MAPS-MI (see below). 

• Up to 20 USER-DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER-type fields may be any length (total: up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation. 

• Full feature EDITING when adding or changing records: 

• ENTER FIELD (can't type-in more characters than specified). 

• BACKSPACE (delete last character typed). • RIGHT-JUSTIFY FIELD contents. 

• DELETE FIELD contents. - SKIP FIELD (to next or previous field). 

• RESTORE FIELD contents. • SKIP RECORD (to next or previous record). 

• SORTING of records is MACHINE CODE assisted. 

- 200 RECORDS (40 characters) in about 5 SECONDS. 

- ANY COMBINATION of fields (including numerics) with each field in ascending or 
descending order. 

• SELECTION of records for Loading. Updating, Deleting, Printing and Saving is 
MACHINE CODE assisted. 

• Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 
LOAD or SAVE selected records using MULTIPLE FILES. 

• Example: Select records representing those people who live in the state of Col- 

orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed $9000.00. 

- Example: Select records representing those sales made to XYZ COMPANY that 

exceed S25.00, between the dates 03/15 and 04/10. 

MAPS III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features: 

• Full AIDS-MI SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE. 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

BELOW ARE TESTIMONIALS from owners of AIDS systems. These are absolutely authentic 
statements and are typical of the comments we receive. 

"This program will do more for my business than all the other programs I 
have, combined." 

David Wareham. Vice President (EDP), National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-III is easily 

the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." . . _.,. . . n . . , __ ... , _ 

Jack Bilmski, President, 80 Microcomputer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm, Director, Front Door Residential Treatment Program 

• COMPATIBLE with AIDS-II data files and AIDS subsystems. 

• Move up from AIDS-II and EXPAND to 20 field capability WITHOUT REENTERING 
DATA. 

• AIDS-M (Model I or II) owners may UPGRADE FOR ONLY $25.00. 

WARNING 1 This program is written in BASIC and can be listed in the normal manner. 
Modification of program code is NOT RECOMMENDED due to its extreme complexity 
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MTC AIDS - II 

Ailing information? Doctor it up with AIDS-II. 
This Automated Information Directory System 
offers twelve user-defined fields with full feature 
editing when adding or changing records. Selec- 
tive Loading, Updating, Deleting, Printing and 
Saving records may be accomplished using any 
of six relational comparisons. Also features 
machine code assisted sorting (200 records in 
about 5 seconds) by any combination of fields, 
and much more! Unique "windowing" capability 
allows directories of unlimited size. Window size 
is typically 200 or more records in 32K. Can be 
used for mailing lists, client reference reporting, 
appointment "calendars", inventory records and 
other information systems. Easy to use. Defining 
a system takes about a minute. MAPS-I (MTC 
AIDS PRINT SUBSYSTEM) is included at no 
charge. MAPS features full AIDS-II selection 
capabilities, prints user-specified fields down the 
page, produces user-specified columnar report 
formats with automatically generated column 
headings and paging, and allows user-defined 
print formats for custom forms, labels, etc. Add 
subsystems for additional capabilities. May be 
upgraded to AIDS-III when required. 

MTC AIDS-II $ 49.95 

For Model II $ 79.95 
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AIDS 

CALCULATION SUBSYSTEM (CALCS) 

MTC's most popular AIDS subsystem. Use for 
report generation involving basic manipulation 
of numeric data. Prints user-specified fields in 
titled, columnar report format, automatically 
generating column headings, paging and (op- 
tionally) indentation. Features full AIDS-III selec- 
tion capabilities and can create a single report 
from multiple files. Provides the additional 
capabilities of user-specified balance forward 
computations, columnar subtotals, columnar 
totals and user-defined computations (allows 
multiplication, division, addition, and subtrac- 
tion of field values and constants). Features may 
be used in combination. For example, the 
calculation of a user-defined quantity/cost col- 
umn may simultaneously be listed by itself, used 
as part of a balance forward computation and as 
part of either (or both) a columnar subtotal or 
columnar total. Use for accounting, inventory, 
financial and other numeric-based information 
systems. 

MTC CALCS $ 24.95 

For Model II $ 39.95 

MORE 

PRODUCTS ON PAGES 6 & 7 



All products 

guaranteed for 

replacement only. 

Prices. Specifications & 

Offerings subject to 
change without notice. 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 




QUANTITY 
DISCOUNT 
INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• C.O.D. 



TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289-7500 (COLLECT) 

IYIeta Technluqgjes Clwl™™ 



Add $2.50 for 
shipping & 
handling 
$2.00 EXTRA 
for C.O.D. 
Ohio residents 
add 5'/2% sales tax. 
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26111 Brush Avenue, Euclid, Ohio 44132 
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and Radio Shack arc registered 
Irademarks ol Tandy Corn 
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META TECHNOLOGIES 



Fellow TRS-80 User: 

I'd like to thank you for your continued interest in our products and tell you something about 

MTC's approach to marketing. MTC's marketing efforts are directed at several areas: 

• Market Expansion. This is accomplished by increasing market coverage (more types of 
product) and by increasing market share (more people buying a given product). Unlike 
many of our smaller competitors, we tend to concentrate on fewer product areas, but in 
greater depth. 

• Product/Market Investigation. When enough of our customers tell us they are interest- 
ed in a particular type of product, we either create the product, or acquire it, to fill the 
need. Sometimes a product is created or acquired that fills a previously unrecognized 
need. It is Marketing's job to inform our customers of its existence and potential 
benefit. 

• Corporate/Product Promotion. As in any business it is important that you, the 
customer, think of MTC, rather than our competitors, when you need diskettes, educa- 
tional or other quality products. Our distinctive name and logo are part of a unique 
corporate identity. We use expensive ad space for "letters" to our fellow TRS-80 
users because we think it is important that you know something about the people you 
buy from. We promote our products using a variety of means, including product 
reviews and announcements, enclosing product information sheets with all orders 
shipped, and direct mailings, along with our normal advertising. This month we are 
introducing our regularly featured Product Preview section as a means of informing 
you of new developments. We will also be publishing a newsletter, which will be sent 
to all our customers, featuring new product announcements, programming hints and 
tricks, product reviews, letters to the Editor, a customer response questionaire and 
more. 

• Distribution Extension. We are interested in increasing market exposure through co- 
ordination, not competition, by fostering a network of reputable dealers. For example, 
LTM Inc. offers the full line of MTC products and takes orders via toll-free phone calls 
and mail. They, however, advertise in other publications. In this way, each 
company maximizes its market penetration. 

Next, let's look at who buys MTC products. Our customers typically fall into one of three 
groups. Most prominent is the businessman/hobbyist. He is relatively new to small com- 
puters, has some programming knowledge and is using a 48K, Model I with two disk drives. 
He wants to learn more about the machine and how to program it, but will buy a "solution" to 
a problem if it exists and is inexpensive. Second are Fortune 500 companies and governmen- 
tal and educational organizations, such as school systems, major universities, and even the 
United States Army! The third group is the advanced hobbyist/computer professional. These 
customers buy our programming tools to save time. While not generally interested in educa- 
tional products, they do purchase our AIDS systems in considerable quantities. 

We specialize in products that use high technology and that solve problems for a broad class 
of users. They provide continual benefit and lasting value. That's why we don't offer game 
programs or specialty software (such as a $200 concrete foundation cost estimation package 
for building contractors). 

While the majority of our products are created by our technical staff, we are always in- 
terested in seeing quality work by others. We are especially interested in outstanding com- 
munications packages, educational products like REMASSEM and REMDISK, system-type 
software for Model II (such as BASIC extensions and machine code routines), hardware 
diagnostics packages and related programming tools. 

We at MTC look forward to providing you with the quality products and service you deserve 
and should expect. If we offered you anything less, we wouldn't be Meta Technologies Cor- 
poration. 

Sincerely, 

v Wendy K. Sayer £/ 
Marketing 



mTc-SHIRTS 

HIGH-QUALITY, POLY-COTTON 

BLEND T-SHIRTS. White with Navy Blue 
neck and sleeve "ringers". MTC logo on sleeve. 
Top quality transfers of your choice on front. 

Specify size (S.,M.,L,XL) and Transfer: 

• META TECHNOLOGIES MAKES EVERY BYTE 
COUNT! 

• DONT TOUCH MY BITS! 

01 IIIIIO 

• RAM it! 

• MICRO LOVERS TAKE SMALLER BYTES! 

mTc-SHIRTS $5.95 



T 



icereiy, 



MAILSORT(Model I) $19.95 

MAILSORT replaces existing sort in Radio Shack 
Disk Mailing List" system. Sort by any combina- 
tion of fields, such as NAME, within CITY, within 
STATE. Hi-speed in-memory routine sorts 300 
records in approximately 60 seconds. Minimum 
32K recommended. For use with old or new ver- 
sions. 

PEEK&POKE $14.95 

Frustrated because PEEK and POKE have been 
removed from Model II BASIC?. Satisfy your 
curiosity with PEEK&POKE from MTC. Included 
are 8-bit and 16-bit (LSB. MSB) self-relocating 
machine language routines, instructions, anddemo 
program. 




Apparat, Inc. introduces 

NEWDOS/80 

Apparat's long-awaited successor to NEWDOS+- 
is here! This is not an enhanced version of 
NEWDOS, but a completely new product. 

H Simplified DOS commands can be instantly ex- 
ecuted from BASIC, even within a program, 
without disturbing the resident code. System op- 
tions, such as password protection, number and 
type of disk drives, BREAK key enable/disable 
and lowercase modification recognition, can be 
quickly and easily changed. Five new random- 
access file types allow record lengths of up to 
4096 bytes, and no FIELDing! A powerful CHAIN 
facility allows keyboard INPUTs to be read from a 
disk file. An improved RENUMBER facility per- 
mits groups of statements to be relocated within 
i program code. Diskettes may even be 
designated as RUN-ONLY! Features all 
NEWDOS+ utilities (SUPERZAP 3.0. etc.) and 
much more! One MTC technical staff member 
said having NEWDOS/80 is "better than sex" 
(you'll have to judge for yourself!). Includes 
180-page instruction manual and MTC QUE 
card. 

NEWDOS/80 $ 149.95 

j CALL REGARDING OUR NEWDOS+ UPGRADE 

I PRICING. 

• PRODUCT PREVIEW • 

General Business System for Model II 

j This product will be a full-feature, professional- 
grade business system, with fully integrated 
General Ledger, Accounts Receivable and Ac- 
counts Payable. A Payroll subsystem will be ad- 
ded later. Some of the major features and 
facilities are: 

• General Ledger can handle a chart of accounts 
having more than 1000 accounts and sub- 
accounts. 

• User defines and controls the account number 
structure to suit his own needs. 

• Transactions can be entered and stored up to 
the limit of available disk storage (typically 
more than 5000 on a multi-drive system). 

• Accounts Payable and Accounts Receivable 
are fully integrated with the General Ledger. 

• Extremely high-speed, machine code assisted 
sorting is used for reports, etc. 

• Financial Reports are user-defined and for- 
matted. 

• Formats of customer statements (Accounts 
Receivable) and checks (Accounts Payable) 

are user-definable. 
We are targeting for release of this product in 
early fall. 1980. 



MORE 

PRODUCTS ON PAGE 4 

I^HBHBHHHI^^^HHHHHHi 

Transfer PROGRAMS and DATA 
from. MODEL I to MODEL II 

TRAN-SEND 



$49 95 



by MTC 



Requires MODEL II and MODEL I with disk & 
RS-232. Simple to use, not a kit - nothing else to 
buy. Complete with custom cable, 5 V*" & 8" flop- 
pies, instructions. May be used over phone lines. 
Custom Cable only $19.95 

Suitable lot use with Radio Shack' transfer piogram(ACT 0131) 
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MAKES EVERY BYTE COUNT 

IN YOUR TRS-80® MODEL I OR MODEL II DISK SYSTEM 
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programming SAVE $ A 4 n 9 y 9 3 5 DISKETTES 

F <> r Model II * 74 -95 Verbatim 5'/<-inch 

95 

Box of 10 



TDAM $19.95 

For Model II $29.95 

Includes MTC QUE Card! 

Having trouble with RANDOM FILES? With MTC's 
Table-Driven Access Method (TDAM) you'll never 
fret over FIELDing again. No knowledge of 
random access files is required. Insert the TDAM 
"interpreter" into any BASIC program and type in 
a few DATA statements describing the information 
in your files. TDAM does the rest! Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes!). Features 
automatic file buffer allocation/deallocation, 
memory buffering, sub-record blocking/de- 
blocking, and handles up to 255 fields per record. 
Super fast and super simple! Complete with 
TDAM interpreter, instructions and demo pro- 
gram. Requires programming experience. 



SIFTER $19.95 

For Model II $29.95 



Twelve in-memory high-speed sorts for use in any 
BASIC program: stable, non-stable, with/without 
tags, for numeric or string data. Random File 
Sort included. Some sorts written in machine 
code. Includes sort subroutines, demo programs 
and instructions. Relocate as needed with 
REBUILD. Requires programming experience. 

SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count! Make programs 
smaller and faster! Combines lines & removes un- 
necessary code including remarks, without alter- 
ing program operation. Typically reduces pro- 
gram size 25% to 40%. 
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AUGUST 
SPECIAL* 






Quantity 10 Boxes $23.50 

Hard-sectored (10-hole), Box of 10 $26.95 

8-inch FLOPPIES 

Single-density. Box of 10 $29.95 

Double-density, Box of 10 $39.95 

PLASTIC LIBRARY CASES 
5'/4-inch or 8-inch diskette case $3.00 

FACTORY FRESH, ABSOLUTELY FIRST QUALITY 
Minimum order 1 box, NO order limit! 
•Price in effect Aug. 1 through Aug. 31. 1980 



DIVERGE $19.95 

For Model II $29.95 

Compares two BASIC program files, showing the 
differences between them. Identifies & lists lines 
which have been inserted, deleted, & replaced. 
Use for version control. 






REBUILD $19.95 

For Model II $29.95 

Reorganize programs for adding program code, 
faster execution, readability. Much more than sim- 
ple renumbering. Rearrange groups of statements 
within a program - automatically updates 
references to line numbers. Use with 
SUPERSEDE and MINGLE for maximum effect. 



Let Your TRS-80® Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMS0FT does it again! REMDISK-1 is a concise, 
capsulated supplement to REMASSEM-1. Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I/O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



i 



SUPERSEDE $19.95 

For Model II $29.95 

A "must have" for the professional programmer 
or the serious amateur. Probably one of the 
greatest time-savers available. Write programs in 
shorthand - change variable names - generate 
program documentation - use with REBUILD and 
MINGLE to build new programs from old ones. 

VfllNGLE-ll $19.95 

For Model II $29.95 

Merge up to 14 files (Program or Data) into a 
single file. Data files may be merged in ascending 
or descending sequence with the ordering based 
on a user-specified comparison field. A very han- 
dy utility for consolidating data files. 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 

*PV/«7 byApparat 

' 40 TRACK VERSION $ 79.95 

includes REF. RENUM, SUPERZAP. EDITOR/ 
ASSEM., DISASSEM., DIRCHECK, and more! This 
is the original NEWDOS with all of Apparafs utility 
programs. Includes exclusive MTC QUE (Quick User 
Education) card. 

MTC QUE Card only SI .50 



Let your TRS-80* Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package. "INTRODUCTION 
TO TRS-80' ASSEMBLY PROGRAMMING" in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80' 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II, Model I. 

REMASSEM-1 $69.95 



The perfect supplement for your 
NEWDOS + .from IJG, Inc. 

"TRS-80 DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PLAIN ENGLISH packed with 
HOW TO information with details, examples and in- 
depth explanations. Recover lost files and direc- 
tories, remove file protection, make BASIC pro- 
grams unlistable. How to use SUPERZAP. recover 
from DOS errors and MORE! 

TRS-80 DISK $19.95 



> 



All products 

guaranteed for 

replacement only. 

Prices, Specifications & 

Offerings subject to 
change without notice. 
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MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



T 



1 



QUANTITY 

DISCOUNT 

INQUIRIES 

INVITED 



T 



1 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• C.O.D. 



Add S2.50 for 
shipping & 
handling 
$2.00 EXTRA 
for C.O.D. 
Ohio residents 
add 5'/2% sales tax. 




TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289-7500 (COLLECT) 

fYlETfl TECHNQLLIGJES CLWQRffi™ 

26111 Brush Avenue, Euclid, Ohio 44132 
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TRS-80 and Radio Shack are legisteted 

trademarks ol land) Corp 



• Reader Service Index— see page 194 
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$0 REMARKS 



by Wayne Green 



"...Radio Shack 

would do better 

if they were honest 

with their customers and 

didn't try to deceive them. M 



Painful Fact of Life 



You probably have people asking you, as a 
computer "expert," what system you rec- 
ommend. It's a very difficult question to answer. 
Owners of TRS-80 systems are all too familiar 
with the many deficiencies of the system. Some 
get so excited over the lack of color that they 
buy Apple or Compucolor systems. Others 
want a system with more business support and 
go for a Cromemco or an MSI. The arguments 
are endless since all of the systems have both 
benefits and drawbacks. 

The main benefit of the TRS-80 is one which 
Radio Shack can't even mention, yet it's the 
single benefit which makes the system the main 
one which can be honestly recommended for a 
newcomer to computing. This is the software 
support. 

By virtue of the large number of Radio Shack 
stores— there are more Radio Shacks than there 
are McDonalds, believe it or not— plus their 
marketing and promotion savvy, there are 
more TRS-80 systems out there than everything 
else combined. Programmers, being aware of 
this situation, have tended to first write pro- 
grams for sale to TRS-80 owners. Thus we find 
the situation where there are more programs 
for the 80 than for all other systems combined. 
We find not only quantity, but also better qual- 
ity. The pressures of the marketplace are such 
that poor programs tend to fall by the wayside 
and the better ones survive. 

Radio Shack can't advertise this because they 
are trying as hard as they can to keep this fact a 
secret from their customers. They don't want 
the TRS-80 buyers to know that there is any- 
thing more than their handful of mediocre pro- 
grams available. These are the programs put 
out by Radio Shack and sold from their stores. 
Some might call this greed, others might term it 
practical business sense. That depends on 
whether you are working for Radio Shack or 
independently. 

It is my belief that Radio Shack would do 
better if they were honest with their customers 
and didn't try to deceive them. But then, I'm 
certainly not above suspicion as far as having a 
personal interest is concerned. 

It is a full time job just to try to keep up with 
the programs being released for the 80, much 
less try to evaluate them as to their usefulness 
and value. There are thousands of programs 
. . . thousands. From my experience at least 25 
percent are worth buying and using. The rest 
extend from absolute rip-offs to stuff of mini- 
mal value, despite some very high prices. Buyer 
beware! 

The Radio Shack owned stores are not al- 



lowed to sell any products not made by Radio 
Shack . . . nor even let the customers know that 
such exist. No books or magazines which hint 
at outside sources are permitted to be sold in the 
stores. 

Where this practice may all come home to 
roost will be when some other company spends 
the money to convert many TRS-80 programs 
to their own system and thus ends up with far 
more programs apparently available than Ra- 
dio Shack is showing in their stores. 

Gathering Strength 

Oddly enough, though the Japanese have 



"They have built up 

a bureaucracy 

akin to that 

in Washington. . . " 



been slow to get into this field, they are now 
gathering their strength, apparently backed by 
their government. It has been the Japanese who 
are the most understanding of the importance 
of software and who have been most serious in 
dealing with us about their support. They seem 
willing to spend whatever it takes to get pro- 
grams to support their systems. Thus, while 
Radio Shack is trying to discourage software 
support, Japan is pushing for it. What will this 
mean in one or two years as far as equipment 
sales is concerned? 

For the time being, considering the amount 
of software support for the TRS-80, it is diffi- 
cult to recommend any other system for new- 
comers. Add in the splendid training courses 
available with the system, the dealer network 
and the growing service. In the long run the ef- 
forts by Radio Shack to prevent others from 
making money from the 80 may do them in, 
but, for now, they have things their own way. 

The Tandy people should be a little more 
humble, for the TRS-80 went a long way to- 
ward saving the whole company. Lafayette 
started to get into computers and then dropped 
the ball. They went into bankruptcy. Radio 
Shack had many of the same problems: a disas- 
terous drop in CB sales, a slowing of hi-fi sales, 
and a general drop is consumer electronics 
sales. Without the surge of business from the 
80, the Tandy balance sheet could have turned 
red and their stock plummeted. 

Radio Shack has a major problem that prob- 
ably can't be solved. If you look at their finan- 



cial reports you see that almost 50 percent of 
their expenses go for their management staff. 
They have built up a bureaucracy akin to that in 
Washington and such an overhead is very hard 
to ever cut down. I've talked with several 
friends at Ft. Worth and they assure me that the 
firm would run much better with less than half 
as many people. The Japanese firms are lean 
and mean, so they may be able to run rings 
around Radio Shack. The Japanese production 
lines are more automated, and their advertising 
and promotion is superb. 

The next couple of years will be important. 
Either Radio Shack and the other American 
manufacturers will blunder into giving the mar- 
ket to Japan ... or they will get their act togeth- 
er and win out. So far the blundering seems to 
be prevalent. 

We're hearing rumblings from the Tandy 
folk about a couple of new systems to be an- 
nounced in the near future. One is supposed to 
be an ultra low cost system (S295?) which will 
probably be much like a Level I, but with a 
modulator for using a TV set as a monitor. 

Recent TV ads for black and white TV sets 
for around S60 do tend to make this approach 
attractive. I don't think anyone can do more 
than dump inventory at a loss at those prices, so 
the ads may be more a reaction to the present 
recession and an attempt to raise cash from a 
dead inventory by a large firm than any hint of 
a general lowering of TV prices. 

Digression 

To digress (as usual), television sets do not 
make good monitors for computers. The prob- 
lem has to do with the "el cheapo" circuits they 
build into bargain sets, plus the limitations of 
bandwidth between television channels. The 
wider the bandwidth of the i-f (intermediate 
frequency) of a set, the sharper will be the pic- 
ture on the screen. This is the main difference 
between a computer monitor and a TV set — 
sharpness. This is why your screen is relatively 
fuzzy on your TRS-80. The monitor shipped 
with the system was originally designed for a 
TV set and modified. 

The limited bandwidth of TV sets is one of 
the major drawbacks to the color systems such 
as the Apple. You'll be bumping into this, one 
of these days, when Tandy announces their 
TRS-80 Color. 

There have been conflicting reports about 
Tandy changing over to a new microprocessor 
chip in the new system. The folks at Tandy 
deny this, but others point to very large orders 
for the Motorola 6809 chip as proof that the 
new TRS will be based on that, rather than the 
Z-80. My own reading of the entrails suggests 
that the Z-80 will stay and that the 6809 may be 
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SPECIAL DELIVERY with EXTRACT 

A 100% Machine Language Word Processor a 



TRS-80® + Electric Pencil® or Radio Shack's Scripsit 



We can't stop improving and expanding the capabilities of your 
TRS-80®! By using SPECIAL DELIVERY with EXTRACT and either 
Electric Pencil® or Radio Shack's Scripsit® you can get even more 
out of your computer. From just one package, you will get all this: 



MAILFORM: Create MAILFILE: The 
ONLY complete name and ad- 
dress list entry/editor program 
written in machine language. 
Instant search on any field, 
complete cursor control, just 
fill in the form! 

MAILRITE: Print letters written with 
either the Electric Pencil® or 
Radio Shack's Scripsit® insert- 
ing information from a MAIL- 
FILE into the letter for person- 
alizing and addressing. You 
can send a personalized letter 
to one person then a different 
personalized letter to a second 
person with true typist quality 
from your fine printer. Fea- 
tures: Indents, Underscore, 
Bold Type, End of Page Stop, 

MOD II version 



Address Envelopes, unlimited 
insertion from address list and 
More! 

EXTRACT: Take out information 
from MAILFORM, the ma- 
chine language mailing list. 
Find the names you need by 
Zip Code, Street Address, 
Gender, Age or any other way! 

SORT: In-Memory sort on an entire 
address list using any field as 
the key. This program can sort 
an entire list in a matter of 
seconds! 

LABEL: Prints labels from MAILFILE. 

CONVERT: Make MAILFILE from 
RS mail list. 

available soon 



SPECIAL DELIVERY will run on your TRS-80* with TRSDOS* NEWDOS* or any 
other TRS*-like DOS. 

If you bought SPECIAL DELIVERY from us, send us the disk and we will update 
it to include EXTRACT for $25. If you haven't already taken advantage of our 
SPECIAL DELIVERY program, we'll send you the complete program including 
EXTRACT for just $125 (Disk). We can also send you the Electric Pencil "for $150. 
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Software Etc . . . 
1839 Chamberlain Drive 
Carrollton, Texas 75007. 
Phone Orders: (214) 492-0515 



Demand a Demonstration from your local Dealer or write for a brochure of our complete line of fine software. 



used to power an intelligent terminal such as a 
printer. 



Too Simple? 



While this magazine is aimed at the TRS-80 
users, it is not solely for the beginner. Some ar- 
ticles may put off readers by being far too fun- 
damental. On the other hand, some of the ma- 
terial is definitely for the advanced user and 
may, at first, be pretty puzzling. Have patience 
... it will sort itself out if you hang in there. 

Articles Needed 

We need more articles to help rank beginners 
understand computers. Perhaps, before you 
become so much of an expert that you have for- 
gotten how to write in English, you can take the 
time to help those who are just starting down 
the road? 

For instance, beginners would like to know 
about the various types of disk systems. I don't 
recall any definitive articles on them yet. A 



good article would explain about formatted 
and unformatted disks, single and double den- 
sity, single and double side, different sizes, 
Winchester technology, what a disk controller 
does. There should be good photo illustrations 
of the various disk systems and disks. 

The Factory 



While in Fort Worth talking with the Tandy 
people about Instant Software support, Sherry 
and I paid a visit to their TRS-80 plant. They 
have taken over a huge J.C. Penny store and 
converted it into a facility where they manufac- 
ture both the Model I and Model II systems. It 
is impressive. 

Except for the monitor and the Model II 
power supply, everything seems to be made 
right there in Fort Worth. They stuff the circuit 
boards, run them through a wave soldering unit 
which solders everything at one time, clip off 
the wire ends, run a test and put them together. 
They test again, put them in their cabinets and 



run even more tests. A good deal of their time 
and effort is spent on trying to make sure that 
the units will work when received. Despite all 
this, the first Model II received by us for test in 
New Hampshire didn't work. 

Computers are fairly sturdy, but I sure hope 
they are able to come up with something better 
than a disk system for storage, for those are ter- 
ribly delicate. Not much can happen to a com- 
puter board in shipment, but the disk units can 
get bent out of shape, as can the tube in the 
monitor. Say, how about a little gadget packed 
with each computer system carton which would 
indicate if the box had been subjected to more 
than a given number of G's of acceleration. 
These aren't too difficult to make and they 
could be sent back by the dealer after the unit 
had been delivered. This would put the onus for 
the damage to the unit on the carrier and thus 
tend to force them to emphasize to their work- 
ers that computers must not be kicked from a 
truck to the ground. 

They have a completely automated testing 
Continue to page 32 




The system starts out with the CPU board be- The power supply boards from Asia are un- 
ing stuffed with chips and parts. Two boards at packed and inspected, 
a time move along the production line. 



The disk units are unpacked and inspected, 
then installed in the system. 




Once stuffed, the boards are inspected to make 
sure all the parts are there. . . and in the right 
place. 



The system now starts getting put together. The 
monitor units, at the left, have been unpacked 
and inspected. They are covered to prevent 
damage. 



Next the system is inspected and then given a 
24-hour burn-in under high temperature condi- 
tions. This is designed to aggravate parts fail- 
ures over this critical test period. 
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clearly readable printouts 
clearly remarkable price 

The $ 625* Heathkit H14 Printer. You'll pay hundreds 
more for a printer with its features. 



Where else can you buy a microprocessor- 
based printer with the H14's features and 
copy quality for under a thousand dollars? 

The Heathkit H14 prints up to 165 charac- 
ters per second, one full line every two 
seconds. 

5x7 dot matrix and finest quality impact 
printhead give you clear, easy-to-read 
images. 

All functions are microprocessor-con- 
trolled for reliable performance and more 
efficient use of your computer. 



You get: 

• Standard 96-character ASCII set-UPPER 
and lower case. 

• Operator or software selectable line 
width: 132, 96 and 80 characters per 
line. 

• Compatibility with any computer having 
RS-232C or 20 MA current loop serial 
interface with handshaking. 

• Sprocket paper feed, with adjustable 
spacing, keeps paper moving smoothly. 

• "Paper out" and "paper jammed" sig- 
nals prevent loss of data. 



// 



• Selectable baud rates from 110 to 4800. 

• Convenience of standard fan-fold paper, 
2.5 to 9.5 inches wide. 

• Chrome wire rack keeps paper neat. 

Price includes connecting cables, paper 
rack and ribbon. Just add paper and you're 
ready to run. And service on the H14 is 
close by at any of 55 Heathkit Electronic 
Centers throughout the U.S. 
Complete details on the remarkable H14 
are in the newest, free Heathkit Catalog. 
Send for yours today or pick one up at your 
Heathkit Electronic Center. 



I.J II II 
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FRFF rATAIfir See * ne complete line of 
I-IVCC LHIrtLUU Heathkit Computer Products, 

including printers, video terminals, floppy disk sys- 
tems and software, in the new, 104-page Heathkit Cat- 
alog. It describes nearly 400 exciting kits for your 




home, work or pleasure — all at build-it-yourself sav- 
ings. Send for yours today or pick one up at your 
Heathkit Electronic Centert where Heathkit Products 
are displayed, sold and serviced. See your white pages 
for center nearest you. 



*ln kit form, F.O.B. Benton Harbor, Ml. Also available completely assembled at S895 F.O.B. Benton Harbor, Ml. Prices are subject to change without notice. 
tUnits of Veritechnology Electronics Corporation 



Heathkit 
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Heath Company, Dept. 035-684, Benton Harbor, Ml 49022 



CP-181 



SO INPUT 



'*. . . while experimenting 

with my Disk BASIC, I learned 

an interesting fact. It has to 

do with the execution times of 

FOR-N EXT loops." 



Simple Interface 



I am writing this letter in response to Peter 
Noeths' June article "Teletype Interface." He 
offers a circuit to run a model 33 teletype as a 
printer for the TRS-80. As Level II 16K 
owners, Mr. Cory Gates and I have a much 
faster and cheaper way of interfacing the model 
33. 

When Mr. Gates and I bought our ASR 33, 
we considered using a UART to transform 
from parallel to serial. Soon after buying the 
ASR 33, we met with a TRS-80 owner who has 
interfaced his ASR 33. Mr. Leon Hogan runs 
his 33 with a single open collector and RSM-2. 
Using RSM-2's TRS232 software, he runs at 
the 110 baud needed for the ASR 33. RSM-2 
will output to the cassette latch in serial at any 
of six bauds. 

Building the interface is a simple 30 minute 
job. First of all, open your keyboard. Solder a 
wire to the GND on J 1 (power jack). This will 
supply the ground needed for the interface. 
Next solder a wire to the 74LS75 at pin 3. This 
chip is the cassette latch. Pin 3 is Q Prime or the 
data inverted and serves as your single line. 
Now tic this wire to the base of the transistor. 
This transistor serves two needs. It acts as an 
open collector to run the power supply and in- 
verts the data to the normal state. After this, tie 
the emiter to the GND on the keyboard and the 
GND on the teletype. Last, but not least, the 
power. Tie the negative terminal to the collec- 
tor and the positive terminal to the single on the 
teletype. To test the hardware just run this: 



10 FOR I = I TO 1000:OUT 255,2:NEXT 
20 FOR l o l TO IOOO:OUT 255,0:NEXT:GOTO 10 



The printer should lock and then unlock. 

Now, all that is needed is the software. If you 
have RSM-2, run it and set the 'Y 1 1'. This 
will set the baud to 1 10 and line-feed after car- 
riage return. To print with LPRINT and 
LLIST use this program: 



7PB0: 


21 B9 7F 


LD 


HL.7FB9 


7FB3: 


22 26 40 


LD 


(4026).HL 


7FB6: 


C3 19 1A 


JP 


1AI9 


7FB9: 


21 FF7F 


u) 


HL.7FFF 


7FBC: 


34 


INC 


(HL) 


7FBD: 


AF 


XOR 


A 


7FBE: 


CD E9 7F 


CALL 


7FE9 


7FC1: 


59 


LD 


E.C 


7FC2: 


CD E4 7F 


CALL 


7FE4 


7FC5: 


06 08 


LD 


B.08 



7FC7 


79 


LD 


A,C 


7FC8 


IF 


RRA 




7FC9 


4F 


LD 


C.A 


7FCA 


D4E4 7F 


CALL 


NC.7FE4 


7FCD 


DC E8 7F 


CALL 


C.7FE8 


7FD0 


10 F5 


DJNZ 


7FC7 


7FD2 


AF 


XOR 


A 


7FD3 


D3FF 


OUT 


FF 


7FD5 


7B 


1.1) 


A.E 


7FD6 


FE0D 


CP 


0D 


7FD8 


20 IA 


JR 


NZ.7FF4 


7FDA 


AF 


XOR 


A 


7FDE 


32FF7F 


LD 


(7FFF),A 


7FDE 


0E0A 


LD 


C.0A 


7FE0 


1E00 


LD 


E.00 


7FE2 


18 D5 


JR 


7FB9 


7FE4 


3E01 


LD 


A.01 


7FE6 


18 01 


JR 


7FE9 


7FE8- 


AF 


XOR 


A 


7FE9 


D3FF 


OUT 


FF 


7FEB 


21 6A 02 


LD 


HL.026A 


7FEE 


2B 


DEC 


HL 


7FEF 


7C 


LD 


A.H 


7FF0: 


B5 


OR 


1. 


7FF1: 


20 FB 


JR 


NZ.7FEE 


7FF3: 


C9 


RET 




7FF4: 


3A FF 7F 


1.1) 


A,(7FFF) 


7FF7 


FE46 


CP 


46 


7FF9 


CO 


RET 


NZ 


7FFA 


0E0D 


1.1) 


COD 


7FFC 


18 BB 


JR 


7FB9 


7FFE 
COM 


00 
MAND? 


NOP 





Enter this program with TBUG and punch 
with 4 P 7FB0 7FFF 7FB0 LISTER'. To use it, 
enter 32687 at memory size and load it with 
'SYSTEM' and then 'L'. Execute with '/'. 
Now the printer commands will work. This 
program is written so you can relocate it using 
EDTASM with little work. 

I hope that I have saved someone time and 
money. 

Ray Nuber 
Otathe, KS 



Relative Time 



Recently, while experimenting with my Disk 
BASIC, I learned an interesting fact. It has to 
do with the execution times of FOR-NEXT 
loops. Using the real-time clock I came up with 
the following relative times: 



FORI = IT032766:NEXI I (real) - 107 seconds 
FORI = 1T032766:NEXT (real) - 77 seconds 
FORI = IT032766:NEXTI (integer) • 76 seconds 
FORI = IT032766:NEXT (integer) - 46 seconds 
FORI = I % 1 032766%:NUX I (integer) • 45 seconds 



These times were for my Model I with an Ex- 
pansion Interface. This seems to indicate that 
using just NEXT for each FOR-NEXT loop 



can save a considerable amount of time. 
However, see the Level II manual page 4/10 
(2nd ed - 4/ 1 2) for a warning on ihis usage as it 
relates to GOTOs. 

I also noticed that using variables in an in- 
icger FOR-NEXT loop makes little or no dif- 
ference for smaller loops. Try it on a loop less 
than 10000 using variables 10 define ihe range 
of the loop. This is because they are evaluated 
only once. See the manual for more details. 

It is interesting that the manual makes no 
mention of this difference in speed in their sec- 
tion on speeding up execution. The jump from 
integer NEXT variable to integer NEXT saves 
almost as much lime as the jump from reals to 
integers! 

Richard Zeller 
Mill Valley, CA 

EDTASM Error 



Thanks for publishing the EDTASM Index 
(June '80'). To me, it's this kind of useful arti- 
cle that really makes a magazine like 80 Micro- 
computing worthwhile in the long run. 

The author, Terry Kepner, also found three 
errors in the Editor/ Assembler manual. I wish 
to point out another. On page 81, the descrip- 
tion of the instruction BIT b, (HL) should read: 



"... with the contents of the MEMORY LOCATION 
POINTED TO BY THE HL register pair . . . " 



In addition, the number "444" appears 
three times near the bottom of the page. In 
each case the number should be "4444." 

Thank you, and keep those great issues 
coming. 

Jeff Berkowitz 
Isla Vista, CA 



Good News 



I am impressed with the new magazine. The 
content is excellent. Please work for careful 
review and proofreading of submitted pro- 
grams and information. In the Feb. issue, for 
example, Wes Thielke gives some pointers for 
accessing the ROM routines. I tried his pro- 
cedure for using the SET/RESET routine 
(Table 3), however I get a SN ERROR message 
and a return to BASIC after it has set a point. 1 
have tried everything 1 can think of to solve the 
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problem. Can you help me out? 

Good news for light pen builders. You can 
build the light pen descibed in the April issue 
("Build a Light Pen" by Wayne Holder) using 
all Radio Shack parts. The circuit does not ap- 
pear to be critical. Here is my list of parts: 



PQli Phoiotransisior: RS» 276-130 

QI.Q2.QA.Q4: PNP Transistor: RS«76-I604(I5 inoncpak) 

Rl: 0271025 

R2: 0272-061 (use in place of 2.4 meg). 

R.V use two 2.2 meg resistors in scries. 

R4: 0271-034 

CI, C2: #272-1069 

O: 0272-9% 



Although several substitutions have been 
made, this set of components works well. You 
will not be able to fit this into the pen, however. 
I built the amplifier circuit on a separate board. 
For the pen, 1 look a standard push-top ball- 
point, broke out the "push" mechanism, and 
installed the phoiotransisior' at the point. You 
do not have to have the phoiotransisior flush 
with the point, it can be behind the point slight- 
ly; the sensitivity is excellent. The cost of the 
pen is greatly reduced, and if you have some 
friends you can divide the leftover 2N3906 tran- 
sistors. 

Roger A. Kendall 
Lexington, MO. 



Etch-a-Modification 



In the May 1980 issue of 80 Microcomputing 
James K. Shrum's "Etch-a-Screen" is an ex- 
cellent drawing program. 

At the end of his article he wrote, "Should 
anyone come up with any modifications I'd like 
to hear about them." 

After working with the program, I found the 
following to be the ones 1 used most. 

While drawing a racetrack, I discovered I 
had made a mistake. 1 then proceeded to push 
the break key and type RUN. This cleared the 
screen and returned me to the home position 
(O.O). 

Why couldn't I have just pushed a key to 
clear the screen? 

1 added this line and it did the job and left me 
at my current position. 



135 II- S = "C" THEN CLS: GOTO 30:'clcars ihc screen when 
you type "DC". 



While drawing a diagram of a pinball game I 
had a need to see where I was on the screen. 

These lines show the values of X and Y, as 
they stand at the current position on your 
screen. 

105 IF P = 1 PRINT @ 55.;X;Y; 

145 IF S = "P-THEN 

P = I: GOTO 30: 'prints the current value of X,Y 

so you know where you arc on 

the screen. 



155 IFS = "VTHEN 
P = 0: PRINT® 
55.CHRS(l98);:GOTO 
30: 



'turns ol':' and erases position 
teller. 



In a few cases 1 found myself wanting to start 
at the bottom-righthand corner. 

Why can't we start or move to any place on, 
the screen? 

This line lets you input exactly where you 
want to go to or start. 



165 IFS = "I" THEN 
PRINT @ 952,;: INPUT 
X.Y: PRINT® 952. 
CHRS(I96);:GOT0 30: 



'lets you set set X and Y anyplace 
on the screen. 



The above line also clears the bottom line of 
the screen. 

These additions will Tit in with your 4K 
machine provided that you remove all REM's. 

Here is a list of all the commands possible for 
"Etch-a-Screen" if you enter my additions. 

Type "D" before entering your command. 

T - Puts you into the text mode. 

S - Saves a drawing on cassette. 

L - Lets you load a previously saved program. 

New additions 

C • Clears the screen and leaves you at your last position. 

P - Prints the values of X and Y so you know where you are 

on the screen. 
Y - Turns off the position teller. 
I - Lets you input the values of X and Y which will move you 

to that position. 
Thank you, James Shrum for such an ex- 
cellent program. 

Randy Long 
Yorba Linda, CA 

Small Corrections 



A couple of small corrections will help the 
"MENUE" program in DOS to BASIC by- 
Gary Alcorn in the 80 input section, May issue: 



Memory location 6B20 becomes l)s (was L3) 
Memory location 6821 becomes 43 (was 03) 



As well, il is possible to load a program of 
any si/c (not just 5 characters as slated). How- 
ever, one musi terminate with the two byles 22, 
OA. 

The program will run as originally written 
under TRSDOS 2.3, bul l he key debounce will 
not work. 

R. Hewko 

Dawson Creek, B.C., 
Canada 

Only 258 Bytes of Buffer 



The last paragraph of page 115 of April's 
\$$ue should state that the PRINT #-1 statement 
writes no more than 248 byles to tape. Remem- 
ber that the TRS-80s I/O buffer (extending 



from addresses 16870 to 17128) is only 258 
bytes long, and a few bytes are needed for 
housekeeping purposes. 

The BREAK DISABLE article on page 128 
contained two errors. Change line 10 to read 



10 CI.S : FOR X = 32743 TO 32767 



Delete the last ,0 from the DATA statement, 
which is redundant. 

Finally, how about getting Dennis Kitsz to 
provide us with an assembly language version 
of KBEEPFIX so that users can reassemble it 
with a different starting address. There was no 
indication that the program was relocatable. 
Right now KBEEPFIX conflicts with other 
programs. 

John Blommers 
Edmonton, Canada 



50AID 



Free Info 



I think the following information to your 
readers concerning Computer Bulletin 
Boards will save you and Radio Shack a 
number of phone calls. 

1 think the evolution of Forum-80 sys- 
tems are the best thing that could have hap- 
pened to the computer hobbyist. The arti- 
cle in the May issue of SO Microcomputing 
by Jim Cambron was excellent. 

I would like to add that if you do not dis- 
able the parity error routine before calling a 
system, you will always get vertical lines be- 
tween the characters the system sends. 

If you don't know how to disable the 
patch, send me a blank cassette and an 
S.A.S.E. and I will copy mine for you. 

Steve Maguire 
12 Suburban Blvd 
Delran, NJ 08075 



HELP 



As an owner of TRS-80 with interface 
and disks, I have a problem that I'm sure 
many others also have. 

When the TRS-80 is on, it makes interfer- 
ence not only on my CB-radio base station, 
but also on the surounding stations. Is there 
anything to do about that? 

I hope to get help from you or some of 
your readers to solve this problem. 

Per Evensen 

Tingvallavagen 8 

S- 186 00 VALLENTUNA 

Sweden 
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Several weeks ago, 80 Microcomputing 
received (he following letter from one of 
our readers. As you will see, the letter from 
Computronics, Inc. suggests that Delmer 
Hinrichs, author of the well-received 
"BASIC Word Processor" that ran in May 
80, had based his work on ground already 
broken by Dr. Hubert S. Howe. 

80 Microcomputing asked Mr. Hinrichs 
for some clarification. There was never any 
assertion, as Mr. Hinrichs interprets of 
plagiarism, but rather, 80 Microcomputing 
thought a footnote might be appropriate. 

Mr. Hinrichs response surprised even our 
managing editor, who, upon review, agrees 
with Mr. Hinrichs. 

Mr. Hinriclis letter, somewhat abridged, 
follows. —Eds. 

Asserts a "Rehash" 



I am in total agreement with your com- 
ments in the May, 1980 issues of 80 Micro- 
computing pertaining to copying software. 
What about almost copying software? 

Pages 50-55 of 80 Microcomputing con- 
tain an article called "BASIC Word Pro- 
cessor." The article and the program itself 
is a "rehash" of what first appeared in our 
H & E Computronics, Inc. Monthly News- 
magazine. The program uses identical 
variables and identical commands (with 
sufficient modifications to get around the 
copyright laws). The article accompanying 
the program even uses our eight basic 
features that appeared in the article accom- 
panying our program. 

The article and program appearing in 80 
Microcomputing is probably sufficiently 
different to avoid prosecution under the 
copyright laws (although we wouldn't be in- 
terested in following that course). We 
would like 80 Microcomputing to 
acknowledge the original source for the 
material. We are certainly happy (and 
pleased) to give 80 Microcomputing the 
rights to publish anything that comes from 
our Newsmagazine. We would just like 80 
Microcomputing to give us proper credit 
and ask for prior permission. 

By the way, The Word Processor is the 
program that we have been giving away (at 
no charge) with each subscription. The 
original version appeared in our April, 1979 
issue. The updated version appeared in our 
April, 1980 issue (both enclosed). 

Keep up the good work. 1 know that it is 
impossible to find the orignial source for 
everything being written. 

By the way, our word processor is selling 
for $99 by a company in Florida (without 
our permission). People are very angry 
when they find out that we give it away for 
free. We have the rights to unlimited free 
distribution. The Word Processor was writ- 
ten by Dr. Hubert S. Howe, Jr. 

Howard Y. Gosman, President 
H & E Computronics, Inc. 



Surprising Rebuttal 



I was very surprised to receive your letter 
and the copy of Mr. Gosman's letter, in 
which he claimed that my article/program, 
"BASIC Word Processor", published in 
the May 1980 issue of 80 Microcomputing, 
was a "rehash" of Dr. Howe's arti- 
cle/program published in the April 1979 
issue of Computronics. I had seen and tried 
Dr. Howe's program, along with several 
other BASIC word processors, but had 
found that none were satisfactory (Dr. 
Howe's program I found too slow, lacking 
features that I felt were necessary, and in- 
sufficiently debugged). I thought, "I can do 
better" and decided to write my own pro- 
gram. 



'Program plagiarism 
is a serious charge 
. . .bear with me" 



It was a number of months after I had 
last looked at Dr. Howe's excellent write-up 
of a mediocre program that I got around to 
writing up my program. After receiving 
your letter, I again looked at Dr. Howe's ar- 
ticle. Yes, we do organize things similarly: 
We first list features, then operation in 
general, then operation in detail. While this 
is a natural way to organize an article, 
perhaps Dr. Howe's earlier article had left 
its impression. 

We both list eight features, a startling 
coincidence. However, five are descrip- 
tions, in different words, of features that 
any good BASIC word processor should 
have; three are different. 

Actually, even features that sound the 
same may be different. For example, we 
both claim, in different words, upper and 
lowercase text entry using an unmodified 
TRS-80. Reading further, you find that 
with my program, (shift-letter) gives upper- 
case, and (letter) gives lowercase, the same 
as a typewriter. With Dr. Howe's program, 
(shift-letter) gives lower case, and (letter) 
gives uppercase, very awkward for entering 
normal text. 

Program plagiarism is a serious charge, 
so please bear with me. The following com- 
parisons are based on only Dr. Howe's 
April 1979 program; I have not seen the 
April 1980 updated version that Mr. 
Gosman mentions, so 1 cannot comment on 
the revised program. 

Program Features 

Do the programs have different features? 
I think so. While some features appear 



duplicated, most actually work quite dif- 
ferently. 

My program has the COMPILE com- 
mand, my term for the command to move 
words between lines to make all lines the 
correct length. 1 think that this feature is 
essential for a practical word processor; 
otherwise, if lines are made too short or too 
long by EDITing or reFORMATing, many 
lines may have to be manually changed or 
even retyped. Dr. Howe's program does not 
have anything similar. 

My program allows entry of do-not-jus- 
tify markers to skip justifying of any line; 
his does not. mine displays this marker, as 
well as end-of-page and trailing-space 
markers on the video; his does not show any 
such special markers. My program has sub- 
commands for moving the text in a line to 
the extreme right of the line, of centering it; 
his does not. Mine shows on the video dis- 
play what the program is doing during time- 
consuming operations; his does not. Other 
non-shared features are mentioned below. 

Dr. Howe's program does have one fea- 
ture that mine lacks; the ability to store text 
in a disk file. 

Program Organization 

Are the programs organized in a similar 
fashion? I think not. Mine puts the com- 
mands in alphabetical order; his does not. 
For logic branches, I tend to use the ASCII 
number of the character, and use 
ON — GOTO for multiple branches; he uses 
string characters and groups of IFs. I try to 
protect against user errors; he does less 
checking. I try to put subroutines after the 
calling point; he puts them wherever conve- 
nient. 1 display the text after it has been 
changed; he does not. I use string variables 
"Y" and "N" for yes-no questions; he uses 
numeric variables. 

We do both compress the spaces out of 
our respective programs to save memory. 

Program Commands 

Dr. Howe has 14 commands in his pro- 
gram; I have 17. Of these, ten have the same 
name, and thus appear the same at first 
glance. Actually, only three, DELETE, 
HELP, and MOVE have essentially the 
same effect, and even on these, the BASIC 
code is different. On the others: 

EDIT — We have both more or less 
followed the Level II editing format. Dr. 
Howe leaves out the Again subcommand 
and the "n" preceding the left-arrow, right- 
arrow, Space, Change, Delete, and Search 
subcommands. I addded subcommands 
shift-right-arrow (move text to right), shift- 
down-arrow (center text), and shift-® (exit 
from EDIT). 

INSERT— Dr. Howe INSERTS text only 
into empty lines; I move the following text 
down to make room for the new text line or 
lines. 

JUSTIFY — Dr. Howe's program will 
Continued to next page 



14 • 80 Microcomputing, August 1980 




ows your 
love life? 







A little dull around the edges? 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious fun! 




Interlude is: romantic . . . playful . . . outrageous ... a fantasy. Interlude is: ■ Wet fun 
on a hot summer night. (Interlude #21) ■ A surprise on the way home from dinner. (Interlude #42) 
■ A bubble bath that ends with a bang. (Interlude #78) ■ An evening to rest while she does all the 
'work." (Interlude #25) ■ The most romantic of evenings. (Interlude #84) ■ A new twist to an 
old subject. (Interlude #69) ■ Just watching her. . . (Interlude #57) ■ An erotic fantasy! (Interlude #33) 

With over 100 Interludes, you can satisfy all levels of interest and desire. Each Interlude is fully 
described in the manual, and the more elaborate ones are detailed with regard to settings, props, and 
mood-enhancing techniques. But we've saved a few super Interludes for that very special time when your 
interview indicates you're ready! At that time, you will be introduced — — -^287 

o one of several Interludes held secret within the computer. (When you 

earn secret Interlude #99, your love life may never be the same again!) 

nterlude can give you experiences you'll never forget. Are you ready for it? The Ultimate Experience. 



Interlude 



Interlude, 10428 Westpark, Houston, Texas 77042 I'm really ready! Rush me copies of Interlude today. 

D For the Apple II (16K) # D For the TRS-80 (Level II-16K) ## □ $14.95 for cassette D $17.95 for diskette. 
Add $1.50 for shipping. Texas residents add 6% sales tax. My check (payable to Interlude) is enclosed. D 
Charge my D MASTERCHARGE D VISA account. 
Account No. _ Expiration date 



AH charge customers must sign. 

Name _ 

Address 

City 



Signature 



Age 



_State 



Zip 



'CHARGE CUSTOMERS: Order by phone toll-free! 1-800-327-9009 Ext. 306 <fla : i-soo.432-7999ext.306) 
# Apple II is a registered trademark of Apple Computers, Inc. # # TRS-80 is a registered trademark of Radio Shack, a Tandy Co. 



Hinrkhs from page 14 
not right-justify lines that end with a space 
or punctuation; mine will. With my pro- 
gram, a marker is added to a line to leave it 
unchanged; his does not have this option. 
Dr. Howe can't JUSTIFY short lines; i can. 
The actual adding of spaces is quite dif- 
ferent; 1 start at a random position and 
distribute added spaces uniformly, at adja- 
cent or alternate original spaces; Dr. Howe 
doesn't. 

LOAD— Delimiters (" , : ) or leading 
spaces that may occur in text cannot be 
SAVEd and LOADed from tape. Both Dr. 
Howe and I got around this problem by 
translation, adding an eighth bit to the 
seven-bit ASCII code (by adding 128). Dr. 
Howe tests for the problem characters, and 
changes them in the text file before and 
after a SAVE, and after a LOAD; he then 
SAVEs or LOADs one text line at a time. I 
translate all characters, put them into a buf- 
fer array, then SAVE or LOAD four lines 
at a time. The practical difference? A lot of 
lime and tape. My translation is much 
faster, no re-translation is needed after a 
SAVE, and there are only one-fourth as 
many data files to record or read. 

PRINT— In Dr. Howe's program, 
PRINT may mean either print on the 
printer, or display on the video display; in 
mine, PRINT means PRINT. My program 
can set the left margin, print page numbers 
on all pages except the first, print the entire 
text without intervention, and print text 
with line numbers without offsets to the 
text; Dr. Howe's cannot. 

REPLACE— Dr. Howe's REPLACE 
must start at a line that contains text, but 
can then continue in blank lines. In my 
REPLACE, only one line, with or without 
text, is affected. 

SAVE— See LOAD. 

ADD is similar to Dr. Howe's FILL, but 
adds a single character to the text file 
quicker, besides correcting the upper- 
lowercase reversal, which Dr. Howe's pro- 
gram does not do. My program moves a 
too-long word to the next line much faster 
than does Dr. Howe's program. If a word 
ends on the last position of a line and 
(space) is then entered, Dr. Howe's pro- 
gram incorrectly moves the word to the next 
line; mine does not. In my program, shift- 
right-arrow moves text to the extreme right 
of the line; in Dr. Howe's, it fills the line 
with spaces. 

FORMAT is similar to Dr. Howe's SET, 
but has 10 formal variables, compared to 
only six for SET. 

1 could continue listing differences until 
this letter was longer than my original arti- 
cle, but I think that the conslusion is ob- 
vious from this sampling: While there is a 
superficial resemblance, due to the two pro- 
grams having a common goal, the actual 
features and the detailed operation of the 
programs are quite different. 

Delmer D. Hinrkhs 
Washougal, WA 



DEBUg 



Bugs in Doodle Bug 



Due to a lapse in communication be- 
tween myself and the editors at the last min- 
ute when the June 1980 issue of 80 Micro- 
computing went to press, the line numbers 
used for reference in my article "Doodle 
Bug" do not correspond to the line num- 
bers in the actual program listing. The table 
below provides the corrections that need to 
be made to the text portion of this article, 
starting on page 74. The corrections are 
listed in the order that they appear in the 
text. 

Line numbers referenced Corrections to text so 
in text of article: that line numbers will 

correspond to program 

listing: 



p. "•! .100-385 

500-585 

RUN 400 

400 

300 

RUN 600 
p. 76 435. 445, 660 and 665 

999 

110 

1 16 and 220 

GOTO 115 

GOTO 220 

215 

GOSUB 999 

65 

35 

125 and 260 

•130 and 450 (disk) 

657 and 680 (cassette) 

RUN 400 

RUN 600 



265-350 

410-485 

RUN 355 

355 

265 

RUN 490 

390. 400. 575 and 580 

595 

165 

175 and 225 

GOTO 170 

GOTO 225 

220 

GOSUB 595 

105 

75 

185 and 255 

395 and 405 (disk) 

575 and 590 (casscitc) 

RUN 355 

RUN 490 



R. Daniel Bishop 
Point Lookout, MO 65726 



Life Re-Lived 



Readers will have noticed by now some 
missing items from two programs in the 
LIFE article published in June 80. Here 
they are: 

In Listing 6 there should be no line 15. 
That is actually selection 15 in line 2010 
(you wondered where thai went? Well score 
one for automation). Also, line 3100 was 
swept up from the floor, I suppose. As 
many readers have deduced, line 3100 
should read GOSUB 9999. 

Now the assembly listing of LIFE itself. 
Lines 245 and 265 now read *LIST OFF 
and *L1ST ON. Instead, these lines should 
be dropped and lines 250 and 260 added, 
reading: 



250 DEFM 'LOADING L1FE9 WAIT FOR 

'•GOOD LOAD'" 
260 DEFM ■ THEN ENTER" ' 

1 suppose an overanxious accountant 
sliced out lines 6450 and 6460. They orig- 
inally read: 

6450 COin 1)1 1 M ■. ton RIGHT 1979 BY DENNIS 

BATHORY Kl IS/.." 
6460 ■ ALL RIGHTS RESERVED ." 



... but you are welcome to place any 
64-character message in that place. 

I would also like to mention that for 
I hose readers without the patience to type in 
the complete listings, I have prepared 
L1FE9 on cassette, along with the BASIC 
seed listing, for $9. 

Dennis Duthory Kilsz 
Roxbury, Vermont 05669 



SCRNPRNT 



I thoroughly enjoyed "Screenprint" in 
the May 1980 issue, but found a bug in the 
listing. Line 194 should be: 



I D(.HM9H). HL 



H was left out in the assembly (look at the 
object code). Otherwise SCRNPRNT is 
working faithfully. 



John Sowers 
Petersburg, VA 

Roseland Re-visited 



In the article "Adventures in Roseland" 
(June, 80), the program listing was incor- 
rect. 

Lines 40, 50 and 60 should have read: 



X (R'COS(J)) + 64 
V (R»SIN(J))+47 
SET(X.47-(Y/2» 



Donald E. Edwards 
Royal Oak, Ml 
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EXATRON 
STRINGY FLOPPY 



T.M. 



SPEED 

LOW COST 

RELIABILITY 



Exatron is a California based corpora- 
tion that has been in business since 1974. 
As well as the Stringy Floppy, Exatron de- 
signs, manufactures and sells state-of-the- 
art electro-mechanical equipment for a 
variety of commercial and industrial ap- 
plications. Exatron is an established sup- 
plier of automatic test equipment to manu- 
facturers, and large OEM users, of inte- 
grated circuits worldwide. 

WHAT IS IT? 

The Exatron Stringy Floppy (ESF) is an 
extremely fast, reliable, economical alter- 
native to cassette or floppy disk storage of 
computer programs or data. 

Totally self-contained, the ESF has no 
buttons, switches, knobs or levers to adjust 
or forget. All of ESF's operations are 
under the computer's control. 

HOW DOES IT WORK? 

The ESF uses a miniature tape cartridge 
{called a 'wafer') as the data storage 
medium, about the size of a business card 
and 3/16th of an inch thick. The tape used 
inside the wafer is a special Mylar based 
Chrome Dioxide type, specially developed 
for digital applications. Wafers are avail- 
able in several lengths, 5 feet being the 
smallest and capable of holding up to 4 
thousand bytes of information — the 
75-foot wafer is the largest available and 
can hold up to 64 thousand bytes of data. 

The wafers contain a single reel of the 
special tape connected as a continuous 
loop, the ends being spliced together with 
a piece of reflective tape. In operation the 
ESF drive unit pulls the tape from the 
center of the reel inside the wafer, causing 
the entire reel to rotate. Thus, the tape 
automatically winds itself around the out- 
side of the reel at the same rate as which 
it is pulled from the center. This process is 
similar to that found in an 8-track car- 
tridge. 

The ESF transport mechanism is very 
simple, consisting of a precision die-cast 
aluminum block — with a capstan, drive 
motor and magnetic record/replay head 
mounted on it. The wafer loads into a slot 
in the casting (it will only fit the correct 
way) and the tape is driven at a single 
point by the capstan, past the record/re- 
play head. 



The software in every ESF adds a parity 
bit to every byte saved on tape, and a 
checksum to the end of every file. These 
are checked both after recording data and 
upon replay, any detected error is indi- 
cated by a message on the video display. 
This system of automatic error checking 
gives confidence in any data saved, also 
each wafer is rated for at least 2,000 com- 
plete passes past the record/replay head. 
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•Assembled and tested 

•All operating software in ROM 

•Fully automatic operation 

•Professional quality 

-No Expansion Interface required 

•Large Owners Association 

•High speed operation 

•Extremely reliable 

•No technical knowledge needed 



MHHHHMH 




HOW DO YOU USE IT? 

Once connected to your computer the 
ESF operating system needs to be activat- 
ed—simple. Just type 'SYSTEM'(enter), and 
in response to the ? prompt type 712345" 
(enter). Your TRS-80 will instantly display 
the ESF sign on message 'EXATRON 
STRINGY FLOPPY VERSION 4.1', and from 
this point onwards you will have the extra 
commands '©LOAD', '@SAVE' and 
'©NEW recognized by your TRS-80. 

The ESF's operating system is built into 
the electronics of the unit, in much the 
same way that BASIC is built into the com- 
puter, so it is always available — the 
SYSTEM command is to let your computer 
know that the ESF has been connected. If 
you normally reserve some memory for 
subroutines then the ESF software will 
relocate itself under your selected top of 
memory. The ESF uses only 4 bytes of your 
available RAM, these bytes are used to 
■point' to the 2048 bytes of software in the 
ESF unit itself. 



WHAT'S THE CATCH? 

Well, the only catch that most people 
find is that they have to actually pay Ex- 
atron for their unit! Even this is no big 
deal. 

Starter Kits are available with the Exatron 
Stringy Floppy, a supply of wafers, a bus ex- 
tender and a selection of useful programs — 
for S299.50. 

Through regular advertisements in both 
Kilobaud Microcomputing and 80 Micro- 
computing, owners are kept informed of 
the latest developments in wafer-based 
software. Plus hundreds of user 'work- 
shops' are starting up over the country, so 
you can always be sure of being near to 
another ESF owner. 

Exatron also gives a 30-day full money- 
back guarantee, with a 1 year parts and 
labor warranty on the unit. 

If you have any questions about the ESF 
then give Exatron a call on the Hot Line 
(outside CA) 800-538-8559. 

East Coast customers can call 800-343- 
4424 (inside MA 617-899-3862) 



C 



Open House Workshops take place from 9 am till 1 pm every Saturday at Exatron's 
factory in Santa Clara, and on the East Coast the last Saturday in each month at 
Micro Communications, 80 Bacon Street, Waltham MA 02154. All are welcome. 
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exatron 

3555 Ryder Street 

Santa Clara, CA 95051 

408-737-7111 
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^Reader Service index— see page 194 
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*7 realized the time 

I was saving. . . was lost 

. . . in the amount of time 

spent typing reports from 

the video display. " 




Trendcom 100 Printer 
Trendcom 
Sunnyvale, CA 

$375 

by John I). Adams 

Ihave no idea what one does with a wire 
wrapping tool. I find PC boards artistically 
attractive but regard their operation with puz- 
zled awe. The mere idea of a logic probe sends 
me to the liquor cabinet. But I do love my com- 
puter. I am one of those computer users who 
really is a user. 

I have owned my TRS-80 for over a year and 
a half, have dutifully learned my Level II 
BASIC and expanded my RAM to 16K. I am 
now writing software which occasionally as- 
tounds me by working. As a teacher of Algebra 
II and Accounting, using my TRS-80 has in- 
creased exponentially during those 20 months. 

Time Saved, Time Lost 

Several months ago, I realized that the time I 
was saving by using a computer was lost 
twofold in the amount of time spent typing 
reports from the video display. I was losing my 
eyesight, my patience and my sanity. It was 
clearly time for hard copy, and I had to have a 
printer that I could plug in and run. 

My first forays were frustrating and disap- 
pointing. I found a lot of decent printers for 
around a thousand bucks, but I couldn't afford 
them and support the government and my 
family at the same time. Besides, I could not see 
paying more for a printer than I did for my en- 
tire system. 

I had nearly resigned myself to several years 
more of typing from the video until I could save 
up a thousand dollars— provided the car did 
not fall apart on the freeway— when I tried a 



local computer store looking for a used printer. 
There, a salesman demonstrated the Trendcom 
100 printer. He gave me a program listing to 
check on the copier and said he had an interface 
cable that plugged directly into the TRS-80. 

I went home to think about it. The listing 
copied fine — it even made a good ditto master 
on a thermal copier. I called a second computer 
store for their opinion and got no negative feed- 
back. 

So I bought one. With foreboding, of 
course. Things that work well for everyone else 
seldom work for me. The manual is short, con- 
cise and clear. A separate page concerning 
TRS-80 applications is included. 

Inside the cabinet is a slide switch that ac- 
tivates a self-check routine and prints out the 96 
character set, illustrating both upper and lower- 
case. The manual states that if this works, you 
should hook it up. 

One end of the ribbon cable is furnished with 
an interface card housed in a black plastic box 
about 3'/2" by 5" by Va". I was told that this is 
for systems without the expansion interface. I 
had some trouble figuring out which was the 
top of the box, but finally realized that it 
could go only one way and still leave access to 
the reset button. This is a fair indication of my 
electronics expertise. 

The other end of the cable plugs into the 
printer and is notched; not even /could get it in 
backwards. Hook up the cable, plug the power 
cord into a grounded receptacle, and you are 
ready to go. The power supply is included in- 
side the printer case. 

Bi-directional Printer 

The unit's weight will surprise you. It is a mi- 
croprocessor-controlled, bidirectional printer. 
It prints a 40 character line at 40 characters a 
second. Trendcom projects the head life at 10" 
characters. The warranty is satisfactory, and 
the salesman assured me that repair support is 
available. Interface cables are also available for 



the Apple II, the PET and for RS232 applica- 
tions. 

It is refreshingly quiet, making sound only 
when the print head changes direction and ad- 
vances the paper. Loading is easy, and the 
paper feed is even and regular. Operation re- 
quires only the LLIST and LPRINT com- 
mands. The PRINT USING and the PRINT 
TAB statements may be used, making format- 
ted output a snap. 

The Trendcom even prints upper and lower- 
case without a TRS-80 hardware modification 
by reversing the normal shift procedure. 
Lowercase is not a prize winner, but it is 
readable and offers contrast. 

The drawbacks for me are few and minor. 
The printer uses thermal paper in blue or black 
at about four cents per foot, which is not 
cheap. Unless you do a great deal of printing, 
this should not be critical. The paper is also nar- 
row, measuring slightly less than 4'/2 inches and 
cannot be exposed to sunlight or heat. 

A small LED on the front panel to indicate 
power on/off status would be handy. 

So far I have not been able to gel the printer 
to print an up arrow lor exponentiation. It 
prints an open bracket sign instead. Using the 
CHRS(91) notation does not help. If anyone 
knows how to get around this, I would ap- 
preciate hearing from you. 

Two self-protecting circuits are built in. The 
first resets the unit when line voltage drops 
below 90 percent of the rated needs. Operation 
resumes automatically when power is up again. 
The second circuit locks if the print head does 
not return to the left margin. This is cleared by 
turning the power off and then on again. 

I am completely satisfied with the Trendcom 
100, especially considering that my cash outlay 
was over $100 less than I would have spent on 
the Radio Shack Quick Printer. For someone 
with my computer budget and my computer 
needs, the Trendcom 100, like the TRS-80 
itself, is ideal. ■ 
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Okay, now you've had a 
chance to see what I have in 
mind for you with 80 MICRO- 
COMPUTING. Oh, I admit that 
we're just getting started and 
that the magazine will be im- 
proving a lot as we go along. 
We have some interesting 
ideas in the works for you. 

With the TRS-80* (or 90 . . . 
etc.) being the most popular 
microcomputer in the entire 
world, you are going to benefit 
from this in many ways. The 
more computers there are out 
there of one kind . . . the more 
good programs you are going 
to have for this system. I hope 
that is obvious. You may be 
sure that 80 MICROCOMPUT- 
ING will be packed with the 
shorter programs and reviews 
of the larger ones. You can 
waste an awful lot of money on 
stuff that looks great in the ads, 
but fizzles out when you try to 
use it. You need our reviews. 

The wealth of programs will 
also mean that there will be 
much better programs for the 
TRS-80* than any other system. 
Put yourself in the seat of a 
computer programmer and 
you'll understand this. If you 
are going to spend several 
months developing a compre- 
hensive program, and it takes 
all of that to write and debug a 
big program, would you write it 
for a system which has sold 
one hundred units or one which 
has sold over 300,000 systems? 
The answer is obvious . . . and 
this is why we are already see- 
ing programs coming out for 
the TRS-80* which are far bet- 
ter than anything for any other 
system on the market. This is 
tough for other systems . . . the 
law of the computer jungle. 

Between our connections 
with Instant Software, the larg- 
est publisher of microcomputer 
programs in the world, and 
Kilobaud MICROCOMPUTING, 
you know that 80 MICROCOM- 
PUTING is going to be your 
most important link with soft- 
ware for the TRS-80*. 

With Instant Software being 
sold and promoted in every 
country in the world where the 
TRS-80* is being sold, our input 
of programs is also the best in 
the world. We get programs 
submitted from everywhere . . . 
often from 50 to 100 a week! 
You'll get the cream of the crop 
either published or reviewed in 
80. 

'TRS-80 is a trademark of Tandy Corp. 



HARDWARE TOO 

The same law of the comput- 
er jungle holds for hardware. 
Would you, as a manufacturer, 
market an accessory for a sys- 
tem which has sold 100 units or 
would'you go first for the one 
which has sold hundreds of 
thousands. It is, as with soft- 
ware, self-evident why the great 
bulk of the hardware accesso- 
ries for computers are for the 
TRS-80" these days. 

80 MICROCOMPUTING has 
the advantage of the use of the 
largest and most complete mi- 
crocomputer lab in the world 
. . . the one developed for In- 
stant Software and Kilobaud 
MICROCOMPUTING. This 
means that most new pieces of 
equipment are tested and in 
use by our staff . . . and this 
means that we can tell you 
what we think is outstanding 
. . . and where we find ripoffs. 
This lab is important to you. 

SUBSCRIBE 

If you are not already a sub- 
scriber to 80 MICROCOMPUT- 
ING, please get signed up right 
now. The yearly rates are $18, 
and that is a bargain. Just one 
single program of use to you 
can be worth much more than 
that. One review of an acces- 
sory could save you many 
times that much investment. I 
would appreciate it if you would 
appoint yourself a committee 
of one to get more subscribers 
for the magazine. You will bene- 
fit even more than we do here at 
the magazine . . . because the 
more readers we have, the more 
ads we will be able to attract 
. . . and the more ads, the more 



DO YOU 
OWN A 
TRS-80*? 



THEN 
READ ON 

pages of articles you will get 
every month. 

The 80 market can, I think, 
support a couple of hundred 
pages of ads . . . and that 
would mean a magazine of 
nearly 500 pages a month. That 
should hold you. You may not 
have time left to use your com- 
puter. 

ENCYCLOPEDIA 

If you've read Kilobaud MI- 
CROCOMPUTING, you know 
that I try hard not to duplicate 
published material. My concept 
is that every reader should save 
every issue (we sell inexpensive 
boxes for this so they can sit on 
your library shelf) and treat the 
magazine as a continuing ency- 
clopedia of computing. I make 
sure that much of the material 
in each issue is written in sim- 
ple language so it will be under- 
standable by even the rawest 
newcomer to computers. Oh, I 
have articles for the more ad- 
vanced users too, so you'll have 
something to look back over 
later and use as your under- 
standing of your system grows. 

Try to think of 80 MICRO- 
COMPUTING as more of a large 
club newsletter than an ivory 
tower high-level publication. I'll 




leave the pomp to other pub- 
lishers ... the ones with the 
well-deserved inferiority com- 
plexes who cater to their inade- 
quacies by publishing esoteric 
baloney. This magazine is writ- 
ten by the readers and edited by 
people whose aim is to help you 
enjoy your TRS-80*. 

SAVE 

With each issue costing 
$2.50 at your computer store, 
that's $30 a year. For$18ayear 
you can subscribe ... at least 
for now. As the magazine ex- 
pands, please do not be sur- 
prised if the cover price in- 
creases, along with the sub- 
scription price. I started 73 
Magazine for radio amateurs 
twenty years ago with a cover 
price of 37e (two for 73$) and it 
is up to $2.95 a copy now (and it 
is the largest of the ham maga- 
zines). 

For you bargain hunters . . . 
and those who find that one 
year goes by all too rapidly, the 
three year rate for 80 is $45. 
This, too, will be going up . . . 
reflecting the inflation, paper 
increases, postage increases, 
and a short vacation for me in 
Hong Kong next year. Someone 
has to pay for that. 



If the coupon below has been used, please fill out subscription form on the Reader Service card in the back of the magazine. 
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The Micro Millennium 
by Christopher Evans 
Viking Press 
S 10.95 

by Nancy Robertson 
80 Staff 

Have you ever heard of compucide, or 
computer killers? A Tew weeks ago the 
anchorwoman on a Boston news program told 
listeners that an anti-computer ring had been 
short-circuiting computers in the metropolitan 
area. Other individuals had been arrested lor 
attacking terminals with hammers and pouring 
honey down keyboards. The incidence of com- 
puter sabotage has become so common that a 
legal term has developed — compucide. 

At least one of Christopher Evans' predic- 
tions from his book The Micro Millennium has 
come true: The anti-computer movement of the 
early phase of the Computer Revolution has 
begun. 

The Micro Millennium claims that we arc in 
the early phase of a sweeping cultural revolu- 
tion spurred by the advent of microprocessors. 
The book begins with a concise and personable 
history of the people and scientific ad- 
vancements which have brought the computer 
to its present development. 

Eccentric Babbage 

The first person to build a calculator and de- 
sign a computer, Evans writes, was an eccentric 
Englishman named Charles Babbage. Early in 
the nineteenth century, Babbage built an enor- 
mous machine of cogs and wheels run by a 
handcrank that calculated mathematic equa- 
tions. The Difference Machine, as Babbage 
called it, was built several decades before the 
discovery of electricity. While he was still work- 
ing on its construction, Babbage began to 
design his Analytical Engine to deal with a 
variety of problems besides sums. Nobody paid 
much attention at the time. 

Evans takes his readers through the stories of 
several other scientists and inventions until we 
come to the first operating computers, which 
came into existence in the United States and 
England during the second World War. 

But by Evans' definition, the Computer 
Revolution did not begin until the invention of 
the transistor. In one stroke the transistor 



multiplied processing speeds at exponential 
rates, shrank the size of computers and opened 
the way to expanding their memory capacity. 

Evans cogently predicts the computer's role 
in the short-term future. He compares the 
Computer Revolution with the Industrial 
Revolution which caused changes in all levels of 
society through "emancipation of the power of 
the muscles." While segments of society fought 
against it, the momentum of the Industrial 
Revolution could not be turned back. Machines 
replaced laborers, and a period of widespread 
unemployment followed. As the economy ad- 
justed to mechanization, the work day dwin- 
dled from 1 8 hours to the current seven or eight 
hours. Society adjusted to a higher standard of 
living. 

The Computer Revolution, Evans argues, 
will bring "the emancipation of the power of 
the brain." The changes will occur, he predicts, 
at unparalleled speed. 

One of the main functions of computers is in- 
formation storage and retrieval. Since the in- 
vention of the printing press until the present, 
books have been the most reliable and efficient 
means of recording, preserving and disseminat- 
ing thoughts and facts. In a short time, Evans 
believes the entire contents of the Library of 
Congress will be able to be stored in the 
memory of a microprocessor. As microcom- 
puters become as common as television sets, a 
greater wealth of information will be available 
to more people than was ever believed possible. 

Because they barter information, the profes- 
sions, such as law, medicine and teaching, will 
be the jobs most severely affected by the spread 
of computers, according to Evans. Changes 
will be so vast and so rapid that backlash is in- 
evitable. 

Businesses will be run by microprocessors 



communicating with microprocessors. Every- 
body will work shorter days. Most people will 
work at home. Concentration of the popula- 
tion in urban centers will become unnecessary. 
Commuting will die out. Eventually, the need 
to work may disappear all together. 

These are just a few of the changes Evans 
predicts as a result of the computer's informa- 
tion storage and retrieval functions. 

Problem Thinkers 

Computers solve problems too. They think. 
Evans writes about the possibility of Ultra In- 
telligent Machines (UIMs) far surpassing the 
highest human IQ. Evans, a psychologist, is 
quite lucid about the definition of thinking. It is 
equally clear that he believes computers will 
surpass human intelligence. He gives credence 
to the belief that computers are already capable 
of creative and original thought, as opposed to 
programmed logic. A computer, programmed 
to test new proofs of Euclidean geometry, 
developed its own proof of the theorem "which 
shows that the base angles of an isosceles 
triangle are equal." Evans writes that the proof 
"had not before been known to Man." 

Unfortunately, The Micro Millennium does 
not explore the ramifications of UIMs as 
cogently as it presents the history, present and 
short-term future of computers. Evans gets 
bogged down with straw dogs. He voices 
hollow objections to artificial intelligence that 
arc transparently set up to be knocked down. 
The book begins to lose its interest. 

In the last chapters, the focus is lost 
altogether. The book rambles to an unintelli- 
gent close. But before he runs out of steam, 
Evans is able to convince us that the Revolution 
is inevitable. Organized networks of compucide 
crusaders won't turn back the tide.B 



EDAS 4.0 
Roy Soltoff 
and Bill Schroeder 
Galactic Software 
Mequon, WI 
S229 

by Jake Commander 

The TRS-80 Model 11, presumably because 
it's more sophisticated than the Model I, is 
being approached with respect by software sup- 
pliers. The software written for it also appears 
to be more sophisticated (which usually means 
more expensive) and seems to be written with 
much greater professionalism. 

EDAS 4.0, the editor/assembler package 
from Galactic Software, is no exception 
and has a very good chance of becoming the 
standard assembler of the Model II, just as 
EDTASM became the standard Model 1 as- 
sembler. The assembler uses most of the same 
EDTASM commands plus other more power- 
ful additions. 

EDTASM Is a Subset 

Using the EDTASM commands as a subset 
of the EDAS 4.0 command set is one of the 



most attractive things about the package. A 
machine language programmer familiar with 
the Model 1 assembler will be able to plug in 
and switch on EDAS 4.0. 

For the newcomer to EDAS 4.0, a full menu 
of commands, including syntax, is viewable 
merely by hitting the ENTER key. It's a 
thoughtful touch which saves wearing out the 
manual. 

As you'd expect from a product of this quali- 
ty, the manual is comprehensive and well laid 
out. It contains an in-depth overview, full com- 
mand summary, and also includes a full refer- 
ence list of Z-80 opcodes and address modes. 

I had the pleasure of assembling a fairly large 
program using EDAS 4.0 and had no problems 
whatsoever. In fact, just like any good assem- 
bler or compiler, its usefulness is taken for 
granted after a very short time. 

One particularly nice thing which you can do 
is to assemble directly to either memory or disk. 
That means you can check out an assembled 
routine quickly in RAM, return via a simple 
RET instruction, reassemble the routine if nec- 
essary, and save the object code as a disk object 
file. You can only do this when your object 
code doesn't overwrite the assembler itself, its 
symbol table or any other illegal address. 

You can also use this direct-to-memory op- 
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tion in conjunction with the Model II debugger, 
giving you an extremely powerful method, of 
developing machine code software with mini- 
mal expenditure of time and effort. 

The usual options, such as line print of as- 
sembly output, pause on errors, no listing, no 
object code generation or no symbol table, are 
also available at assembly time. 

The symbol table printout does lack a cross- 
reference index, which is something 1 found 
conspicuous by its absence. It's about the only 
thing I found missing from this product. 

One thing I particularly liked was the object 
code printout from a DEFM command. Bytes 
are printed out in a neat block for easy refer- 
ence. Model I users will remember the peculiar- 
ities of their equivalent pseudo op. Other 
pseudo ops supported include DEFB, DEFW, 
DEFS and END. 

Excellent Editor 

The ED AS 4.0 editor is excellent. You can 
edit in either line or global mode. To the lay- 
man, that means you can manipulate source 
code by altering single lines or by altering the 
whole text buffer. For instance, if you discover 
you've used an illegal label, opcode, or what- 
ever, there's no problem! Just use the global 
replace command and you can change all the il- 
legal references at a single stroke. The editor 
will display each changed string as it comes to 
it. EDTASM eat your heart out! 

Yet another new feature which I could have 
used hundreds of times is a block move com- 
mand. It is invaluable. If you want to move a 
subroutine or a table to a more convenient posi- 
tion in the source code, then just use a simple M 
command. This will move a whole block of 
lines from one place within the text to another, 
and then automatically renumber the text. It's 
the sort of command that makes you wonder 
how you previously managed without it. The 
renumber facility is, of course, also available as 
a separate command. 

The line editor functions in the same manner 
as the Level II BASIC line editor, except that 
while in the edit mode, the edited characters ap- 
pear in reverse video. All user prompts and er- 
ror messages also appear in reverse video, 
which makes feedback just that bit more ob- 
vious. 

Other thoughtful touches include a screen 
clear that uses the Fl key, and advancing the 




text page by using the F2 key. Forward and re- 
verse scrolling is provided with the appropriate 
up or down-arrow key. 

By now you should be getting the idea that 
this assembler does it all. Disk file handling is 
simplicity itself. W and L commands perform 
the writing and loading of source files. Once 
you've specified a source filespec, you don't 
need to keep repeating it in subsequent writes. 
The assembler will default to the original file- 
spec if you omit it. This gives some protection 
against accidentally overwriting a source file by 
giving the wrong filespec, which can happen 



too easily after a long, mind-numbing session 
at the keyboard. 

Text concatenation is yet another feature 
which you come to take for granted with this 
assembler. Model I users will, no doubt, be glad 
to know that source files can be transferred to 
ED AS 4.0 on the Model II. My own experience 
proved this, although it took a couple of goes 
before I got it right. 

Though it's priced high, like most business 
software, no serious assembly language pro- 
grammer is likely to find a more useful piece of 
software. ■ 



Pyramid 
Radio Shack 
Tandy Corporation 
Fort Worth, TX 
S14.95 

by William O'Brien 

Radio Shack's entry into the world of ad- 
venture games for the TRS-80 is titled 
Pyramid. The game is yet another example of 
Radio Shack's inability to deal with the con- 
sumer in a consumer's market. 

An exasperated survivor of Adventureland 
and a glorious savior fresh from Programma's 
Wilderness Campaign for the Apple, I sat 
down to attack Pyramid. 

Limited Instruction 

The game's explanation is minimal. In a 
four-page booklet barely one side of a full page 
is used to explain it. 

While proponents of adventure games may 
argue that directions should be limited to allow 
the user to grasp the theory and action, this is 
hardly fair to someone who has never been ex- 
posed to the genre. 

Sadly, too, as with some other Radio Shack 
programs, the instructions seem to assume that 
the reader is either a child or an adult with 
the mentality of a slightly premature corned 
beef. 

Pyramid suffers from the lack of a command 
word base. Command words reviewed in 
Pyramid are limited to GET, GO, SCORE, 
LOOK, INVENTORY, TAKE, DROP, 
THROW, CLIMB and HELP. Although this 
might seem a sizable base for a vocabulary, I 
don't think it is sufficient. 

The scenario starts with the would-be explor- 
er in the desert, standing in front of the tip of a 
Pyramid. You proceed using the assumed and 
known vocabularies. 

Firstly, the LOOK command produces a 
"You can't go in that direction" response when 
nothing is apparent. More correct would be an 
"I see nothing," or "Nothing is there." 
"Looking" is not synonymous with "going" in 
the real world, however, the words seem to 
prompt similar responses in this game. 

We go down a passageway, collect a few 
items, perhaps chase the elusive statue of a bird 
that comes alive if you approach it. A little ex- 
ploration nets us a scepter with an ankh at the 
top and a small empty box. 



Down some steps, we enter a vast hall 
stretching almost endlessly toward the west. 
Two passages appear, one on either side, with 
another set of stairs leading down. 

We may, at this point, discover a lump of 
gold in a room down the left passage, along 
with a sign that says, "You'll never get it up the 
stairs." And you can't. 

The north passage to the throne room is 
guarded by an industrious serpent. Should we 
choose the lower passageway, we find the same 
snake (or its twin sibling) guarding an identical 
passage. That leaves us the long stretch to the 
west. 

Hope not here, pilgrim. There, a bottomless 
chasm is impossible. 

Don't try to jump it, you won't make it. You 
can try typing HELP, but don't expect any. 
You will only see the response, "I'm as con- 
fused as you are!" 

It seems that this is the only response pro- 
grammed for that command (or so I was told 
by a member of Computer Services), and it is 
the only response you will get. 

You're on your own. 

If you try climbing down, you can't. You 
can't go around, either. I decided that my only 
alternative was to do something not men- 
tioned in the meager instructions. I called 
Texas. 

Go Wave a Scepter 

That call was as enlightening as typing 
HELP. I was told I should try waving my magic 
scepter. What magic scepter, I naively asked. 
Why, the magic scepter I must have picked up 
in another room. 

"The one with the ankh on it?" 1 queried. 

"Yes," a voice squeaked out. 

"But it never said it was a magic scepter," I 
replied. 

That's the point of the game; you have to 
find these things out, I was told. 

I was so disgruntled that I didn't return to the 
game. But that was because of the answer to my 
final question. 

"Are you people down there really happy 
with the way this game performs?" I asked, 
and immediately dreaded the question. 

"Of course we are!" I was told. 

"You mean, you find nothing wrong in the 
way it operates?" 1 pried. 

"No, not at all," he said, "in fact, a lot of 
people have called to complain that it is too dif- 
ficult and to find out how to use it." ■ 
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LOOKING FOR TRS-60 
BUSINESS SOFTWARE? 

WE HAVE HUNDREDS 

OF QUALITY BUSINESS 

PROGRAMS IN STOCK! 

AT PRICES YOU CAN 

AFFORD. 

WHERE YOUR TRS-80 MEANS DUSINESS > 

For the first time you can fill most of your software needs with one telephone call. Whether you are 
trying to find a specific program, custom software or just help with your system — give us a call. 
We have the people that count! 

Invoicing • Inventory Control • Accounts Payable • Accounts Receivable • Payroll • General 
Ledger • Letter Writer • Word Processing • Mailing • Manufacturing Inventory • Cost Account- 
ing • SalesReporting • Stock Market • Business Statistics • Statistical Analysis • Data Base 
Systems • Medical Billing • Dental Billing • Special Industries • Advanced Accounting • Income 
Tax • Language • Personal Finance • Technical Programs • Insurance • CPA • Law Office • Asset 
Depreciation • Job Cost •Utility Programs • Education • Games • Home Programs • Loans • 
Credit Bureau • Electronics • Test Systems • Sports • Art • DOS Systems • BASIC lessons • 
and hundreds more! 

Send for our free catalog or give us a call today. We also do custom programs as well as buy top 
quality programs. 



Summer Special: 
Complete business system $299.95 
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OYER 400 OF THE DEST 
BUSINESS PROGRAMS FOR 

THE TRS-80 MODEL I 
AND MODEL II IN STOCK 

READY FOR 

IMMEDIATE DELIVERY . 

LET US ANSWER YOUR 
QUESTIONS TODAY. 



Software-Mart 



^-286 



24092 Pandora St • El Toro CA 92630 
(714) 768-7818 T JJ£j -(800) 854-7115 

~S 24 Hour Service 




OUR DEST ADS ARE NOT WRITTEN — 
THEY'RE RUNNING ON TRS~dO's 

* TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation. , 
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THfi ASSEMBLY LINE 



by William Barden, Jr. 



"The algorithm for 

the ping-pong simulation 

is fairly simple, at least 

for this specialized case, " 



In a previous column, we looked at a high- 
speed graphics subroutine called SET. This 
month we're going to finish the discussion of 
high-speed assembly language graphics by 
showing how a modi Tied version of SET can be 
used for graphics that may even operate too 
fast for some applications! (And they said that 
assembly language wasn't useful. . .). 

The new version of SET is shown in Listing 
1 . It has been modified to provide a reset capa- 
bility. As in the old version, the position of the 
pixel to be set or reset is in the HL register pair 
on subroutine entry. The H register contains an 
X value of through 127, while the L register 
contains a Y value of through 47. In this ver- 
sion, however, the A register contains a zero if 
the pixel is to be set and a one if the pixel is to be 
reset. 

To use the subroutine, put a valid value for X 
and Y in the HL register pair, and set the A reg- 
ister to a or 1 . The subroutine will set or reset 
the specified pixel and return to the calling pro- 
gram. 

We won't repeat the discussion of the basic 
operation of the SETRST subroutine except to 
say that it converts the X,Y coordinates into a 
character position (0-1023) and bit position 
within the character position (0 through 5), and 
then sets or resets a single bit of the 6144 bytes 
within video display memory to change the pix- 
el, or picture element. A complete discussion 
can be found in the previous column. 

This month's version retains all of the old 
code and adds some reset logic. The new code is 
indicated by the boxed-in areas of the figure. 
Setting a pixel involved loading the byte in 
video display memory that contained the pixel 
involved, ORing in a single bit for the pixel 
position, along with the graphics mode bit in bit 
7, and storing the altered byte back in video 
memory. 

Resetting a pixel is very similar. After the 
byte containing the pixel is loaded, the single bit 
for the pixel is reset by ANDing in a mask value 
from the MASK1 table. This mask value has all 
bits set except for the bit to be reset for the pix- 
el. 

How Fast Is This Subroutine 

Let's approximate its speed by a method that 
you can use for other assembly language code. 

Follow the path of SETRST for either func- 
tion and count the number of instructions as if 
you were the TRS-80. Assume some nominal 
case for loops. Going through the code we have 
lines 740,50,60,70,80,90,800 and 810. Line 800 
is executed in about one-half the time, and we'll 
add it in here. Lines 810 through 840 constitute 
a divide by three through successive subtrac- 
tion. Assuming an average Y of 24, we have 




X.L, ... 









1 UNIT OVER i 

! ! I I I | | 

Fig. i. 



about 27 instructions. Seven lines plus 27 is 34; 
plus seven more through line 910 is 41. 

At line 920 we have another loop of six itera- 
tions, making twelve more instructions for a 
total of 53. From here there are no more loops, 
and we can simply count the lines, assuming 
either a SET or REST path. I count 14 more for 
SET and 15 for RESET, for a grand total of 67 
or 68. Let's call it 68 instructions to perform 
either a SET or RESET pixel. 

Now, how do we convert the instructions to 
execution time? We know that the TRS-80 runs 
at 1.774 megahertz, and that the execution 
times in the Radio Shack or Zilog assembly 
manual are in terms of a 4-MHz clock. Conse- 
quently, the TRS-80 runs 4/1 .774 times slower 
than a 4-MHz processor (except for you readers 
who have installed the 144-MHz clock speed-up 
kit, of course). 

Let's assume an average instruction speed of 



2.5 microseconds for 4 MHz. In TRS-80 terms, 
this is 2.5 * 4/1.774, or about 5.6 microsec- 
onds. The total execution time to set or reset 
one pixel in the SETRST subroutine, then, is 
about 68 * 5.6 microseconds or 380 microsec- 
onds, or .4 milliseconds (.4 thousandths of a 
second). Putting it another way, the number of 
pixels or points that can be processed by SET- 
RST is about 2500 per second. 

AL VS BASIC Graphics 

How does this speed compare with BASIC? 
The SET, RESET commands in BASIC operate 
at about 122 pixels per second. Setting or reset- 
ting random pixels by POKEing values at best 
is about 800 pixels per second for truly random 
data. Strings are great for contiguous data on 
the same line, but too inefficient for random 
data. (For a discussion of these methods and 
their use see Radio Shack's new book Program- 
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ming Techniques for Level II BASIC by 
William Barden, Jr. Uh. . .no relation.) 

A speed of 2500 points per second sounds 
very fast, and for some applications it is. As a 
matter of fact, for some applications, it's sim- 
ply much too fast! An example is shown in the 
driver code below. A driver program, by the 
way, is generally main line code that is the pri- 
mary code of an application. In this case, the 
driver produces a ping pong ball that bounces 
between the limits of the screen. 

The driver is shown in Listing 2. We'll ex- 
plain the algorithm and then go part-by-part 
through the driver program so that you can see 
how it works. 

The algorithm for the ping-pong simulation 
is fairly simple, at least for this specialized case. 
We've defined the angle to be used as "one unit 
up for one unit over" as shown in Fig. 1. As 
each pixel is rectangular, this amounts to a 
rather acute angle with the top and bottom 
boundaries, as shown in the figure. 

As the angle after the impact equals the angle 
before impact, we can always work with "one 
unit up for one unit over." The current position 
is given by X and Y. In standard TRS-80 nota- 
tion: X = through 127, left to right and Y =0 
through 47, top to bottom. The next position is 
calculated by adding increments, or "deltas" to 
boi h X and Y . These deltas will always be a plus 
one or a minus one to give the next X or Y 
value. 

Whenever the ping-pong ball pixel hits a 
boundary, the current delta associated with 
that boundary is reversed. Boundaries occur at 
X = 0or 127 and Y=0or47. Suppose that the 
ball (pixel) is traveling towards the Y =0 boun- 
dary as shown in Fig. 2. The delta X value is + 1 
and the delta Y value is - 1 . If the next Y value 
will be 0, the new deltas will be X = + 1 (un- 
changed) and Y = + 1 (negated). 

The algorithm may be stated as follows: 

1. If current X is or 127, negate delta X. 
Leave delta Y. 

2. If current Y is or 47, negate delta Y. 
Leave delta X. 



Simulating Motion 

To simulate motion of a dot, the next pixel 
must be turned on, and the previous pixel must 
be turned off rapidly. (There are some aesthet- 
ics to this that are not easily defined, such as the 
length of time between turning on the next pixel 
before turning off the old, but we'll plunge 
ahead without regarding them.) The driver pro- 
gram in Listing 2 first calls SETRST to set the 
new pixel, and then calls SETRST to reset the 
old pixel. 

The section of code from line 160 through 
line 230 clears the screen by storing an 80H val- 
ue in all 1024 character positions. The value 
80H sets the graphics mode (bit 7 is a one) and 
sets the six pixels of each character position to 
0. An interesting point: A blank character posi- 
tion may be made up of an 80H character, or an 
ASCII blank, 20H. Setting all character posi- 
tions to 80H initializes all character positions to 
graphics mode. A count value of 1023 is decre- 
mented down to - 1 by adding - 1 to the value 
in HL. A "no carry" is produced only when the 
contents of HL goes from to - 1. 







006 90 


;* SUBROUTINE 


TO SET OR RESET A PIXEL GIVEN X (0-127) * 








;* IN I 


REGISTER AND Y (0-47) IN 


L REGISTER. * 






00710 


i* (A)= 


3 FOR 


SET, 1 FOR RESET. 


* 


eoso 

605E 


PS 

sc 


007 30 
007 40 
00750 


: 










SETRST 


PUSH 
LD 


AF 


SAVE SET/RESET FLAG I 


E,H 


X 




80SP 


7D 


00760 




U3 


A,L 


Y 


8060 


CE35 


00770 




SRI. 


E 


GET CHAR POSITION (0-63) IN E 


8062 


1600 


007 80 




LD 


D,0 


SET COLS TO 


8064 


3001 


007 90 




JR 


NCSET10 


GO IF COL*=0 


8066 


14 


00800 




INC 


D 


COL*=l 


8067 


06 ?? 


00810 


SET10 


:,[) 


B,0FFH 


-1 TO B 


8069 


04 


00820 


SET20 


INC 


B 


BUMP QUOTIENT IN B=LINEI 


806A 


D603 


00830 




SUB 


3 


SUCCESSIVE SUBT POR /3 


806C 


F26980 


00840 




J!> 


P,SET20 


GO I? HOT NEGATIVE 


806F 


C603 


00850 


SET2S 


ADD 


A, 3 


ADD BACK FOR REMAINDER=ROW* 


8071 


07 


00860 




RLCA 




(R0WJ)*2 


807 2 


82 


00870 




ADD 


A,D 


(ROWS) «2+COL*=BIT POS 


807 3 


4F 


00880 


SET27 


LD 


C,A 


SAVE BIT POS IN C 


807 4 


68 


00890 




I.D 


L,B 


LINE > 


807 5 


2600 


00900 




CD 


H,0 


NOW IN HL 


8077 


0606 


00910 




LD 


a, 6 


SHIFT COUNT 


807 9 


29 


00920 


SET30 


ADD 


HL,HL 


MULTIPLY LINE«*64 


807A 


10FD 


00930 




DJNZ 


SET30 


LOOP TIL DONE 


807C 


1600 


00940 


SET32 


LD 


D,0 


DE NOW HAS CHAR POS 


807E 


19 


00950 




ADO 


HL,DE 


(LINE!) *64+CM»o POS IN HL 


807 P 


11003C 


00960 




LD 


DE,3C0OH 


STARi' OF VIDEO 


8082 


19 


00970 


SET34 


ADD 


HL.DE 


(LINEJ)*64+CHAR POS+3C0OK 


8083 
8085 


0600 
PI 


00980 
00990 




LD 


B,0 


BC NOW HAS BIT POS 






POP 


AF 


GET SET/RESET FLAG 




8086 


B7 


01000 




OR 


A 


TEST FLAG 


8087 
8089 


200C 
DD21A180 


01010 

oie20 




JR 


NZ, RESET 


GO IF RESET 






:,;i 


IX, MASK 


START OF MASK TABLE 




808D 


DD09 


01030 




ADD 


IX, BC 


POINT TO MASK 


808? 


7E 


01040 




LD 


A, (HL) 


LOAD PIXEL 


8090 


DDB600 


01050 




Oft 


(IX) 


SET PIXEL 


8093 


77 


01060 


SET36 


LD 


(HL),A 


STORE IN VIDEO 


8094 
8095 


C9 

DD21A7 80 


01070 
01080 




RET 




RETURN 




RESET 


LD 


IX,MASK1 


RESET MASK TA3LE 




8099 


DD09 


01090 




ADD 


IX, 3C 


POINT TO MASK 


809B 


7E 


01100 




I.D 


A,(HL) 


LOAD PIXEL 


809C 


DDA600 


OHIO 




AND 


(IX) 


RESET PIXEL 


809? 
80A1 


18F2 
81 


01120 
01130 




JR 


SET36 


GO TO STORE, RETURN 




MASK 


DEFB 


81H 


MASK TABLE 




80A2 


82 


01140 




DE?B 


8211 




80A3 


B4 


01150 




DE?B 


84 h 




80A4 


88 


01160 




DEFB 


88B 




80A5 


90 


01170 




DEFB 


9011 




80A6 
80A7 


A 13 
FE 


01180 
01190 




DEFB 


0AOII 






NASK1 


DEPB 


OF EH 






80A8 


FD 


01200 




DEFB 


0FDH 






80A9 


KB 


01210 




DEFB 


0FBH 






80AA 


P7 


01220 




DEFB 


0F7H 






80AB 


EP 


01230 




DEFB 


OEFH 






80 AC 
0000 


DP 


01240 
01250 


1 


R£FB_ 


0DFH 






END 








00000 TOTAL ERRORS 




















Listing I. 





Y = 








































Y = 1 


















II 


















Y = 2 
















„ 








1 
















Y = 3 














1 












. 














Y = 4 












1 
















. 












Y = 5 










1 




















1 










Y = 6 








I 
























„ 




* 




• 



































7 



Delta X=1 
Delta Y = -1 



Fig. 2. 
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8000 


00100 




ORG 


8000H 


; CHANGE AS REQUIRED 




00110 


****** 


******* 


************** 


***************************** 




00120 


* TEST 


DRIVER 


FOR SETRST SUBROUTINE, SIMULATES A PING- * 




00130 


* PONG 


TYPE COMPUTER GAME E 


V MOVING A SINGLE PIXEL. * 




00140 


****** 


******* 


**** ********** 


***************************** 




00150 










8000 3E80 


00160 DRVR 


I.D 


A, 8911 


; GRAPHICS ALL OFF 


8C02 DD21003C 


00170 




I.D 


IX.3C00H 


; SCREEN START 


8006 11FFFF 


00180 




LD 


DE,-1 


; INCREMENT 


8009 21FF03 


00190 




LD 


HL.1023 


;« OF BYTES 


800C DD7700 


00200 


LOOP 


LD 


(IX) ,A 


; STORE CHARACTER 


8O0F DD23 


00210 




INC 


IX 


;BUMP POINTER 


sen 19 


00220 




ADD 


HL,DE 


; DECREMENT COUNT 


8012 DA0C80 


00230 




JP 


C , LOOP 


;GO IF NOT 1024 


8015 211010 


0O24C 




LD 


HL, 101011 


;X=16, Y=16 


8018 01FF01 


00250 




t,c 


BC01FFH 


; DELTA X=l, DELTA Y=-l 


801B 7C 


00260 


LOOPl 


LD 


A,H 


;GET CURRENT X 


801C 80 


00270 




ADD 


A,B 


;ADD DELTA X 


801D 67 


00280 




LD 


H,A 


; RESTORE 


801E 7D 


0C29O 




LD 


A,L 


;GET CURRENT Y 


801F 81 


00300 




ADD 


A,C 


;ADD DELTA Y 


8020 6F 


00310 




LD 


L,A 


; RESTORE 


8021 225B80 


00320 




LD 


(LAST) ,HL 


;SAVE SET POSITION 


8024 E5 


00330 




PUSH 


HL 


;SAVE CURRENT POSITION 


8025 C5 


00340 




PUSH 


BC 


;SAVE DELTAS 


8026 AF 


00350 




XOR 


A 


;FOR SET 


8027 CD5D80 


00360 




CALL 


SETRST 


;SET PIXEL 


802A CI 


00370 




POP 


BC 


; RESTORE DELTAS 


8023 El 


00380 




POP 


HL 


; RESTORE CURRENT POSITION 


802C 7C 


00390 




LD 


A,H 


;GET CURRENT X 


802D B7 


00400 




OR 


A 


;TEST FOR ZERO 


802E 2804 


00410 




j;< 


Z.JMP1 


;GO IF 


8030 FE7F 


00420 




CP 


127 


;TEST FOR 127 


8032 2004 


00430 




JR 


NZ,JMP2 


;GO IF MOT 127 


8034 78 


00440 


JMP1 


LD 


A,B 


;GET DELTA X 


8035 ED44 


00450 




NEG 




; NEGATE 


8037 47 


00460 




I,D 


B,A 


; RESTORE IN B 


8038 7D 


00470 


JMP2 


LD 


A,L 


;GET CURRENT Y 


8039 B7 


00480 




OR 


A 


j TEST FOR ZERO 


803A 2804 


004 90 




JR 


Z.JMP3 


;GO IF 


803C FE2F 


00500 




C? 


47 


;TEST FOR 47 


803E 2004 


00510 




JR 


NZ.JMP4 


,-GO IF NOT 127 


8040 79 


00520 


JMP3 


LD 


A,C 


;GET DELTA Y 


8041 ED44 


00530 




NEG 




; NEGATE 


8043 4F 


00540 




LD 


C,A 


; RESTORE IN C 


8044 E5 


00550 


JMP4 


PUSH 


HL 


;SAVE CURRENT POSITION 


8045 C5 


00560 




PUSH. 


BC 


;SAVE DELTAS 


8046 210005 


00570 




LD 


HL,5O0H 


;FOR DELAY 


8049 01FFFF 


00580 




LD 


BC,-1 


; DECREMENT 


804C 09 


00590 


LOOP 2 


ADD 


HL,BC 


; DECREMENT COUNT 


804D 38FD 


00600 




JR 


C, LOOP 2 


; DELAY HERE 


804F 2A5380 


00610 




:.d 


HL, (LAST) 


;GET LAST SET 


8052 3E01 


00620 




LD 


A,l 


;FOR RESET 


8054 CD5D80 


00630 




CALL 


SETRST 


; RESET PIXEL 


8057 CI 


00640 




POP 


BC 


; RESTORE DELTAS 


8058 El 


00650 




POP 


HL 


.•RESTORE CURRENT POSITION 


8059 18C0 


00660 




JR 


LOOPl 


[CONTINUE 


805B 0000 


00670 


LAST 


DErW 





;LAST POSITION 




006 80 


. ************* 


I****************************************** 










Listing 2. 





Line 240 initializes the current X,Y and delta 
values. A delta X of 1 means that the dot moves 
to the right; a delta of - 1 means that the dot 
moves upward. 

The code from line 260 through 660 is the 
main loop of the driver program. The code 
flows from top to bottom with only one imbed- 
ded loop from line 590 through line 600. 

The code at LOOPl adds the current delta X 
to the current value of X and the current delta Y 
to the current value of Y. This produces the 
new X,Y position. This position is saved in 
variable LAST for later use. After the new X,Y 
position is computed, a call is made to SETRST 
for setting the pixel. The HL and BC register 
pairs are saved in the stack before the call and 
restored after the call as SETRST destroys the 
contents of both. 

The code from line 390 through 550 per- 
forms the boundary test. If the dot has just 
been written to a screen border (X = or 127, 
Y = or 47), the delta X or Y is negated, chang- 
ing the direction away from the border on the 



next computation of X,Y. 

The code from line 570 through 600 is simply 
a time delay that delays by decrementing the in- 
itial value in HL by one each time through the 
loop. A minimum delay occurs with a LD 
HL.0, and a maximum delay occurs with a LD 
HL.65535. 

The last action in the driver is to CALL SET- 
RST to reset the pixel set previously before the 
time delay. The position of the pixel is in vari- 
able LAST, and this is loaded into HL with a 
subsequent call to SETRST. 

The program loops continuously, moving 
the dot forever. 

If you will enter the code into your Editor/ 
Assembler, assemble and execute it, you will 
see a moving dot virtually identical to a elec- 
tronic ping-pong game that bounces back and 
forth at angles to the boundary. It is not diffi- 
cult to see how an actual ping-pong or other ac- 
tion game could be programmed this way. 

One of the most interesting things about the 
method is that the speed of the dot is much too 



fast when the minimum delay is used in the loop 
at 570. The dot moves so rapidly through the 
screen that it looks like a random pattern! A de- 
lay count of 500H slows it down to acceptable 
levels. Try experimenting with various delay 
counts and observe the effects. 

Is complicated animation possible using 
SETRST? Yes, with some limitations. One of 
the first considerations is speed. Even though 
the dot moved (and having moved, wrote on) 
and had to be slowed down considerably, writ- 
ing a series of dots for the frame of an animated 
picture is a different matter. 

If the number of pixels that change per frame 
is "sparse," then the old pixels can be reset and 
a new group written. Suppose that one third of 
the pixels are on in a frame and thai roughly 
the same number are to be on in subsequent 
frames. If one-third are reset, and a new one- 
third are then set, about 4096 calls are made to 
SETRST. It requires slightly under two seconds 
to process the sets and resets, making the up- 
dating process about one-half frame per sec- 
ond, which is certainly no Fantasia. 

Taking a different analysis, ask yourself the 
question: How many pixels can be updated for 
a frame rate of 10 frames per second? If 2500 
pixels can be processed per second, then about 
125 pixels can be processed per frame, not 
counting the overhead of grabbing the data rep- 
resenting the pixels to be set and reset. This is 
still a fast enough rate to merit some experi- 
mentation in animation. It will be left up to the 
reader as a study assignment . . . 

Another factor in animation, of course, is 
the method of digitizing the data. How are a 
series of drawings converted, easily and rapid- 
ly, into a set of X, Y points for SETRST to use? 
There appears to be no answer to this question, 
at least with existing I/O devices. What is re- 
quired is some kind of scanning digitizer. 

A third problem is accessing the data. Cer- 
tainly disk storage is fast enough to keep up 
with the data for display. If the data is arranged 
in table form, then it can be scanned sequential- 
ly and rapidly by using some of the techniques 
discussed in last month's column. A possible 
scheme for storing the data is to use three bytes 
for each data entry in a table. The first byte rep- 
resents the SET/REST code (0 or 1), and the 
next two bytes represent the X and Y values re- 
spectively. Other bells and whistles, such as a 
function code (such as 2) for time delay are also 
feasible. The actual overhead in accessing ta- 
bles of data for SETRST would be minimal 
compared to the processing time of the set and 
reset. 

TABLE DEFB ;SET 

DEFW0607H ;X = 6.Y = 7 
DEFB I ; RESET 

DEFB 0508H ;X = 5,Y = 8 

Next month we'll have the results of the sec- 
ond Assembly Line Programming Contest in 
which readers strive to write a multiply subrou- 
tine. (Would you believe a reader discovered a 
multiply instruction among the hitherto undis- 
covered Z-80 superset of 8123 instructions?) ■ 
For those of you who would like to contact 
me directly with problems or contest entries, 
write: 

William Barden 

28182 Palmada 

Mission Vicjo. CA 92692 
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MEMORY EXPANSION FOR TRS-80 

All you have to remember is to plug it in 



■* 



Memory expansion. It's a field packed with 
intriguing theories. For instance, it has been 
suggested that the memory areas of the 
human brain are transferable from one body 
to another, like transplanted kidneys. In man 
or machine, a larger memory is always a 
welcome acquisition. 

If you are interested in expanding your 
TRS-80 memory without shelling out dollars 
for a full blown expansion interface, we have 
just the solution. 

Introducing the MT-32. Our new, brilliantly 
designed Printer/Memory expansion module 
for the TRS-80. This unit will add 16K or 32K 
of dynamic RAM to your basic 16K machine. 
The module also contains circuitry to drive 
Microtek's MT-80P dot matrix printer, or any 
other Centronics-compatible printer. 

'No hardware modification to your TRS-80 is 
required. Just plug into your bus connector 
and you are ready to go. 

All Microtek products are covered by a one 
year warranty. 



* 



TRS-80 is a Registered Trademark of Tandy Corp. 



Four configurations are available: 



Without RAM in kit form 
(MT-32K @ $79.50) 



Without RAM assembled and tested 
(MT-32A @ $99.50) 



With 16K RAM assembled and tested 
(MT-32B @ $159.50) 



With 32K RAM assembled and tested 
(MT- 32C @ $199.50) 



Available from Microtek 

or your nearest computer dealer. 




MICROTEK"* 



9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. (714) 278-0633 
TWX 910-335-1269 
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MEMORY TRANSPLANT 
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^APPLICATIONS 



by Dennis Kitsz 



''When BASIC executes, 



it is regularly sweeping through 

parts of the Level II reserved 

RAM, a section of memory 

inaccessible to the user. . . 



• • E xecution dashes madly hither and 
JL ^yon; the TRON function gives a good 
picture of the execution path, but lines scroll 
wildly up and out before I can begin to see what 
any of them are." 

Indeed, anyone trying to find out which line 
just executed a clear-screen command would 
agree with Mr. McRae. "Do you know any 
procedure for single-stepping in BASIC?" 

When BASIC executes, it is regularly sweep- 
ing through parts of the Level II reserved 
RAM, a section of memory inaccessible to the 
user because of the BASIC program itself. In 
this area, calculations are stored, data moves in 
and out from tape, and much other vital, but 
variable information is held. 

The authors of the language anticipated fu- 
ture expansions of many kinds, and so also pro- 
vided a "telephone switchboard" arrange- 
ment, whereby every major ROM activity first 
loops through some RAM to find its next elec- 
tronic pathway. We can intercept any loop at its 
RAM switchboard, patching in various rou- 
tines such as key debounce, upper/lowercase 
software, time/date, and so on. For example, 
the keyboard scan sweeps through hex loca- 
tions 4016 to 4017; video passes through 401E 
to 401 F; a line printer would use 4026 and 4027. 

Single Stepping 

To single-step BASIC, we intercept the BA- 
SIC "interpreter", which can be collared at lo- 



cations 4004 and 4005. The entire process is but 
three steps: 

1 . Grab hold of the interpreter loop and di- 
vert it to the single-stepper. 

2. Before it can continue to interpret the next 
step, have it wait for a human go-ahead 
signal. 



"Pat rang me up 

at bargain rate time, 

only he lives 

in California. " 



3. Delay it slightly before letting it move on 
to its original destination, in order to fol- 
low it better. 

Program Listing 1 presents the 28-byte pro- 
gram, the first part of which is devoted simply 
to setting up the program. Line 10 assigns the 
start of our intercept routine to the HL register, 
line 20 patches it into the interpreter at 4004/ 
4005 hex, and line 30 jumps back to a BASIC 
"ready" at 06CC. 

The actual stepping routine is a mere 19 
bytes. It first saves the two active register pairs 







00000 




ORG 


7FE4H 




32740 DECIMAL 


21 ED 7F 




00010 


SETUP 


LD 


HL, START 




ADDRESS TO PATCH 


22 04 40 




00020 




LD 


(4004H),HL 




THIS IS PATCH TO BASIC 


C3 CC 06 




00030 




JP 


06CCH 




"READY" WHEN DONE 


F5 




00040 


START 


PUSH 


AF 




SAVE ACCUM. & FLAGS 


C5 




00050 




PUSH 


BC 




SAVE COUNTER IN USE 


3A 80 38 




00060 


LOOP 


LD 


A,(3880H) 




SHIFT KEYBOARD ROW 


A7 




00070 




AND 


A 




TEST FOR ZERO 


28 FA 




00080 




JR 


Z.LCOP 




GO BACK IF NO KEY 


01 00 20 




00090 




LD 


BC.2000H 




LOAD UP DELAY VALUE 


CD 60 00 




00100 




CALL 


0060H 




DELAY ROUTINE IN ROM 


CI 




00110 




POP 


BC 




RESTORE B & C REGISTERS 


Fl 




00120 




POP 


AF 




RESTORE A a F, TOO 


C3 78 ID 




00130 




JP 


1D78H 




BACK WHERE YA SHUDDA BEEN 






00140 




END 


SETUP 




SET SLASH (/) ENTRY 










Program Listing I. 








10 


POKE 16553,255 


: REM * 


CORRECTS LEVEL II RE/ 


tD-DATA ERROR 




2C 


FOR X «• 32740 TO 32767 


: READ A : POKE 


X,A 


NEXT X 




30 


POKE 


16526,228 


: POKE 16527,127 : MZ = 


USR 


0) 




40 


DATA 


33,237,127 


,34,4,64 


,195, 204, 6, 245, 197, 5i 


,128,56 




50 


DATA 167,40,250,1,10,32, 


205,96,0,193,24 


,195 


120,29 










delay 
















Program Listing 2. 







(AF and BC). At line 60, the accumulator is 
told to obtain the value present at address 3880 
hex — the keyboard row containing only the 
shift key (and a control key if you've modified 
your unit). By itself, Shift offers a BASIC pro- 
gram no information, thus making it an ideal 
"single-stepper" key. 

If Shift is not depressed, there will be no data 
present at address 3880H. Thus, zero AND 
zero (the accumulator ANDed with itself) sets a 
"zero flag," and line 80 is forced to loop back 
and check again. When at last Shift is de- 
pressed, the loop falls through, and the pro- 
gram continues to line 90. 

At that point, register pair BC is assigned a 
hex value of 2000 (This is an arbitrary value, 
and may be lengthened.), and next CALLs a 
delay routine available in ROM at address 
0060. At the end of the delay, both registers are 
restored, and the program proceeds with a 
jump to 1 D78 ... the original value found in 
locations 4004 and 4005. 

It's just about as simple a utility as can be 
found, and the machine version loads from 
tape in one-half second. Two cautions should 
be noted: First, load this program only after the 
BASIC program you wish to step through is in 
place, because this routine single steps CLOAD 
as well! If you use the BASIC version (Listing 
2), key it in at the end of your BASIC program 
under scrutiny, and run it separately; the lines 
may then be deleted. Secondly, remember to 
protect memory at 32739 for your 16K ma- 
chine. 

With the given delay, execution is slowed to 
about five BASIC actions per second; a mea- 
sure of that rate is the short stepper program 
itself, which takes six seconds to list five lines. 
Reducing the delay to 0001 will bring program 
operation closer to normal speed. 

Readers Respond 

Many more readers have written or called 
than need to; here are a few suggestions before 
you dial my number: 

•Daniel from Utah was the fourteenth per- 
son to call about "typos" in Babyroot. 
Never trust your own proofreading; have a 
friend, preferably one who knows nothing 
about computers, read the program aloud 
to you. Dan's 12-year-old son caught the 
mistake. 

•Roy phoned from Illinois angrily demand- 
ing to know why a program wouldn't work 
on his disk-based system. This column is 
biased toward the "standard" TRS-80, 
which is 16K Level II. If you've got the lux- 
ury of extras, it means you've also got a bit 
of conversion work to do. Disk users, 
please read your manuals instead of sending 
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"corrections" of my failure to include 
DEFUSR statements. Level II has but one 
USR command. 

»Davc wrote from New York asking why his 
control key wouldn't function. It is vital to 
understand the operation of any published 
modification. Minor inconsistencies are al- 
most inevitable, but understanding the the- 
ory of operation will assist your diagnosis. 
Dave's problem was an incorrectly routed 
wire which was easily eked out by running a 
one-line BASIC program. 

•From Maine, Rick called with a computer 
buzzing angrily after he attempted a re- 
verse-video alteration. If you do call, have 
your computer, tech manual, soldering 
iron, wire, paper, pencil, and telephone 
sharing the same desk. When Rick's son 
called back (Dad had left for a school board 
meeting.) with everything at hand, a suc- 
cessful repair — a wayward solder ball — 
was ten minutes away. 

•Pat rang me up at bargain rate time, only he 
lives in California. I am not alert at 2:45 



Anecdotes Too 

It's lazy summer anecdote time . . . how 
about this one? John from New York State is a 
TRS-80 enthusiast, and was attempting some 
hardware modifications. The local Radio 
Shack begged ignorance over wire-wrap wire 
("But that's got no insulation," said the 
clerk.), so John used 18-gauge solid copper. 

Well, that's good for light bulbs and power 
tools, so I need not detail the mess in which 
John shortly found himself. A desperate voice 
greeted me late one evening, relating the grim 
escapade. The computer had failed to exhibit 
normal signs of life, so John took it to Radio 
Shack for a repair estimate. It was returned 
with a quote of $460. Four-hundred-sixty 
dollars! 

Radio Shack does not take kindly to modifi- 



For readers who'd like to contact Dennis directly, try writing: 
Roxbury, VT0i669. 



cations, and discourages repairs by giving un- 
reasonably high estimates. 

John, soon to be an electrical engineering 
student, was mortified. Mom didn't know, and 
he was loathe to break the news. What could he 
do? 

A bit of telephonic diagnosis narrowed his 
options. During our conversation, John also 
revealed that, faced with the potential Radio 
Shack repair ticket, he had tried to remove and 
replace the integrated circuit which he believed 
to be the culprit. His TRS-80 was, it seemed, a 
bit messy. He had lifted traces and burned the 
board with an overheated soldering iron; the 
desperation grew in his voice. 

I agreed to take on the repair, if he shipped 
the unit and all the bits and pieces that were left 
over from his attempts. All ye weary who 
labor, take heart. John's TRS-80 was in about 
the worst condition I had seen since a buddy's 
PDP-1 1 had been zapped by lightning during a 
very macho game of "chicken," played while 



an electrical storm raged over a meeting of the 
Vermont Computer Guild. 

I bridged the traces on John's 80, cleaned the 
board and discovered the problem in a fried 
buffer chip — a 75-cent item. It was little more 
than an hour's work . . . four-hundred-sixty 
dollars indeed! I installed the modifications 
John wanted and shipped the unit clean and 
sparkling back to New York. 

Two days later, another phone call. The 
voice had the same hard edge of panic. The 
postal service had delivered the box 
—crushed, gashed and not working. The 
postmaster said he'd have to have the unit for 
eight weeks — (for "examination" — 
while a claim was being processed. 

John took it apart instead. He found the dif- 
ficulty in the ROM board's connections, 
shaken loose by its ordeal. 

The TRS-80 is working again, three weeks 
and much anguish later. The moral? No moral. 
It's summer. Just watch that 18-gaugc wire. ■ 



9999 PRINTS I." " : AS = INKKYS : IF AS = "" THEN 9999 ELSE RETURN 

Plug your computer's cassette output into an audio amp. and Insert a GOSUB 9999 at any plate in a program ihai needs 

your attention, li will call you; press a key and ilic program continues. 

9999 AS ^ INKFYS : IF AS = I "HEN 9999 ELSE I. PRINT AS : GOTO 9999 

Here's a quick electronic typewriter. It's non-correcting, for sure, bm beats loading a word processing program 10 add a 
few comments 10 a printout. 

9999 FOR X 17129 TO 32767 : PRINT CURS (PEEK (X) ): : NEXT X 

I'm illis one in at the end of a program and have a look at how a BASIC program and its variables arc stored in memory. If 

you run X from zero 10 12288. you can take a peek into ROM as well. 

9999 POR X = I TO 50 : OUT 255.0 : OUT 255.15 : NEXT X : OUT 255,PliliK(16445) : RETURN 

This is a subroutine that rattles the relay and jitters the screen; great lor some dull games that might need some life. 

Finally, poke your 80 in ihe ribs with these: 

POKE 16405.0 and kill the keyboard; POKE 16405.1 to gel it back. Don't do thai from command level. 

POKE 16413.0 kills video: get it back with POKE 16413.7. 

One Liners 



Features o. 



H REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER 
2 INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 

SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR 
B DESIGNED TO MATCH TRS-80* STYLING FROM THE BLACK AND 

SILVER BORDER TO THE LETTERING TYPE FACE 
H FITS BOTH THE MODEL I AND MODEL II 
■1 DOES NOT VOID THE COMPUTER WARRANTY 
i ENHANCES THE APPEARANCE OF THE MONITOR 
PROVIDES A DURABLE, EASY TO CLEAN SURFACE 

Name and Address Typed or Clearly Printed with 
Check or Money Order for S9.95* Per Unit, COD's 
•PRICE INCLUDES SHIPPING aro $2.50 Additional Per Order. Florida Residents 

TRS-80 IS A TRADEMARK OF TANDY Add A % Sales Tait. 

SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^373 




This product resulted from the 
following: Psycho logical studies 
show green to be most pleasant 
for extended viewing. Eye sensi- 
tivity peaks in toe green band 
of the speotrum. Contrast is en- 
hanced by reducing the ambient 
light falling on • CRT. These 
three factors combine to fight 
operator fatigue. Finally, we 
wanted more than Just function. 
We wanted a filter that visually 
matched TRS-38 styling. Pictured 
here is proof of our success/ a 
product we ere proud of. 



■Reader Service index— see page 194 
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GET QUALITY STOCK, IMPRINTED 

CHECKS AND STATEMENTS WITH A 

PROFESSIONAL LOOK. THERE'S NO 

NEED TO RE-FORMAT — ORDER THE 

FORMS THAT FIT YOUR SOFTWARE. 



-: 


_ 









Radio Shack 



Osborne 









\V- 




<="=* 1^77 



Standard Radio Shack payroll checks, payables check, and 
statement. These forms are designed for use on fixed and 
adjustable pin-feed printers. Also, a 20% first order discount 
is available for these forms only. 




Peachtree/TCS 



O 



Standard Peachtree and TCS payroll and payables check. This 
form is available in one or three part. 




Structured 
Systems 

Group 









- 




s 



\* 



I 



Standard Structured Systems checks and statement. 



SEND FOR FREE SAMPLES AND BROCHURE TODAY! 

* Minimum orders as low as 500 

* 3 week STANDARD or 9 day RUSH delivery 

* Nationwide, factory-direct, freight paid service 

* Free set-up samples available upon request 

* Library of forms available for many other formats 




Checks 
To-Go 



^46 



TRS-80 and Radio Shack are registered trademarks of Tandy Corp. 




• 



8384 Hercules St. • La Mesa, CA 92041 • (714) 460-4975 
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#? ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



"If this is an example of 
financial software. . . in the 

future, businessmen and 
professionals may rejoice. " 



In the January issue of 80 Microcomputing, I 
described basic requirements for automated 
accounting recordkeeping systems and dis- 
cussed in detail some of the currently available 
financial software. The introduction of the 
Model II, and the development of more ad- 
vanced software has increased the range of rec- 
ordkeeping alternatives available to microcom- 
puter users. With this in mind, I think it is now 
appropriate to discuss some financial reporting 
concepts before reviewing the latest software 
available. 

Recordkeeping at Fault 

In our practice my partners and I visit many 
clients who complain about their financial re- 
ports. Frequent complaints include, "my in- 
come statement is always late," or, "when it ar- 
rives I don't understand what it is trying to tell 
me." When the facts are probed, the account- 
ing recordkeeping system is usually at fault. 
Often it is full of extraneous detail and too 
complicated to be practical for preparing man- 
agement reports. 

In a more compact system data does not have 
to subdivided, and the chance of misclassifica- 
tion is significantly reduced. 

If you are installing a microcomputer ac- 
counting system, take the opportunity to re- 
view your chart of accounts with the help of 
your accountant. 

Consider how you plan to use a system such 
as Radio Shack's General Ledger II and its re- 
ports to control your business. For example, 
how do you look at sales? Do you sell only one 
commodity or many? If you sell many different 
types of items, do you need to know sales, sales 
returns and net sales by type? 

If you sell only three items, such as nails, 
screws, and bolts, your recordkeeping system 
will have to keep track of the dollar value of all 
sales and related transactions for each of these 
categories. This includes sales, sales returns, 
purchases and inventory categories. Thus, to 
determine the net profit contribution for each 
category, you must keep 12 different account- 
ing records. 

The general ledger recordkeeping system is 
not the best place to analyze gross profit by 
item. Radio Shack has provided another system 
for this purpose called the Inventory Manage- 
ment System. This system could be used with 
the accounting system as a control. 

The same concepts of simplified recordkeep- 
ing should govern the choice of operating ex- 
penses. If your business is run from one office, 
then all you need is one cost center. However, if 
there is a warehouse and a sales office, each fa- 
cility should have its own cost center, and each 
will have its own group expenses. Although 



there are some benefits with this approach there 
are also problems. For example, if each of these 
facilities are located under the same roof, you 
must allocate common services, such as light, 
telephone and power to each cost center. 



Model I to Model II 

Let's take a look at Radio Shack's General 
Ledger II and see how it compares to the Model 

I General Ledger previously reviewed. There 
are many similarities. Like its predecessor, 
General Ledger II has categories to group ac- 
counts to facilitate analysis on the income state- 
ment and balance sheet. 

Ledger II, provides ten categories for the in- 
come statement and six for the balance sheet. 
The first three expense categories are pre-de- 
fined as gross sales, sales returns and allow- 
ances and cost of goods sold. If you don't use 
sales returns and allowances or cost of sales, as 
in a service business, these categories shouldn't 
be used according to the documentation. 

Like the Model I, there are categories avail- 
able for the balance sheet. However the Model 

II allows six different categories, current assets, 
fixed assets, current liabilities, long term liabili- 
ties and capital. You define the balance sheet 
during data entry. 

As with the Model I, the posting procedure 
requires the assignment of the document name. 



The machine generates a serial number for each 
document entered. Like the Model I, the Model 
II posting procedures are very slow. However, 
documentation supports the posting procedure 
and an audit trail is generated. 

The General Ledger II program represents a 
usable tool for the average businessman. In ad- 
dition, the greater data on the balance sheets al- 
lows the professional accountant to calculate 
solvency ratios, fund management ratios and 
return on investment ratios which were impos- 
sible in the earlier version. 

The level of documentation that accom- 
panies the General Ledger II represents a signif- 
icant improvement from that furnished for the 
Model I. Radio Shack has provided a sample 
session to be performed prior to initializing 
your own accounts. This session covers enough 
different types of transactions to familiarize an 
operator with the responses required. 

I would like to commend Radio Shack on the 
interactive screen displays used on the General 
Ledger. Account maintenance and updates are 
quite easy. If this is an example of financial 
software which Radio Shack will be presenting 
in the future, businessmen and professionals 
may rejoice. Since the output reports have a 
place to indicate source, there may be some at- 
tempt in the future to intergrate accounts pay- 
able and receivable modules into the General 
Ledger. ■ 
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by Jim Perry 



The subtitle for this month's column could 
be "A Parting Shot," as I am leaving the 
hills of New Hampshire, and 80, for the hills 
and volcanoes of the West Coast. The response 
to 80 has been overwhelming. Everybody seems 
to love it— except for Tandy. But times change, 
and I'm glad to say that Tandy has now asked 
Ed Juge to write a regular column for 80 begin- 
ning this month. The corporate structure in 
Fort Worth seems to have realized the folly of 
its ways. 

But, to mix a metaphor or two, an old 
leapard learns new tricks. Tandy's latest trick is 
their introduction of a new "improved" two- 
chip ROM set for Level II. (Previous versions 
used three chips.) 

At first this seems like a simple enough 
change, and it does away with the messy ribbon 



cable inside your machine. However, there are 
a couple of catches in the new version. First, the 
shift -down arrow combination is not recog- 
nized by the computer. A great deal of software 
uses this combination as a control key, but, of 
course, this software is not "approved" by 
Radio Shack. Such software will now need re- 
working to be compatible with all TRS-80s. 

The second (unannounced) nasty is a differ- 
ent memory size. A two-byte difference may 
not seem important to Fort Worth, but it can 
mean a hell of a lot to beginners — all instruc- 
tions, for example, now give the wrong figure 
— and assembly language programmers — by 
not reserving enough memory. 

Though Tandy says it is trying, the corpora- 
tion still seems to be up to the same "new" 
tricks. Time will tell. ■ 
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REMARKS 

From page 10 

unit at the factory for finding problems in the 
CPU boards. Something along this line would 
be helpful at their service centers. With this unit 
the board is set into a slot and sucked into con- 
tact with probes by a vacuum. A computer in 
the test unit then checks out everything in a 
flash and prints out a ticket showing which chip 
or part must be replaced. 

Naturally, I was busy counting the number 
of systems being tested with an eye to checking 
up on the reports from outside sources on the 
production at present. 1 was satisfied to find 
that my sources were accurate. The number of 
sets in test for their 24-hour burn-in cor- 
responded to the quantities I'd heard projected 
for the first year's production of the Model II. 

I was surprised to learn that about one third 
of the Model I systems are Level I. Our sales of 
Instant Software programs have been under 10 
percent for the Level 1. 1 suspect that most Lev- 
el 1 owners buying software are looking for 
programs which will run on both Level 1 and II, 
since they intend to upgrade. ■ 




Finished units are then put into a further burn- 
in test. 




INSIDER 

by Ed Juge, director of ^^ ^^ 

computer merchandising. Tandy Radio Shack 




Any unit showing any problems or instability is 
rejected and sent back for further checking and 
repairs. They are very picky. 



We at Radio Shack's home office are 
pleased to be offered a monthly column 
in 80 Microcomputing. From a personal view- 
point, I'm looking forward to writing it — I 
knew my reputation for overwriting everything 
would eventually pay off! 

This first effort will be short, since Wayne's 
offer preceded his copy deadline by only two 
days. I'll try to keep you current on happen- 
ings, bugs, fixes, new products, and those 
things which might not appear elsewhere in 
print. I'll try to answer a few often-asked ques- 
tions. But if you send questions, please, under- 
stand, that the time required by my primary 
Radio Shack duties just won't permit individu- 
al replies to mail. 

Trying to Respond 

Unfortunately, the growth of the TRS-80 
marketplace has exceeded our ability to com- 
municate effectively with our owners. Some of 
you have decided we don't care about your 
problems and desires. At Radio Shack we all 
believe this column can improve that situation. 
The column will help us understand your de- 
sires and help you understand how we're trying 
to respond to them, or, in some cases — unfor- 
tunately — why we can't. 

I'll promise you honestly. I'm also going to 
try to convince you that most of us are real guys 
and gals, just like you. Our ranks include elec- 
tronic hobbyists, "gadget freaks," and a few 
ham radio operators — myself included. We 
know our future depends on your satisfaction. 

Every request, every suggestion and, yes, 
every complaint is taken very seriously. Even 
though in a mass market environment we can't 
respond to the individual desires of every own- 
er, your requests tell us when there is enough in- 
terest to justify a product. So, if you can par- 
don us for not being able to answer every single 
one. . . "keep those cards and letters coming!" 

This month, I'll tell you about something we 
introduced in May, called TRS-80 Videotex. 
It's a concept, it's software, and it will soon be 
hardware too. 

TRS-80 Videotex allows you to access infor- 
mation with your own computer or terminal — 
in color or black and white. A 32 by 16 screen 
format, compatible with the popular color 
computers will alleviate wrapped-around infor- 
mation transmitted for 80x24 screens. 

We first introduced the Videotex to a group 
of information suppliers. We suggested the 
benefits of making their information available 
to the general public, especially in one univer- 
sally usable format. 

Ai the same time, we announced an exclusive 
agreement between Radio Shack and Compu- 
Serve, a major computer lime sharing service to 
business, industry, and government. They will 
provide a new "CompuServe Information Ser- 



vice" in TRS-80 Videotex format. Radio Shack 
will market the software for TRS-80s AND 
other popular microcomputers. Target data for 
the service and TRS-80 software is (his month. 
Software for other computers will follow as 
soon as it can be completed. 

(Now, something you gotta' learn about me 
is that I'll try to be accurate about dates, but 
Murphy's Law has taken its loll on enough of 
my predications so as to keep me from becom- 
ing nationally known for uncanny accuracy. 
Please, give me room for a bit of error. As a 
matter of policy, I suggest you don't order any- 
thing from your local Radio Shack store before 
they receive a catalog number. Our data pro- 
cessing system throws unknown items into a bit 
bucket designed to emulate a black hole, and 
your order may never be heard from again!) 

Anyway, back to my story. The CompuServe 
Information Service will initially be available 
between 6 PM and 5 AM CST weekdays, all 
day Saturday, Sundays and holidays. Tor the 
nominal fee of $5 per hour — plus $2 per hour, 
if you must access them through Tymnet in 
your city — you will have available the Associ- 
ated Press news, weather and sports, local news 
from some 10 or 1 1 papers yet to be announced, 
an electronic mail system, a number of 
MicroNct personal computing services and 
Radio Shack Users News. Four or five more 
services are awaiting final negotiation, but 1 
can't be specific until they're sewed up. 

Some services will be available at a sur- 
charge, such as the current MicroQuoic service 
that provides historical stock market data over 
the past six years. You'll always be warned of 
extra charges when you select such a service. 

CompuServe tells me that their Information 
Service and the TRS-80 Videotex concept have 
caused an unprecedented interest. 

Time Sharing Without Delay 

If you've tried time sharing systems where 
the delays were excessive, you'll be pleased to 
know that CompuServe plans a response time 
of five seconds or less, 95 percent of the time! 
I've seen one of their CPUs manage 150 simul- 
taneous jobs with a response time far less than 
one second. 

The TRS-80 Videotex software package will 
cost less than $30 and will include your own ID 
number and password. According to Compu- 
Serve, you'll have one free hour of lime on their 
Information Service before billing, normally 
through your Mastercard or Visa. 

I'll bet you're wondering about the hardware 
1 mentioned. Well, we will be offering, an intel- 
ligent Videotex terminal. The price will be 
S399. The terminal will include a built-in direct- 
connect modem and RF output for your exist- 
ing color TV receiver. Look for further infor- 
mation in two or three months. ■ 
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TRS-80* OWNERS: 

• Let the computer write your "Basic" 

program for you! 

• Draw pictures, animated figures, data 

forms! 

• Create a library of display forms! 

• Produce "Commercial" grade software! 




* Home * 
Animated p ro grammer 
— Games t * t 

Writer * * 

-^ Assembly . 
Language * 
programmer 



, Commercial 
« So/ru>are . 

Houses 



The Magic Cursor is a Revolutionary Family of Products which 
provides a dramatic new method of reproducing drawings and displays 
that you create on your screen. It makes both simple displays and 
complex interactive data input forms. It stores a "BASIC PROGRAM" on 
disk (or tape) ready for you to execute alone or as a subroutine. It 
produces screens in both standard or wide screen. 

It is available for any level 2, 16K or larger system with tape or disk. 
An optional version is now available which creates an assembly language 
program. 

Be sure to pick out the system that fits your present needs and order 
it today, you may upgrade your original copy by paying the difference 
and a moderate service charge. 



MAGIC CURSOR PROGRAMS 

THE MAGIC CURSOR allows you to easily create screens (including 
graphics) on your video. A powerful command then generates the BASIC 
instructions to recreate the screen. For the first time, a program for 
automatic generation of video display forms. (16K Tape or Disk)$24.95 

THE MAGIC CURSOR I additionally makes sophisticated Data Entry and 
Display easy. With magic Cursor I you define the Data Entry or Display 
fields directly on your screen. The definition commands generate the 
BASIC instructions to implement the Data Entry and Display. The magic 
Cursor I has commands which move, center, and duplicate blocks of 
graphical or alpha/numeric displays. Youcan even justify text. (16KTape 
Only) $79.95 

THE MAGIC CURSOR II adds the power to write animated games easily 
in BASIC. The Magic Cursor II allows you to reload previous screens 
either from memory or from Disk. You can then modify them and store 
either the modified screen or only the changes. (32K Disk Only)$99.95 

THE MAGIC CURSOR III will be available soon for the new Model II 
Computer (32K One or more Disks) $149.95 

THE MAGIC CURSOR IV provides the features of Magic Cursor II but 
stores an assembly language program. (32K Disk Only) $99.95 



'Trademark of Radio Shack, a Tandy Co. 



Call 713/474-2484 or order by mail. Master Charge, Visa, Certified Check or Money 
Order accepted Personal Checks require 14 days to clear. COD. or collect calls not 
accepted Software guaranteed for replacement only. Prices subject to change 
without notice. Some programs supplied on cassette tape. For disk versions, the 
cassette supplied will automatically create a disk file. 



NEW RELEASES FROM CCC!!! 



:\ 



The Supply Room 

A sophisticated program that is easy to operate. This unique system 
helps you manage your retail or wholesale inventory of up to 1000 line 
items. Cost may be fractions of a cent, item quantities may be decimal 
values. Automatic cost averaging of updated items and suggested 
sales prices based on gross profit. Transaction reports produced 
during posting functions. Printed reports include: 

1. Transaction Listings 4. Items on Order 

2. Complete Inventory Listing 5. Items Out of Stock 

3. Listings by Prefix 6. Suggested P.O.'s 
Requires Mod 1 , 32K, 2 Disk $250.00 



The Filing Cabinet 

Take that collection of Job Orders, Personnel Records, Reports, etc. 
and get them organized. You define up to 14 data input fields specifying 
field type - alpha/numeric or SS$, field length and field separators - 
such as slashes, etc. During data input, the cursor provides for 
character input and skips over the field separators. 

But that's only half the story. Output reports are automatic formated 
and program automatically requests column headings. 

This means you can customize your own data base manager, 
complete with rapid data input and selective output reports. Comes 
complete with documentation. 

Requires Mod 1, 32K, Disk & Printer $100.00 

Or Mod2, 64K, 1 Disk & Printer $150.00 



The Restauranteur's Consultant 

By Ty Halderman 

This food and beverage management tool dramatically reduces the 
human factors in food cost analysis. Those tasks required to effectively 
operate any restaurant or food service business. Over a half dozen 
reports give uniform, accurate and up to the minute information for 
profitability. And, handling of daily cost changes requires only minutes 
per week instead of hours, because the Consultant makes all the 
necessary conversions from your case prices. Reports include: 

1. Menu Recipes. 

2. Ingredient Listing. 5. Food Cost Summary. 

3. Supplier Master File. 6. Input Data Sheets. 

4. Complete Listing of Food Cost Analysis. 7. Batch Update. 

Mod 1, 32K, 2 Disk, Printer or Mod 2 $750.00 

WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG!! 



Send Check or Money Order Payable to: 

CUSTOM COMPUTER CENTER, INC. 



fr 



S7 



ATTN: Jim Martens 

P.O. BOX 58042 

HOUSTON, TEXAS 77058 

or call: (713) 474-2484 



QUAN. 



DESCRIPTION 



Handling Charge: $1.50 
Texas Res. add 6% Sales Tax. 



SYSTEM 
(Size: Tape or Disk) 



TAX & HANDLING 



TOTAL 



PRICE 



MASTER CHARGE / VISA 

Card # 



SEND 

INFORMATION 

ONLY. 



Expires , 



NAME. 



ADDRESS. 
CITY 



^Reader Service index— see page 194 
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Instant Software New Releases 
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OTHELLO 

In the game of Othello, there is no 
such thing as a lucky move. The game is 
a constant test of concentration and 
tactics. 

The object of the game is to capture 
all the pieces on the board by bracketing 
your opponent's pieces. The score can 
fluctuate wildly as you plan your moves. 

Your opponent can be another player 
or you can play the computer. You can 
even watch the computer play itself. 

Don't think that just because you are 
either a hot-shot player or a complete 



tyro that Othello is not for you. The pro- 
gram allows you to adjust its IQ. An IQ of 
one will give you an easy opponent, but 
an IQ of seven will have the program 
playing a no-holds barred game. 

The Othello program is a gracious op- 
ponent and, if you ask, it will suggest the 
best move for you to make. It will even al- 
low you to set up special end games to 
sharpen your strategy. 

The Othello program, a maddening, 
frustrating, and thoroughly engrossing 
game from Instant Software. 

For the TRS-80 Level II 16K. Order no. 
0046R. $9.95. 



OTHER PROGRAMS AVAILABLE 
FROM INSTANT SOFTWARE 

TRS-80* LEVEL I & II 

0001 R Basic and Intermediate Lunar Lander $7.95 

0002R Space Trek II $7.95 

0004R Beginner's Backgammon/Keno $7.95 

0007R Ham Package I $7.95 

0008R Electronics I $7.95 

0009R Golf/Cross-Out $7.95 

0017R Air Flight Simulation $7.95 

0019R Business Package IV $9.95 

0023R Oil Tycoon $7.95 

0033R Bowling $7.95 

0043R Santa Paravia and Fiumaccio $7.95 

0046R Othello $9.95 

0050R Grade Book $7.95 

0057R Chessmate-80 $19.95 

0099R Typing Teacher $7.95 

TRS-80* LEVEL II 

0028R Ramrom Patrol/Tie Figher.'Klingon Capture. ..$7.95 

0034R Space Trek IV $7.95 

0047R Who-Dun-lt? $7.95 

0049R Demoll $7.95 

0051R Ball Turret Gunner $9.95 

0055R Demo III $7.95 

0056R Bowling League Statistics System $24.95 

0058R Programmer's Converter $9.95 

0063R Cards $7.95 

0065R Teacher $9.95 

0066R Mimic $7.95 

0068R Your Cribbage and Checkers Partner $9.95 

0069R Household Accountant $7.95 

0070R Skirmish-80 $9.95 

0072R Financial Assistant $7.95 

0076R Utility I $7.95 

0081 R Utility II $7.95 

0082R Daredevil $9.95 

0084R Music Master $7.95 

0089R Energy Audit $49.95 

0092R Archimede's Apprentice $9.95 

0100R Video Speed-Reading Trainer $7.95 

0103R Personal Bill Paying $7.95 

0106R Airmail Pilot $7.95 

0111R Wordwatch $7.95 

0117R Night Flight $9.95 

0125R Investor's Paradise $9.95 

0127R Surveyor's Apprentice $9.95 

0132R Energy Consumption $9.95 

0135R Executive Expense Report Generator $9.95 

0136R Beginner's Russian $9.95 

0137R Everyday Russian $9.95 

0156R Money Madness $9.95 




THE COMMUNICATOR 

This program offers you the fast way 
to transfer data from one location to 
another, using the telephone lines. The 
full "ORIGINATE/ANSWER" capability 
allows your TRS-80 to be controlled from 
a remote-based terminal, or allows two 
TRS-80 computers to "talk" to each 
other. 

You will be able to pass all kinds of 
data, or programs, from home base to a 
remote terminal, or between computers, 
at the speed of light — or at 9600 baud, 
anyway. 



Operation is simple. You dial the 
telephone number at the location of the 
TRS-80 at your home base. After the con- 
nection has been established, each 
telephone handset is placed upon the 
modem at both locations and the "hook- 
up" is completed. You will be able to con- 
trol the home-based TRS-80 (if you called 
from a remote based terminal) and the 
transmission of data back and forth can 
proceed. This procedure can be revers- 
ed, allowing the home-based TRS-80 
computer to control the remote-based 
terminal. 

You'll see a simultaneous display of 
information on both the home-based 
and the remote-based monitors which 
facilitates the requests for specific in- 
formation to be transmitted. This pro- 
gram is available to police, schools, 
stockbrokers, and many others who will 
find it to be invaluable. 

The versatility of the Communicator 
program is enormous, and you can take 
advantage of this technology right now. 
Order No. 01 26R $9.95. 



0171R Flight Path. 
0250R IRV 



TRS-80* DISKS 



...$9.95 
.$24.95 



0052 RD 
0075RD 
0123RD 
0139RD 
0147RD 
0180RD 
0212RD 



Energy Audit $75.00 

Accounts Receivable/ Payable $199.95 

TneOne-D Mailing List $24.95 

Disk-Scope $19.95 

Check Management System $39.95 

Disk Editor $39.95 

The Russian Disk $24.95 

PROGRAMS IN GERMAN: 



The programs listed here can be purchased through: 
MicroShop Bodensee 
Markstrasse 3. 
7778 Markdorf, West Germany 



TRS-80* 

6004R Beginner's Backgammon/Keno 

6007R Ham Package I 

6008R Electronics I 

6009R Golf/Cross-Out 

6017R Air Flight Simulation 

6028R RamRom Patrol 

6031 R Space Trek III 

6034R Space Trek IV 

6043R Santa Paravia and Fiumaccio 

6065R Teacher 

6069R Household Accountant 

6072R Financial Assistant 

6076R Utility II 

6081 R Utility I 

PROGRAMS IN ITALIAN: 



TO ORDER: Look for these programs at the dealer nearest you. If your store 
does not stock Instant Software send your order with payment to: Instant 
Software Inc., Order Dept., Peterborough, N.H. 03458 (Add $1.00 for 
handling) or call toll-free 1-800-258-5473 (VISA, Master Charge and 
American Express accepted). 

Prices subject to change without notice.— 



Instant Software 



The programs listed here can be purchased through: 
HOMICs.r.l. 
Piazza De Angeli 1, 
20146 Milano, Italy 

TRS-80* 

9043R Acquaviva e Montefalcone 

9065R Professore 

9107R Guerre Stellari 

9108R Volo Aereo/Space Trek 

*A trademark of Tandy Corporation 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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Ask for Instant Software at a computer store near you. 



Alabama 

Anderson Computers 

3156 University Dr., Huntsville 

Computerland ot Huntsville 

3050 University Dr.. Huntsville 

Olensky Bros. 

3763 Airport Blvd , Mobile 

Arizona 

Protessional Data Systems 
4506 A N. 16th St., Phoenix 
Millets TVS Radio 
621 East Broadway, Mesa 

California 

AMCO Elect. Supply 

635 E. Arrow Hwy.. Azusa 

Byte Shop 

8038 Clairmont Mesa Blvd.. 

San Diego 

Byte Shop 

123 E Yorba Linda. Placentia 

Byte Shop ot Mt. View 

1415 West El Camino Real. Mt. View 

Byte Shop ol Sacramento 

6041 Greenback Ln„ Citrus Heights 

8yte Shop ot San Francisco 

1032 Irving St., San Francisco 

ramento 
Computers Made Easy 

819 East Ave. 0-9. Palmdale 
Computer Store ot San Leandro 
701 MacArthur Blvd.. San Leandro 
Computer World 

6791 Westminster Ave.. Westminster 

Computerland 

16720 S Hawthorne. Lawndale 

Computerland ot W. LA 

6840 La Cienega Blvd.. Inglewood 

Coast Electronics 

31 18 No Main St . Morro Bay 

Computerland 

24001 via Fabricante No 904. 

Mission Viejo 

Hobbitronics 

1378 So. Bascom Ave.. San Jose 

Hobby World 

1951 1 Business Ctr. Dr.. Unit 6 

Borthridge 

Huntington Computing 

2020 Charles St.. Corcoran 

ICE. House Inc. 

398 North E. St., San Bernardino 

Jade Computer Products 

4901 W. Rosecrans. Hawthorne 

Malibu Microcomputing 

23910A Deville Way. Malibu 

Martam Co. 

6351 Almaden Rd.. San Jose 

Opamp/Technica! Books 

1033 N. Sycamore Ave., Los Angeles 
PC Computers 

10166 San Pablo Ave., El Cernto 

Q.I. Computers, Inc. 

15818 Hawthorne Blvd.. Lawndale 

Radio Shack Dealer 

8250 Mna Mesa Blvd.. San Diego 

Radio Shack Dealer 

50 N. Cabrillo Hwy.. Halt Moon Bay 

Santa Rosa Computer Center 

604 7th St., Santa Rosa 

Silver Spur Elect. Comm. 

13552 Central Ave.. Chino 

The Computer Store 

820 Broadway, Santa Monica 

Colorado 

Byte Shop 

3464 S. Acoma St.. Englewood 

Colorado Computer Syslems 

31 1 W. 741h Ave., Westminster 

Computerland ol North Denver 

8749 Wadsworth Blvd.. Arvada 

Computer Shack 

1635 South Prairie, Pueblo 

The Computer Store 

2300 Welton St., Denver 

Connecticut 

American Business Computers 

454 Thames St.. Grolon 

Computerlab 

130 Jetterson, New London 

Computerland 

1700 Post Rd.. Fairtield 

Computerland 

60 Skill Si., Hamden 

Computer Works 

1439 Post Rd. E.. Liberty Plaza. 

West port 

D.C. 

The Program Store 

4200 Wisconsin Ave.. N.W., 

Washington, DC. 



Florida 

Al Personal Computer 

178 0xlord Rd.. Fern Park 

AMF Electronics 

11146 N. 30th St.. Tampa 

Boyd-Ebert Corporation 

1328 West 15th St., Panama City 

Computer Center 

6578 Central Ave.. St. Petersburg 

Computer Junction 

5450 So Stale Rd. 7. Ft. Lauderdale 

Computerland 

7374 S Tamiami Trail, Sarasota 

Computerland ot Ft. Lauderdale 

3963 N. Federal Hwy., Ft. Lauderdale 

Computerland ot Jacksonville 

27776 University Blvd. W. 

Jacksonville 

Computerland ol Tampa 

1520 E Fowler Ave.. Tampa 

Computerland ol West Palm Beach 

4275 Okeechobee Blvd.. West Palm 

Beach 

Computer Shack 

3336 Beach Blvd.. Jacksonville 

jrces Inc. 



Heath Kil Electronic 

4705 W. 16th Ave. Center. Hialeah 

HISCompulermation 

1295 Cypress Ave., Melbourne 

Ukatan Computer Store 

Airport Rd.. Destin 

Williams Radio* TV Inc. 

2062 Liberty St., Jacksonville 

Your Basic Computer Store 

971 Seaway Dr., Ft. Pierce 

Georgia 

Atlanta Computer Mart 

Atlanta 

Computerland ol Atlanta 

2423 Cobb Parkway, Smyrna 

Hawaii 

Computerland ol Hawaii 
567 N. Federal Hwy., Honolulu 
Radio Shack Assoc. Store 
1712 S. King St. Honolulu 

Idaho 

Electronic Specialists 
8411 Fairview Ave.. Boise 

Illinois 

Computerland 

4507 North Sterling, Peoria 

Computerland 

9511 N. Milwaukee Ave.. Niles 

Computer Station 

3659 Nameoki Rd., Granite City 

Garcia 8. Associates 

203 No. Wabash Ave., Suite 1510, Chicago 

Midwest Microcomputers. Inc. 

708 S. Main St., Lombard 

Indiana 



Data Domain 

221 W. Dodds. Bloomington 
Fall Creek Electronics Store 
732 Center St . Pendleton 

Iowa 



Me 



Dry 



4128 Brady St.. Davenport 

Kansas 

Central Kansas Computers 
6 S. Broadway. Herington 

Louisiana 

Computer Shoppe Inc 
3225 Danny Pk . Melairie 

Maine 

Main Computronics 

Intown Plaza. Bangor 

Radio Shack 

315 Main Mall Rd.. So. Portland 

Maryland 

Jack Fives Electronics 

4608 Debilen Circle, Pikesville 

The Comm Center 

9624 Ft. Meade Rd., Laurel 

Massachusetts 

ComputerCity 
175MainSt..Charlestown 

ComputerCity 

50 Worcester Rd.. Frammgham 
Computerland ol Boston 
214 Worcesler Rd.. Wellesley 
Computer Packages Unlimiied 
244 W. Boylston St.. West Boylston 
Lighthouse Computer Software 
14 Fall River Ave.. Rehobath 



Mark Gordon Computers 
15 Kenwood St., Cambridge 
New England Electronics Co. 
679 Highland Ave , Needham 
Small Business System Group 
Main St.. Dunstable 
The Computer Store 
120 Cambridge St., Burlington 
Tults Radio & Eleclronics 
206 Mystic Ave., Medtord 

Michigan 

Computer Center 

28251 Ford Rd.. Garden City 

Computer Connections 

38437 Grand River. Farmington Hills 

Computerland ol Grand Rapids 

2927 28th St S.E., Kentwood 

Computerland ot Southiield 

29673 Northwestern Hwy., Southiield 

Computer Mart 

560 W. 14 Mile Rd., Clawson 

Computer Room 

455 E. Michigan Ave.. Kalamazoo 

Compulronix Corp. 

423 S Saginaw Rd.. Midland 

Hobby House 

1035 W Territorial Rd., Battle Creek 

Main Systems Inc. 

1161 No. Ballenger Hwy.. Flint 

The Alternate Source 



i Ada 



The Eight Bit Corner 
722 Evanslon Ave.. Muskegon 
Ye Olde Teacher Shoppe 
1823 Witmyre St.. Ypsilanti 

Minnesota 

Computerland ot Hopkins 

11319 Hwy F . Hopkins 

Digital Den 

Burnsville Center 

Minnesota Sottware Inc. 

5422 Fisher St., White Bear Lake 

Zim Computers 

5717 Xerxes Ave.. N. 8rooklin Center 

Mississippi 

Dyer's. Inc. 

200 E Main St.. West Point 

Sottwarehouse 
816 Foley St.. Jackson 
W. Vernon Foster Inc. 
816 Foley St.. Jackson 

Missouri 

Century Next Computers 

1001 E. Walnut. Columbia 

Comp-U-Trs Sottware Center 

51 Florissant Oaks Shopping Center 



Flori 



ant 

»Sha 



Cildl 



lnslantSoft>rvare 
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Montana 

Intermountain Computer 

529 So. 9th St.. Livingston 

Personal Computer 

121 Red Oak Dr., Carl Junction 

The Computer Store 

1216 16th St. W. K35. Billings 

Nebraska 

Computerland o1 Omaha 
11031 Elm St.. Omaha 
Midwest Computer Co. Inc. 
8625 I St., Omaha 
Midwest Computer Co. Inc. 
4442 S. 841h St.. Omaha 
Midwesl Computer Co. Inc. 
4403 S. 87th St., Omaha 
Scottsblutt Typewriters Inc. 
1824 Broadway, Scottsblutl 

Nevada 

Century 23 

4566 Spring Mountain Rd., Las Vegas 

New Hampshire 

Bclsnbyles Computer Center 

568 Pleasant St.. Concord 

CompulerCity 

1525 S. Willow. Manchester 

Paul's TV 
Main St.. Fremont 
Portsmouth Computer Center 
31 Raynes Ave . Portsmouth 
Radio Shack Assoc. Store 
Fairbanks Plaza. Keene 

New Jersey 

Computer Corner ol NJ 

439 Rte. »23. Pompton Plains 

Computer Encounter 

2 Nassau St.. Princeton 

Computerland 

35 Plaza Rte. »4. W. Paramus 

Computer Mart ol NJ 

501 Rte. 27, Iselin 



Dave's Electronics 

Pennsville Shopping Ctr., Pennsville 

GHB Enterprises Inc. 

Rte. 38. Rudderaw Ave . Mapleshade 

Lashen Electronics Inc 

21 Broadway. Denville 



Personal Computing Inc. 

51 Central Sq.. Linwood 

Radio Shack/J&J Electronic 

Mansfield Shopping Ctr. 

Rt. 57 Allen Rd., Hackettstown 

The Bargain Brothers 

Glen Roc Shopping Center 

216 Scotch Road, Trenton 

The Computer Emporium 

Bldg. 103. Avenues ot Commerce 

2428 Rte. 38, Cherry Hill 

New Mexico 

Autel Electronics Co. 

232 Wisconsin N.E., Albuquerque 

South West Computer Center 

121 Wyalt Drive. Suite 7, Las Cruces 

Thomas E Carr Jeweler 

1300A Tenth St.. Alamogordo 

New York 

Aristo Craft 

314 Fifth Ave.. NYC 

Bits & Bylcs 

2800 Straight Rd.. Fredonia 

Computer Corner 

200 Hamilton Ave., White Plains 



Computer Factory 

485 Lexington Ave.. NYC 

Computer House. Inc. 

721 Atlantic Ave.. Rochester 

Computerland ol Nassau 

79 Westbury Ave., Carle Place 

Computerland ol New York City 

58 W. 441h St., New York 

Computer World 

519 Boslon Post Rd., Port Chester 

Comtek Electronics, Inc. 

2666 Coney Island Ave.. Brooklyn 

Comtek Electronics. Inc. 

Staten Island Mall 

Store 220A. Staten Island 

Digibyte Systems Corp. 

31E. 31st St., New York 

80-Microcomputer Services 

118 Maslen Ave.. Cohoes 



Mr. Computer 

Imp. Plaza, Rte. 9, Wappingers Fall 

Softron Systems 

308 Columbia Turnpike, Rensselae 

The Computer Tree Inc. 

409 Hooper Rd.. Endwell 

Upstate Computer Shop 

629 French Rd.. Campus Plaza 

New Hartford 

North Carolina 

Byte Shop ot Raleigh 

1213 Hillsborough St., Raleigh 

Sound Mill 

Slocum Shopping Ctr.. Havelock 

Ohio 

Altair Business Systems, Inc. 
5252 North Dixie Dr., Dayton 
Astro Video Electronics 
504 E. Main St., Lancaster 
Cincinnati Computer Store 
4816 Interstate Dr.. Cincinnati 
Computerland 
4579 Great Northern Blvd., 
N. Olmstead 
Computerland 

6429 Busch Blvd.. Columbus 
Computerland 

1288 Som Rd., Mayfield Heights 
Computer Store ol Toledo 
18 Hillwyck Dr., Toledo 
Forbees Microsystems Inc. 
35 N. Broad, Fairborn 
Microcomputer Center 
7900 Paragon Rd.. Dayton 
Micro-Mini Computer World 
74 Robinwood, Columbus 
21st Century Shop 
16 Convention Way, Cincinnati 
Universal Amateur Radio. Inc. 
1280 Aida Dr.. Columbus 

Oklahoma 

Sounds. Etc. 
Hyw. 33. Watonga 
Vern Street Products 
Radio Shack Dealer 
114 W. Talt St., Sapulpa 

Oregon 

Computerland ol Portland 
12020 S.W. Main St., Tigard 
Computer Pathways Unlimited. Inc 
2151 Davcor St. S.E., Salem 
TRS-80 Products Ltd. 
3520 S.E. Vineyard Rd.. Portland 

Pennsylvania 

Arlco Elect. 

302 Wyoming Ave.. Kingston 

Artco Elect. 

Back Mountain Shop. Ctr. 

Shavertown 

Audio Mart 

518 Filth Ave.. New Brighton 

Computer Workshoppe 

3848 William Penn Hwy. Monroevil 



Computerland of Harrisburg 

4644 Carlisle Pike. Mechanicsburg 

Computerland of Pittsburgh 

5499 William Flynn Hwy., Gibsonia 

Erie Computer Co. 

2127 West 8th St., Erie 

Mighly Byte Computer Center 

537 Easton Rd., Horsham 

Personal Computer Corp. 

24 26 West Lancaster Ave.. Paoli 

Personal Computer Corp. 

Frazer Mall, Lancaster Ave.. Frazer 

Rhode Island 

Computer City 

165 AngellSt , Providence 

Digital World, Inc. 

329 Bald Hill Rd., Warwick 

South Dakota 

CB Radio Shack 

21st and Broadway. Yankton 

Tennessee 

ACS 

1 100 8th Ave. So., Nashville 

Computerlab 

671 S. Menden Hall Rd., Memphis 

H & H Electronics Inc. 

509 N Jackson St.. Tullahoma 

Texas 

Computer Port 

2142 N. Collins. Arlington 

Houston Computer Tech 

5313 Bissonet. Bellarie 

Interactive Computer 

7620 Dashwood. Houston 

K.A. Elecl. 

9090 Stemmons Frwy., Dallas 

Pan American Elect. Inc 

11 17 Conway. Mission 

Radio Shack Dealer 

21969 Kaly Freeway, Katy 

The Compute Shop 

6353 Camp Bowie Blvd.. Ft. Worth 

Waghalter Books Inc. 

3 Greenway Plaza E.. Houston 

Utah 

DC Computer Co. 

1911 West 70 South, Provo 

Quality Technology 

470 E. 2nd So., Salt Lake City 

Virginia 

Computer Works 

Rte 6, Box 65A. Harrisonburg 

Home Computer Center 

2927 Virginia Beach Blvd. 

Virginia Beach 

Southside Radio Comm. 

135 Pickwick Ave.. Colonial Heights 

Washington 

American Mercantile Co. Inc. 
24181st Ave. S.. Seattle 
Byte Shop of Bellevue 
14701 N.E. 20th St.. Bellevue 



Computerland of South King Co. 

1500 S. 336 St.. Suite 12 

Federal Way 

Personal Computers 

S 104 Freva. Spokane 

Ye Old Computer Shop 

1301 G. Washington, Richland 

West Virginia 

The Computer Corner Inc. 

22 Beechurst Ave., Morgantown 

The Computer Store 

Municipal Parking Bldg., Charleston 

Wisconsin 

Byte Shop Ot Milwaukee 

6019 West Layton Ave.. Greenlield 

Computerland 

690 S. Whitney Way. Madison 

Computerworld 

3015 W. Wisconsin Ave.. Appleton 

Petted Microsystems 

4265 W. Loomis Rd.. Milwaukee 

Wyoming 

Computer Concepts 

1104 Logan Ave.. Cheyenne 

Puerto Rico 

The Microcomputer Store 
1568 Ave. Jesus T. Pinero 
Caparra Terrace 

Canada 

CANADIAN DISTRIBUTORS: 

Micron Distributing 

409 Queen St.. W. Toronto, Ont. 

M5V 2A5 

Computerland ot Winnipeg 

715 Portage Ave , Winnipeg, Man. 

Compumart 

41 1 Roosevelt Ave., Ottawa, Ontario 

Micromatic Syslems Inc. 

101 8136 Park Rd., Richmond, B.C. 

Micro Shack ot W Canada 

333 Park Street. Regina. Sask. 

Orthon Holdings Ltd. 

12411 Stony Plain Road 

Edmonton, Alberta 

Total Computer Systems 

Ajax, Ontario 



s Reader Service index— see page 194 
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SO NEWS 



edited by Nancy Robertson 



14-year-old Is 
Professional Programmer 



He's just like other 14 year-old boys growing 
up in New England. He likes model trains, bub- 
ble gum and baseball games. He worries about 
what his friends will think if someone writes 
about him in a national magazine. 

But, if you go upstairs at Greg Hassett's 
house, you'll find a 48K dual disk drive 
TRS-80, complete with line printer and every- 
thing it takes to keep them running. Very likely, 
you'll find Greg hard at work on a new pro- 
gram or tuning up an old one. At this young 
age, he is indeed a programmer. 

When he was 12, Greg sold a program for 
$150 and became the youngest professionally 
published adventure programmer in the coun- 
ty. The $150 covered the original, non-exclusive 
rights for Journey to the Center of the Earth 
which were sold to The Software Exchange in 
Milford, NH. The updated version netted 
many times that amount through its distribu- 
tion by Mad Hatter Software in Dracut, MA. 

Sorcerer's Castle, Atlantis and Enchanted 
Island followed. Greg's style and ability to stick 
to a story increased along with his revenues. 
The personal combat in Castle and Atlantis was 
an interesting addition to the familiar GO, 
GET, PUSH, PULL routines of most comput- 
er adventures. The thematic orientation and 
colorful description that popularized Scott 
Adams' adventures became more and more ap- 
parent in Greg's work, too. In contrast to 
Adams' sophisticated, brain-puzzlers, Greg's 
adventures are light, witty and solvable. 

Greg's M-Treck was a departure from his 
dedication to adventures. It is a graphic game 
of cosmic engines and scanning devices with 
sound effects. The object, like all Star Trek 
games, is to track down and kill Klingons. 

Greg wrote all of these early programs in 
BASIC. Frustrated by the limitations of speed 
and space, he took a crash course in machine 
code. 

After writing Enchanted Island Plus, his first 
machine language adventure, Greg started his 
own company named Adventure World. It is 
now the sole source of his several machine 
language adventures. Both Mad Hatter and 
Adventure World are distributors of Greg's 
BASIC programs. 

At 14 Greg is not only a programmer, but a 
businessman. He serves both individuals and 
retailers. He contracts for mass production of 
his programs, then packages and mails the 
orders himself. 

Greg is also thinking about broadening the 




Fourteen-year-old Greg Hassett at work. 



base of Adventure World to include distribu- 
tion of programs by other authors. "But, if 
that happens at all," he says, "it will be a year 
or two in the future." According to Hassett, his 
software outlets are currently netting him 
"about $800 a month." 

Greg has just finished writing The World's 
Edge. It follows on the heals of Mystery Man- 
sion, and is also in machine code. "I'm just 
beginning to think about what I'll write next. I 
don't know what it will be." 

In the fall he'll be entering the tenth grade at 
Philips Academy where he was recently ac- 
cepted. When he is finished with school, Greg 
wants to work as a programmer for Digital or 
another large corporation, switching from 
adventures to the challenges of technical- 
applications software. 

But a 14- year-old boy might have better 
things to do with his time than create and 
market his own software and deal with produc- 
tion contracts and bookkeeping. Not so says 
Greg. His business "sometimes gets in the way 
of school, but it doesn't interfere with my social 
life." Like most kids his age, he says he wants 
"to loaf around" during his summer break. ■ 
By Bob Liddil 



Finding Made in Electric 
Pencil II Copyright Lawsuit 



May 23, 1980 Judge S. S. Schwartz of the 
Los Angeles Superior Court ruled in favor of 
the defendent in the complaint brought by 



Michael Shrayer Software, Inc., Palm Springs, 
CA against Vector Graphic, Inc., Westlake 
Village, CA. The complaint was brought for 
"breech of contract, wrongful copying and in- 
junction" in August of 1979 in regard to Elec- 
tric Pencil II. 

Michael Shrayer Software, Inc. is expected 
to appeal the decision. 

The issues involved revolve around the ap- 
plication of copyright laws to programming. 
The final wording of Judge Schwartz' s decision 
is likely to be signed and available sometime 
this month. 

Vector Graphic, Inc. has already filed a 
cross-complaint charging Shrayer's company 
with libel and business interference, plus a suit 
against Shrayer, personally, along with several 
other individuals, for libel. ■ 



National VTOS Users Group 

TCUG, Inc., a nonprofit computer club 
located in the Washington, DC. metropolitan 
area, is organizing and chairing a national users 
group for TRS-80 owners operating under the 
Virtual Technology Operating System (VTOS). 

The purpose of this group is to improve upon 
the lack of documentation of VTOS, an ex- 
cellent operating system for the TRS-80, by 
sharing the knowledge derived through investi- 
gation of VTOS, how it behaves, how best to 
utilize its many features, and how to make it 
work best for you. 

Anyone interested may join the VTOS Users 
Group (VUG) for an annual fee of $15 which 
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entitles the member to the bi-monthly VUG 
Journal and monthly TCUG Newsletter. 

Contact Bill Beall, TCUG, Inc., VTOS Sub- 
group, PO Box 2235, Reston, VA 22090. 

The TCUG bulletin board, which is intended 
to be a focal point for TRS-80 and VTOS items, 
is available 24 hours by phone at (703) 
620-4990. ■ 



Business Week 
Article Incorrect? 



An article printed in Business Week, June 16 
stated that, "Over the next six weeks Tandy 
plans a barrage of new products to follow up its 
initial foray into the small business market with 
its TRS-80 Model II." 



It goes on to say that a desktop computer for 
scientists and engineers, a word processor 
based on the Model II and small computers that 
will automate inventory controls are to be ex- 
pected. 

At Tandy Corp., both H. L. Seigel, National 
Publicity and Promotion Manager, and Senior 
Vice President of Operations, Charles Phillips, 
deny the thrust of the Business Week article. 
They both say no new computers that they 
know of will be marketed by the company be- 
fore the end of the year. 

Videotex, another product mentioned in the 
Business Week article, will be available this fall, 
according to Phillips. The software product 
will link TRS-80s and other micros to television 
and telephone lines for network information 
retreival from CompuServe, Inc., Columbus, 
OH. 

While Tandy denies the thrust of the article, 



the question is why do well-informed sources in 
the industry persist in their belief that new mod- 
els will be announced by Tandy in August. ■ 



Mid-Atlantic Micro Show 



The Mid-Atlantic Personal and Business 
Computer Show will be at the Philadelphia 
Civic Center from Thursday, Sept. 25 through 
Sunday, Sept. 28, 1980. 

The show hours are 1 1 :00 A.M. to 9:30 P.M. 
Thursday through Saturday, and 11:00 A.M. 
to 6:00 P.M. Sunday. General Admission for 
adults will be $5. 

For further information, contact National 
Computer Shows, P.O. Box 678, Brookline 
Village, MA 02147. ■ 



Science and Research 
Management Software 

Software Engineering Systems, Inc. is releas- 
ing three software modules for management 
science and operations research. Written for 
the TRS-80, these modules are interactive. 
They are the Decision System, the Mathemati- 
cal Programming System and the Simulation 
System. 

The Decision System consists of a break-even 
algorithm, a decision analysis algorithm, a lot- 
tery-insurance analysis algorithm, an element- 
ordering algorithm and a game-theory algor- 
ithm. 

The Mathematical Programming System 
consists of three algorithms: one for linear pro- 
gramming, one for transportation and another 
for optimizing network flow. 

The Simulation System is a program which 
helps simulate continuous dynamic systems de- 
scribed by differential or difference equations. 
It provides for integration, printing and plot- 
ting of the output on video screen or on a print- 
er. 

All modules are sold for $25 from Software 
Engineering Systems, Inc., 3214 75th St., Lub- 
bock, TX 79423. 

Reader Service <^ 176. 



TRS-80 Replica Marketed 



Personal Micro Computers, Inc. (PMC) has 
made an exclusive marketing agreement with 
the Hong Kong manufacturer, EACA Interna- 
tional Limited to offer a software and hard- 
ware compatible equivalent of the Radio Shack 
Model I, Level II TRS-80. 

The PMC-80, as the new computer is called, 
has a cassette tape recorder, 16K memory, 
Level II Microsoft BASIC interpreter in ROM, 
power supply, computer and keyboard in one 
cabinet. It will display on either a video 
monitor like the TRS-80 or on a standard TV 
set using a built-in VHF channel 3 modulator. 



All software that is available for the TRS-80 
Level II 16K system will operate in the 
PMC-80. Level II BASIC or SYSTEM will load 
in the PMC-80 50-pin bus through a 40-pin in- 
terface adapter available from Personal Micro 
Computers, Inc. 

Disc based programs can be run on the 
PMC-80 using the Radio Shack expansion in- 
terface or other commercially available 
equivalents. With the expansion interface, all 
peripherals designed for the TRS-80 are com- 
patible with the PMC-80. This includes Win- 
chester disks, speech recognition, printers, 
RS232 adapters, etc. 

EACA already has established markets in 
Australia and Europe for the PMC-80. Initial- 
ly, however, it is only going to be available by 
mail order in the U.S.A. and Canada. 

To facilitate mail order marketing, the com- 
pany offers a 30-day money back guarantee. 
Service on the equipment will be performed by 
PMC at its Mountain View, CA factory. (War- 
ranties will be voided if modifications are made 
to the internal system.) 

For further information, contact Personal 
Micro Computers, Inc., 475 Ellis St., Moun- 
tain View, CA 94043. 

Reader Service is 325. 



Complex & Custom Software 



Occupational Computing Company is a 
group of computer analysts, programmers and 
engineers specializing in Radio Shack comput- 
ers. The new company is offering services in 
systems analysis, site evaluation and training. 
They are also selling standard and custom soft- 
ware. 

The company is currently marketing Magic 
Wand, Restaurant Accounting Control System 
and Business Accounting Control System. 
Each is a complex software system. 

Magic Wand is a word processor including 
automatic word break, flexible line length, pag- 
ination, block movement, fill-in-the-blank doc- 
uments, etc. The software costs $400 plus ap- 



proximately $200 for a CP/M license. It is writ- 
ten for a TRS-80 Model II plus Daisy wheel 
printer. 

Restaurant Accounting Control System is 
designed to serve the restaurant owner's ac- 
counting and management control needs. Soft- 
ware costs $4,000. 

Business Accounting Control System con- 
sists of accounts receivable, billing inventory 
control, accounts payable, payroll and general 
ledger programs. It costs $350 to $7,500 depen- 
ding on the number of modules desired. 

Occupational Computing Co., Inc. is located 
at 22311 Ventura Blvd., Suite 123, Woodland 
Hills, CA 91364. 

Reader Service v 111. 

Realty Management System 

The Key Realty Management System is a 
software package available for TRS-80 and 
CP/M based computers. 

It is comprised of five control subsystems, in- 

Realty Management System 
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eluding listing control, escrow control, sales 
controls, general ledger and property manage- 
ment. Optional subsystems for accounts pay- 
able and payroll are available. 

Since no special codes, abbreviations or 
"computerese" appear to the user, no data 
processing expertise is necessary to use the sys- 
tem. 

The minimum system provides for up to 300 
listings, 100 sales associates and 10 offices or 
sub-offices. Priced at $2,500 for the whole sys- 
tem and $500 for each subsystem, the package 
is sold by Key Systems, Inc., 16 Ocean E., 
Marathon, FL 33050. 

Reader Service s 1 84. 



Programs Can Share Data 



Percom Data is marketing a TRS-80 Disk 
BASIC utility that allows programmers to save, 
restore and otherwise manipulate one set of 
data that may be common to two or more pro- 
grams. 

Called Varkeep, this machine language utili- 
ty works with all TRS-80 computer disk oper- 
ating systems. 

Varkeep adds four BASIC commands: 
NAME SAVE, NAME RESTORE, NAME 
DELETE and NAME CLEAR. They protect 
variables from being erased by LOAD, RUN, 
NEW and CLEAR commands. They delete 
variables that are no longer needed to reclaim 
memory space and redimension arrays. 

Varkeep is sold on a minidisk with instruc- 
tions for $19.95. It may be purchased from Per- 
com Data Co., 221 N. Kirby, Garland, TX 
75042. 

Reader Service is 171, 



Hardcopy from Typewriters 



The I/O Pak and a new typewriter interface, 
are designed to generate hard computer copy 
through any electric typewriter with powered 
carriage return. The combination gives com- 
puter users the benefit of typewriters' print 
quality. 

The I/O Pak, which fits over the keyboard, 



The I/O Pak 



is easy to install. No modification to the type- 
writer is required. The interface board can be 
modified by jumper selection, to operate on 
TRS-80 Level I or II or Apple II. 

The I/O Pak alone costs $469. The interface 
board and power supply required for package 
system operation cost $145. They are available 
from Rochester Data, Inc., 3100 Monroe Ave., 
Rochester, NY 14618. 

Reader Service *•- 162. 



Labyrinth Racing Game 

Labyrinth Run, Manhattan Software's latest 
release, is a fast-action game, running through 
a labyrinth with sharp turns, reverses and sla- 
loms, racing for a record time. Each labyrinth 
has sprint and full courses, and there are three 
levels of skill. 

A timer starts automatically when the run be- 
gins, and record times are retained and dis- 
played for each labyrinth, course and skill level. 

The game is for Level II 16K machines. It 
costs $9.95 from Manhattan Software, Inc., 
P.O. Box 5200 Grand Central Station, NY, NY 
10017. 

Reader Service ^ 179 



Interactive Sharing 



A multiplexer has been announced by Cor- 
vus Systems which can transform two to 64 mi- 
crocomputers into an interactive multi-user 
network. The multiplexer network can share 
high speed access to up to 40 million bytes of 
hard disk capacity. It is called the constellation. 
Computers in a Constellation network can also 
share peripherals and communicate in a fully 
interactive mode. 

The Constellation is a back-end local net- 
work in which multiple computers are con- 
nected in a star configuration. To insure com- 
patibility, each computer interface uses the 
standard Corvus bus. This central node con- 
tains hardware that polls up to eight computers 
in round robin fashion. 

Any computer compatible with the standard 
Corvus disk system is compatible with the Con- 



stellation. These include the Apple, TRS-80 
Models I and II, S-100 Bus, Altos, and LSI-11. 

The computer interface hardware is the same 
as that used by the single-user disk system. The 
Constellation operating system software is the 
unmodified operating system provided with the 
host computer, assuring application compati- 
bility. 

The price of the multiplexer is $750. Inter- 
faces for the computers in the network begin at 
$235 each from Corvus Systems, 2029 O'Toole 
Ave., San Jose, CA 95131. 

Reader Service v 165. 



Cassette Peripheral 



Zoom 3.6 is an electronic black-box that con- 
nects a Level II TRS-80 (or expansion interface) 
and a CTR-41 or CTR-80 cassette recorder. 
With the software supplied with it, tapes can be 
written and read in a special format at 3600 bits 
per second — over seven times faster than Radio 
Shack's 500. At that speed, 2K of RAM loads 
in under five seconds, and 16K loads in just 36 
seconds— instead of almost four-and-a-half 
minutes. 

No soldering and no modifications are need- 
ed. Zoom 3.6 is transparent to all the XRX 
mods, and to the CLOAD, CSAVE, SYSTEM, 
and PUNCH functions. A built-in relay and a 
toggle-switch on the front panel bypass the 
Radio Shack reed relay. 

The computer will not crash if it finds a read 
error or if it is made to start or stop reading in 
the middle of a recording. The system will not 
hang-up while searching for a file. BREAK 
causes a return to the menu during reads and 
writes. 

Users can also purchase the commented 
source-code for ZMBug, so that it may be 
adapted, or relocated. Written instructions plus 
a sample of assembly language source-code 
necessary to patch Zoom 3.6 drivers into The 
Electric Pencil, are also sold. 

The manufacturer believes Zoom 3.6 is the 
fastest CTR-41/CTR-80 device available. With 
ZMBug VI. object code and the manual, it 
costs $119 and is sold by Zoom!, P.O. Box 
3766, Nashua, NH 03061. 

Reader Service ^163. 



Zoom 3.6 and ZMBug 
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Apparat, Inc., announces the most 
powerful Disk Operating System for the 
TRS-80®. It has been designed for the 
sophisticated user and professional 
programmer who demands the ultimate 
in disk operating systems. 

NEWDOS/80 is not meant to replace 
the present version of NEWDOS 2.1 
which satisfies most users, but is a 
carefully planned upward enhance- 
ment, which significantly extends 
NEWDOS 2.1's capabilities. This new 
member to the Apparat NEWDOS' 
family is upward compatible with 
present NEWDOS 2.1 and is supplied 
on Diskette, complete with enhanced 
NEWDOS + utility programs and 
documentation. Some of the 
NEWDOS/80 features are: 

• New BASIC commands that 
supports files with variable record 
lengths up to 4095 Bytes long. 

• Mix or match disk drives. Supports 
any track count from 18 to 80. Use 



35, 40 or 77 track 5" mini disks drives 
or 8" disk drives, or any combination. 

A security boot-up for BASIC or 
machine code application programs. 
User never sees "DOS READY" or 
">READY" and is unable to 
"BREAK", clear screen, or issue 
any direct BASIC statement 
including "LIST". 

i New editing commands that allow 
program lines to be deleted from one 
location and moved to another or to 
allow the duplication of a program 
line with the deletion of the original. 

Enhanced and improved 

RENUMBER that allows relocation 

of subroutines. 

> Powerful chaining commands. 

i Print Spooler. 

• DFG function; simultaneous striking 
of the D, F and G keys will allow 
the user to enter a mini-DOS 
to perform some DOS commands 
without disturbing the resident 
program, (e.g. dir while in scripsit.) 



• Upward compatible with NEWDOS 
2.1andTRSDOS2.3. 

• Includes machine language 
Superzap/80 and all Apparat 2.1 
utilities. 

• Enter debug any time by pressing 
123 keys. Also allows disk I/O. 

• Diskette "Purge" command. 

• Specifiable system options (limited 
sysgen type commands). 

• Increased directory capacity. 

• Copy by file commands. 

NEWDOS/80 with all of the 
NEWDOS + utility programs, many of 
which have been enhanced, is priced at 
just $149.00 and is available at most 
TRS-80 dealers. 

As with 2.1, NEWDOS/80 relies on 
the TRSDOSand Disk Basic Reference 
Manual published by Radio Shack. 
NEWDOS/80 documentation supports 
its enhancements and upgrades only. 



1^264 



Apparat Inc. 



m 



/MlCROCO/VIPUrER 

TECHNOLOGY 
INCORPORATED ^s 



TO PURCHASE NEWDOS/80, COMPLETE AND MAIL TO: 

Apparat, Inc. Microcomputer Technology, Inc. 



4401 S. Tamarac Parkway 
Denver, CO 80237 
303/758-7275 303/741-1778 



-OR- 



3304 W.MacArthur Blvd. 
Santa Ana, CA 92704 
714/979-9923 



□ Check 
Card No. . 



D Money Order □ Master Charge D Visa 
Expiration Date 



Colo, residents add 6.5% sales tax. Cal. residents add 6% sales tax. 
Add $10.00 postage and handling. 

Please rush NEWDOS/80 @ $149 EACH TO: 



Name 



J Address 

J City 

I Phone _ 
I 



State . 



Zip. 



0/1A 
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TRS-80 Pinball 



Acorn Software Products, Inc. is offering 
Pinball, a real-time, arcade game for Level II 
TRS-80. 

The video display includes flippers, bump- 
ers, rollovers, runs and bonus points. The space 
bar releases the ball. As with any pinball games, 
the player must develop skill with the flippers to 
get maximum points and playing time. 

Pinball is priced at $14.95 on cassette, or 
$20.95 on disk from Acorn Software Products 
Inc., 634 North Carolina Avenue, S.E. Wash- 
ington, D.C. 20003. 

Reader Service .--161. 




Pinball Display 

Educational Program and 
Model II COBOL Package 



The new COBOL Development System soft- 
ware package from Radio Shack makes it pos- 
sible to write and use programs in COBOL 
(COmmon Business Oriented Language) on the 
TRS-80 Model II. Tandy believes it is the only 
COBOL package for a microcomputer that of- 
fers multi-key ISAM (Index Sequential Access 
Method) files. 

The COBOL package includes a one-pass 
compiler, screen formatting, ANSI Level 2 
I/O, program linkage and segmentation. 

The Model II COBOL Development System, 
with reference manual, user's guide, sample 
program and disk is priced at $299. 

The K-8 (kindergarten through eighth grade) 
Math Program, designed to supplement regular 
instruction, is another new release from Radio 
Shack. It is supplied on five cassettes and three 
disks in a binder with a teacher's manual con- 
taining complete instructions and sample rec- 
ord-keeping forms. It requires a 16K Level II. 

Part one of the program is a series of com- 
puter programs containing skill building exer- 
cises in numeration, addition and subtraction 
concepts for use in kindergarten through third 
grade. Part two contains skill building exer- 
cises, a testing mode, and a placement mode for 
addition, subtraction, multiplication and divi- 
sion, appropriate for use in grades one through 



eight. 

A comprehensive reporting function is also 
provided. At the end of a student session, the 
screen displays the total number of problems 
attempted, the number correct, the percent cor- 
rect, promotions or demotions and average re- 
sponse time. It is priced at $199. 

Reader Service <s 166. 



Two Utility Programs 



Two new TRS-80 programs from Allen 
Gelder Software are Super Step and Accel. Su- 
per Step is both a trace program and a disas- 
sembler link with T-BUG, the Radio Shack 
Z-80 monitor program. 

Super Step displays a pair of Z-80 processor 
models including CPU registers, stack ele- 
ments, flag expansion and an intelligent RAM 
window. The trace mode has a skip key and 
keyboard interrupt plus foreground break- 
pointing for user control during operation. It is 
sold for $19.95. 

Accel is a compiler for the integer subset of 
Level 1 1 BASIC that increases the speed of pro- 
gram execution. Programs are built, modified 
and debugged using the BASIC interpreter, 
then compiled by Accel to Z-80 machine code. 

Accel is a product of Southern Software of 
England. It is now sold in this country for 
$44.95 from Allen Gelder Software, Box 
11721, San Francisco, CA 94101. 

Reader Service e- 170. 
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Super Step 

Word Processor Update 



MPS Software (formerly Microphase Sys- 
tems) is selling Wordscribe, a full-feature word 
processing system for Model I and Model II 
systems. Wordscribe 1 .2 includes the full edit- 
ing features of 1 . 1 and adds some new format- 
ting capabilities to the system. 

Wordscribe's new features include document 
chaining which allows the user to load more 
than one document at a time for merging docu- 
ments and inserting standard blocks of text. 
New formatting commands to change line 
lengths, force page breaks and change line 
spacing are also included. 



The minimum system requirements to run 
Wordscribe 1.2 are Model I 48K with expan- 
sion interface and one disk; or Model II 64K 
with one disk. 

Wordscribe is priced at $79.95 for Model I, 
$129.95 for Model II and is available from 
MPS Software, 1 1223 E. 45th St. So., No. 314, 
Tulsa, OK 74145. 

Reader Service c 180. 



Software Typewriter 



Computer Simulations Company has an- 
nounced its newest product for microcomput- 
ers, the TRS-80 Typewriter. It is a basic pro- 
gram offering built-in lowercase, line by line 
editing, video review and copy printing. 

The program is designed to handle a full page 
of text neatly and efficiently. It sells for $19.95 
and requires a printer. 

The TRS-80 Typewriter is available from 
Computer Simulations Company, 305 Hammes 
Ave., Joliet, IL 60436. 

Reader Service ^183. 



Keyboard Remote Control 



Omni Automation is releasing a wireless key- 
board for the TRS-80. The RX-10 includes a 
hand held, ultrasonic remote control. BASIC 
programs can read ultrasonic input with a few 
minor changes. 

The system also permits control of remote 
devices located anywhere within the home or 
office. A flexible scheduling program can ac- 
tivate the remotes automatically using cyclic, 
time of day, or future date schedules. 

The RX-10 system includes all necessary ca- 
bles, interfaces, a cordless controller, a com- 
mand console, appliance and lamp control 
modules. Software is provided on diskette. It is 
priced at $285 from Omni Automation, P.O. 
Box 7716, Atlanta, GA 30357. 

Reader Service «^ 178. 




RX-10 Wireless Keyboard 
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AUTHORIZED 

TRS-80.® 
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DISCOUNT 
Off 
List 

26-4002 

64K1 Drive 

$3499.00 



COMPUTER SPECIALISTS 

26-1056 16K Level II System with Keypad. $ 700.00 

26-1 145 RS-232 Board 84.00 

26-1140 "O" K Interface 254.00 

26-1141 , 16" K Interface 381.00 

26-1 142 "32" K Interface 508.00 

26-1 160 Mini Disk - Drive 424.00 

26-1 161 Mini Disk - Additional 424.00 

26-1 154 Lineprinter II 720.00 

26-1 156 Lineprinter III 1799.00 

26-1 157 WP50 Daisy Printer 2670.00 

26-1 180 Voice Synthesiser 339.00 

26-1181 VOXBOX 145.00 

26-1104 Factory Upper/Lower 

Case Modifaction Installed 90.00 

26-1605 Scripsit - Tape 60.00 

26-1563 Scripsit - Disk 85.00 




15% 

DISCOUNT 

Off 



List 




CERTRDniCS 

Fast 100 CPS Centronics 
730 Printer - $675.00 
Text Quality Centronics 
737 Printer - $850.00 



ALL OTHER R.S. SOFTWARE 

FURNITURE, STANDS, CABLES 

AND ACCESSORIES DEDUCT 

10% FROM CATALOG PRICE 



Novation Cat Modem. .$159.00 
CCA Data Management 

System 72.00 

Adventure Games 

Games 1-9 14.00 



26-1054 
4K Level II 
$527.00 



INTEBNATIQNAU 



Plug Compatible Lobo 5 V* 
Drives - $375.00 

Versatile Lobo Interface, 
8" Drives and Hard Drive. 
Call For Prices 



Model I Basic Compiler $195.00 

Model II Basic Compiler 395.00 




BASF 



10-5'/. Diskettes $45.00 

10-8 1 Diskettes 47,00 



□ 



Acorn 

Software 
Products, Inc. 



GAMES: 

Alien Invasion $9.00 

UTILITIES: 

System Savers, 14.00 

EDUCATION: 

Language Teacher 18.00 



1-800-841-0860 Toll Free Order Entry 

MICRQ MANAGEMENT SYSTEMS, JMC. 



No Taxes on Out Of 
State Shipments 

Immediate Shipment 
From Stock. 



DOWNTOWN PLAZA SHOPPING CENTER 

115CSECONDAVE.S.W. 

CAIRO, GEORGIA31728 

(912) 377-7120 Ga. Phone No. 

•TRS-80 it a registered trademark of the Tandy Corp. 



Full Factory Warranty 
on All Items Sold. 

Largest Inventory 
In the S.E. U.S.A. 



is Reader Service index — see page 194 
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Swords 



Barry L. Adams 
109 Valley Place 
Greenville, NC 27834 

The August 1978 issue of Kilobaud Microcomputing magazine 
carried a game program entitled Swords and Sorcery. The pro- 
gram was written on an SWTP 6800 machine using an 8K BASIC in- 
terpreter. The game involves you in a search and rescue of a 
princess held in an evil captor's dungeon. During the quest, the 
player encountered a variety of creatures — some good, some bad. 

I immediately fell in love with the program and soon adapted it to 
my Level II, 16K machine. As written, the listing required less than 
8.5K of memory. When it comes to writing game programs, I gen- 
erally followed the advice of my old art teacher: When you're paint- 
ing a picture fill up the entire canvas, after all, you're paying for it. 

Armed with this bit of philosophy and a great deal of unused 
space in my 16K memory, I set out to paint my canvas. 

New Dimensions 

The revised program still follows the overall theme of the orig- 
inal, but adds more dimension to the encounters that pop up dur- 
ing play. The program uses TRS-80 graphics and includes a few 
new adversaries. Whereas the original program is primarily ran- 
dom based, the revised program also includes the elements of 
skill, strategy and awareness. 

The scenario of the game is familiar. In typical fairy tale fashion, 
you are an impoverished, rather inept hero, attempting to rescue 
an elfin princess who has been imprisoned in a dungeon located 
deep within the Old Forest. When you begin your quest, you are 
equipped with only a small sword and some provisions. 

Prior to entering the Old Forest you may be offered assistance 
from a dryad, as well as the counseling of the Great Oracle. The 
nymph is a real plus as she makes an excellent guide and can be 
helpful in combat with the trolls. However, be careful not to offend 
her, because she can turn that magical power on you with a curse. 

The oracle, on the other hand, appears to be more interested in 



the maidens you're bringing rather than helping. Nevertheless, 
once appeased, he can point you in the right direction. 

Before you start your journey, familiarize yourself with two units 
of measure in this little magical world: the Yerb and the Farbble 
Warfer. Both are measures of distance. Legend has it that the 
measure was defined as the distance between Ezekiel Yerb's 
house and that of Hansel Farbble Warfer. One man was short and 
the other rather tall, and as a result the two could never agree on 
the number of steps between the two houses. The sense of the 
whole thing has long since been lost, and, today, all we know is 
that 1 Yerb is equal to 3 A of a Farrble Warfer. 

While on your journey, you will meet a number of different crit- 
ters. The full cast of characters is as follows: 

Nymph: She knows the Old Forest like the back of her hand and 
is very good in fights with trolls. 

Hot dog salesman: Ha! You thought that you could get away 
from them, yet here they are. Don't laugh! One of these 
gastronomical marvels can keep you going long after your provi- 
sions have given out. 

The Great Oracle: Generally, he has more interest in what you can 
do for him, rather than what he can do for you. However, he may 
tell you the correct path to take. 

Slave girls: They provide conversation and something for the 
satyrs to look at; otherwise, they do little but cut into your provi- 
sions. 

Rats: They will give you the willies and make you run, but other- 
wise are of little consequence. 

Snakes: A snake bite will lay you up for a day. 

Spiders: They will attack, unless you can outrun them. 

Dragons: Dragon slaying is still big news with big rewards, but 
be careful, because these guys have been known to flick their Bics. 

Goblins: You can be startled by them and run, otherwise, they 
will enslave you, sell you to the satyrs or let you go free for ransom. 

Trolls: There are two kinds of trolls — your everyday run of the 
mill troll and the dreaded warrior trolls. The common trolls are 
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and Sorcery II 



"Once you have rescued the 

princess, you no longer have the 

choice to fight or not fight. ... To 

make it to safety, you 

have to fight your way out." 



pesky fighters, particularly dangerous in the early going, while the 
warrior trolls are bad news all of the time. 

The Necromancer: The chief heavy and captor of the princess, 
as well as the all-around bad egg. 

Elements of the Fantasy 

The other elements of the fantasy consist of the pits into which 
one occasionally tumbles, gold coins and an enchanted sword. As 
you might have guessed, the pits are an obstacle from which you 
must escape either by climbing or yelling for help. The gold that 
you pick up along the way is used to buy food, pay ransom and pro- 
vide you with a little bank roll should you be lucky enough to com- 
plete your quest. 

Of course, there is a "Catch 22." The weight of all that gold is 
somewhat of an encumbrance to combat and inhibits your fighting 
ability. The enchanted sword, on the other hand, enhances your 
fighting ability. In fact, you are usually in big trouble if you don't 
have it. 

A player's fighting skill develops as he is successful in combat. 
A player increases his fighting ability in combat with common 
trolls, satyrs and dragons. But there are degrees of improvement. 
More fighting ability is acquired by slaying dragons than trolls. 
However, a similar gain is made when either a troll or a satyr runs 
from you. 

In like fashion, your own fighting ability is diminished when you 
run from combat. Dragon fighting is the only exception. It's your 
choice. You can walk away from it any time. 

Considerable fighting ability is usually necessary to defeat a 
warrior troll. But after fighting one of the super trolls, you are 
usually so frazzled that your fighting ability has been reduced. 

The playing instructions are simple. Prior to loading the pro- 
gram from cassette, set the memory size to 32697 in order to 
reserve room for the dragon's graphics code. If you are already up 
and running you can get back to MEMORY-SIZE? without powering 
down by entering the SYSTEM command followed by a VENTER'. 

Initially, entering RUN will get the introductory title and the 



familiar READY. At that point the first five lines of the program are 
automatically deleted. Entering RUN thereafter initiates the main 
program. This is done to conserve memory, providing an additional 
600 or so bytes. 

The INKEY$ command is used to eliminate the repeated use of 
the ENTER key where possible. 

There are questions which require word answers: RUN, YES, NO, 
CLIMB and YELL. Only the first letter of the word need be typed. In 
two cases a prompt answer is important — encounters with either 
the spiders or the dragons. To avoid attack from a spider, the 
player must strike the R key as quickly as he can. In the case of the 
dragon, the rescuer is moved toward and away from the dragon by 
using the less than and greater than keys, respectively. Any other 
key will stop the rescuer where he is. 

Once you have rescued the princess, you no longer have the 
choice to fight or not fight common trolls. To make it to safety, you 
have to fight your way out. 
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The Listing 

There are several lines that contain IF statements like IF F 
PRINT'THE NYMPH GOES MAD" (line 900). This is not a mistake, 
but a memory-saver and is permissible because numerical IF 
statements test for a non-zero value. F, in this case, can only be a 1 
or a 0. 

The revised program requires nearly all of your 16K memory. To 
further conserve memory, no REM statements are used except for 
the listing title. However, the program has been written in, more or 
less, block format with a PRINT statement introducing each block. 
Table 1 lists those blocks. That should be enough to start you on 
your search for the dungeon, the princess and a typical fairy tale 
ending. 

Have fun, but watch out for the onions on those hot dogs — they 
are murder. ■ 



LINE NUMBERS 


DESCRIPTION 


1-11 


introductory title; set up dragon's graphics code 


14-30 


Initialize variables; main program entry point 


65-70 


random number seed 


85-105 


timer gallery 


110-115 


question routines 


120 


set up for nymph 


125-170 


Great Oracle 


180-195 


set up of main program loop 


200 


main loop entry point 


220-240 


nymph guidance and lot casting 


250-270 


path choosing 


280 


enchanted sword 


290 


snake in the grass 


300 


check for dungeon and trolls 


310 


check for rats 


320 


check for dragons 


330 


check for pit 


335 


check for the dungeon 


340-360 


something is in the bushes 


370 


check for Necromancer and satyrs 


390-400 


gold 


410 


slave girl 


420 


check for dungeon 


430 


check for pit 


440 


dead end 


500 


nymph's mad 


530-540 


travel advisory 


550-556 


check on provisions 


570-600 


captured by goblins 


610-695 


dungeon 


700-745 


run of the mill troll 


750-790 


Satyrs 


800-885 


the pits 


900-910 


Necromancer 


950 


rats 


960-1095 


Warrior Troll 


2000 


something is in the bushes 


2100-2120 


spider 


2300-2350 


surprise goblin 


2400-2430 


the hot dog salesman 


3000-4200 


dateline: news story 


Table 1. Block format for Swords and Sorcery II. 



I CLS:PRINT@27 8, "SWORDS AND SORCERY II " :PRINT@408 , "BY B 

ARRY L. ADAMS" :PRINT@467, "GREENVILLE , NORTH CAROL 

INA":PRINT@586, "BASED UPON A PROGRAM WRITTEN BY B 

RUCE TURRIE" 
3 PRINT@656, "PUBLISHED IN THE AUGUST 1978 ISSUE" : PRINT@ 

735, "OF" :PRINT@7 91, "KILOBAUD MAGAZINE" : PRINT 
5 FOR X=32767 TO 32709 STEP-1:READ Z:P0KE X,Z:NEXT:FOR 

X=32708 TO 32697 STEP-1:READ Z:P0KE X,Z :NEXT:DELET 

E 1-11 
10 DATA 160,190,191,180,184,191,191,191,191,191,188,144 

,160,186,191,191,191,191,191,191,191,191,191,191,1 

91,191,188,188,144,16 0,190,191,147,17 5,191,191,191 

1,191,191,191,191,191,159,131,17 9,191,181,160,190, 

191,151,16 0,191,191,16 8,191,186,17 

II DATA 188,188,191,190,189,131,131,131,170,191,170,191 

14 REM 

SWORDS AND SORCERY II 

15 CLS: 

CLEAR 250:DEFINT L:XX=458 :GOSUB 65:FOR X=1T09:READ 
Y,Z:A(X)=Y:B(X)=Z:NEXT:DATA 15898,3,15 961,7,16023 

3,16,16086,17,1596 9,4,15907,2,15844,1,157 81,0,1571 

R$=" OUR BUNGLING HERO " 
20 RANDOM:PA=2:B$(l)="CLANK " :B$ (2) ="SLASH ":B$(3)="W00 

SH ":B$(4)="BONG " :B$ (5) ="CRASH " :B$ (6 ) ="BING " :B$ 

(7)= "CLANK ":S$(1)=CHR$(160)+CHR$(183)+CHR$(181)+C 

CHR$(183)+CHR$(181)+STRING$(60,32)+STRING$(4,14 9) : 

HR$(149) :K$=CHR$(132) 
25 S$(2)=CHR$(176)+CHR$(144)+CHR$(176)+CHR$(144)+STRING 

$(59,32)+CHR$(162)+CHR$(135)+CHR$(151)+CHR$(151)+C 

HR$(167):FOR Y=1T05 :FORX=lT05 :READ Z :E$ (Y) =E$ (Y) +C 

HR$(Z) :NEXTX,Y 
30 E$(6)=CHR$(156)+" "+CHR$ (156 ) :E$ (8) =" ":E$(7)=C 

HR$(135)+" n +CHR$(135) :E1$="- -":E2$=" ":FORX 

=1T07:READ Y:E3$=E3$+CHR$ (Y) :NEXT: FOR X=1T07:READ 

Y:E4$=E4$+CHR$(Y) :NEXT:GOTO70 
65 CLS:PRINT@XX,CHR$ (23) ; "SWORDS AND SORCERY II":PRINT: 

RETURN 
70 PA=10:PRINT"ENTER A NUMBER BETWEEN 1 AND 9":GOSUB115 

:A=AN:PA=0:FOR X=lTOA:PN=RND (A+5) :NEXT: PA=0 :GOSUB9 

0:CLS:GOTO120 
80 RETURN 

85 FOR T9=1TO50:NEXT:RETURN 
90 FOR T9=1TO100:NEXT:RETURN 
95 FOR T9=1TO300:NEXT:RETURN 
100 FOR T9=1TO500: NEXT: RETURN 
105 FOR T9=1TO1000:NEXT:RETURN 
110 A$=INKEY$:IF A$="",110 ELSE AN=ASC(A$) : IF AN=89 OR 

AN=7 8 RETURN ELSE 110 
115 A$=INKEY$:IF A$="",115 ELSE AN=VAL(A$) : IF AN>PA,115 

ELSE PA= 2: RETURN 
120 IF RND(PN)*2<=RND(PN)*RND(2) GOSUB65 :PRINT"A DRYAD 

HAS OFFERED TO BE YOUR" :PRINTTAB(12) ; "GUIDE" :PRINT 

TAB (6);" DO YOU WISH IT ?" :GOSUB110 :GOSUB90 : IF AN= 

=89,F=1 ELSE IF RND(0)>.2 GOSUB65 :GOSUB 500:GOSUB1 

HR$(149) :K$=CHR$(132) 
125 CLS:XX=266:GOSUB65 
130 W=F: PRINT" THERE ARE THREE PATHS INTO THE OLD FORES 

T, HOWEVER , ONLY ONE IS TRUE THE OTHERS ARE FOUL 
AND":PRINTTAB(4) ; "REEK OF MISERIES UNTOLD" : PRINT: 

C=RND(3) :Y=RND(3) : IF RND( 0) >. 4 ,Y=C 
140 PRINT"DO YOU WISH TO CONSULT THE GREAT" ;: PRINTTABd 

2); "ORACLE ?" :GOSUB110 : IF AN=78,180 ELSE CLS:XX=20 

2:GOSUB 65 : PRINT: PRINT" AHA! TO GAIN FAVOR WITH THE 

E FAT ONE AND GET THE POOP YOU NEED YOU MUST F 
APPEASE HIM.": PRINT 
150 PRINTTAB(2) ; "HOW MANY MAIDENS SHOULD BE" :PRINTTAB (1 

0) ; "SACRIFICED"; :INPUTMD: IF RND(MD)<RND (PN) PRINTT 

AB(l);"OH OH THE ORACLE IS OFFENDED" :K=K-1:GOTO160 
155 IF RND(0)>.4-(MD/10) ,165 

16 PRINT"THE SIGNS ARE UNCLEAR - YOU MUST ";:GOTO17 
165 PRINT:PRINTTAB(5) ; "THE ORACLE SAYS PATH" ;Y:PRINTTAB 

(5); "IS THE PATH OF TRUTH" :P=1 
170 IF F AND RND(MD)>RND(PN)*RND(PN) GOSUB500 
180 PRINT:PA=3:PRINTTAB(5) ; "CHOOSE PATH 1,2 OR 3":GOSUB 

115:X=AN:L=RND(100)+100:IFXOC,K=K-l:L=L+50 ELSE K 

=K+1 
190 K=K+.5*RND(0)+F+P+.2*M*SGN(5.1-M) :DT=L 
195 CLS :PRINTTAB( 21 ) ; "SWORDS AND SORCERY II":PRINT 
200 PRINT: PRINT "YOU HAVE COME TO A FORK IN THE PATH":C= 

RND(2) :Z=W-F:S=8-Z-G/(1+Z) :IF S<4,S=4 
210 IF RND(3)>K,L=L+1 
220 L2=7+RND(20) :LO=L2:IF F PRINT"PERHAPS YOU WOULD LIK 

E TO ASK THE NYMPH ?" :GOSUB110 : IF AN=78,250 ELSE I 

F RND(0)>.5+K/50 PRINT"SHE DOESN'T KNOW":GOTO 250: 

ELSE PRINT"SHE SAYS PATH "j ;C:GOTO250 
230 PRINT"WILL YOU CAST LOTS TO DECIDE ?" :GOSUB110: IF A 

N=7 8,250 ELSE PRINT'THE LOTS SAY YOU SHOULD TAKE P 

ATH";:IF RND(0) > . 5+K/10 X=3-C ELSE X=C 
240 PRINTX 

250 PRINT"WHICH WAY DO YOU WISH TO PROCEED PATH 1 OR 2 
?":GOSUB115:B=0:IF X=C,K=K+RND ( 0) *SGN ( . 5-RND (0) ) : 

D=0:GOTO27 
260 K=K-.2:D=-1 
270 L2=L2-S 

280 I=I+1:IF E=0 AND RND (0)< .15+. 2*F PRINT:PRINT" WHAT 
LUCK ! YOU HAVE HAPPENED UPON ONE OF THE ENCHANTE 

D SWORDS OF THE OLD ONES" : K=K+. 2 :E=1 : PRINT 
290 IF RND(0)-.5*(F+D)>.95 PRINT:PRINT" SNAKE lllll 
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300 

310 
320 
330 
335 
340 
350 
360 
370 
380 
390 



400 

410 



1 1 U ! 1 ! 1 I 1 1 ! n :PRINT:GOSUB53 
T=T+1:IF RND(0)<.15,420 ELSE IF RND ( 0) > . 8+ (K+D) /3 

GOSUB700:GOSUB95 
IF RND(0)>.95 GOSUB950:GOSUB95 
IF RND(0)>.92 GOSUB2200 
IF RND(0)<.03 GOSUB800:GOSUB95 
IF RND(0)<.4,420 
PT=0:IFRND(0)>.97 GOSUB2000 
IF RND(0)<.2 GOSUB2000:GOSUB95 

IF RND(0)>.96 IF M<=0 GOSUB2000 ELSE GOSUB2400 
IF RND(0)>.98+(K-I/10)/100 GOSUB900 
IF WO0 AND RND(0)>.95+(K+D)/50 GOSUB7 50 :GOSUB95 



1 S THIS BESIDE THE PA 
!":GC=RND(PN) *RND(PN 
' :G=G+GC:DS=DS-GC*.00 



IF RND(0)>.75 PRINT: PRINT"WHAT' 

TH":PRINT"A CHEST" : PRINT n GOLD 

) :PRINT"THERE ARE " ;GC; "COINS" 

01 
IF T>10-2*F GOSUB540 
IF RND(0)<.05 PRINT" YOU MEET A SLAVE GIRL" :W=W+1 :M 

=M+1 



420 IF L2>0,270 ELSE L=L-LO* . 85 : IF L<20 GOSUB610 

430 IF DO-1 OR RND(0)<.9,200 ELSE IF RND(0)>.6 GOSUB? 



440 
500 



530 

540 



550 



560 
565 
570 



590 
600 



616 



620 
630 
650 



655 



661 



683 

685 



0621 
695 
700 



705 

710 



715 



PRINT"00PS THIS PATH IS A DEAD END" :L2=L2+LO: L=L+L0 
:D=0:GOTO27 

PRINTTAB(3) ; "THE NYMPH IS MOST PERTURBED" :PRINTTAB( 
2); "SHE CURSES YOU AND DISAPPEARS" : PRINTTAB (8) ; "IN 
TO THE FOREST" :F=0:W=0:K=K-1:RETURN 

PRINT"YOU HAVE BEEN HURT !" 

PRINT"YOU MUST STOP AND REST BEFORE GOING ON.": IF F 
PRINT"THE NYMPH THINKS THAT THE DUNGEON IS LESS T 
HAN";ABS(L-20) ; "YERBS AWAY":ELSE PRINT"YOU HAVE TR 
AVELED";INT(ABS(DT-L) *.75) ; "FARBBLE WARFERS" 

T=0:GOSUB105:H=H+1+W-F:IF H<4-W+F,560 ELSE IF J=0 P 
RINT:PRINT"YOU HAVE JUST EATEN THE LAST OF YOUR FO 
OD":PRINT: J=l :K=K-RND ( 0) :ELSE M=M+1 :K=K-RND( 0) +.2* 
F 

IF RND(0)<1-(I+N)/100 PRINT"TIME TO PUSH ON" 

IF M<14 RETURN ELSE R4=7 :GOTO3000 

PRINT: PRINT" YOU HAVE BEEN CAPTURED BY GOBLINS": IF E 
<>1,600 ELSE PRINT"THEY WANT THE SWORD THAT ONCE B 
ELONGED TO THE OLD ONES -" :PRINT"WILL YOU TRADE IT 
T FOR YOUR FREEDOM ?" :GOSUB110 : IF AN=78,600 ELSE E 
: PRINT" IT IS THEN AGREED" :G0SUB1 00 

IF PT FOR T=1T0 50 : PRINT"HA, HA, HA, HA, HA, HA, HA, HA, HA 
, HA, HA, HA, HA, HA, HA, HA, HA, HA, HA, HA, HA": NEXT: PRINT"T 
HEY TOSS YOU BACK INTO THE PIT WHERE "; 

IF M<14 RETURN ELSE R4=7 :GOTO3000 

Q=RND(30) :IFG>=Q PRINT"THE GOBLIN LORD FREES YOU FO 
R";Q;"GOLD COINS" :G=G-Q:GOTO580 :ELSE IF W<=0,R4=8: 
PRINT"YOU ARE ENSLAVED" :GOTO3000 :ELSE PRINT"YOU AR 
RE SOLD TO THE SATYRS BY THE GOBLINS" :G0SUB7 60 : GOT 
:PRINT"IT IS THEN AGREED" :GOSUB100 

IF R=0 PRINT: PRINT"L00K1 THERE IS THE ENTRANCE TO T 
HE DUNGEON":GOSUB105:PRINT"H";:FOR EX=1T061 : PRINT" 
H"; :GOSUB80:NEXT: PRINT" 1 " : PRINT"THERE APPEARS TO 

BE A GUARD":G0SUB1 05: PRINT "IT'S TOO DARK TO SEE F 
HERE - MUST GET CLOSER " :GOSUB105 :GOTO650 

IFL>0 RETURN ELSE IF R=-2,R4=9 ELSE R4=10 

GOTO3000 

CLS:DX=80:FOR DY=41T018 STEP -1 :SET(DX ,DY) :NEXT: FOR 
DY=17T012 STEP -1 : DX=DX+1 : SET (DX ,DY) : NEXT: FOR DX= 
86T094:SET(DX,12) : NEXT: DX=94 : FOR DY=12T019 :DX=DX+1 
:SET(DX,DY) :NEXT: FORDY=19T044 :SET(102 ,DY) :NEXT 

DX=70:FOR DY=39T01 STEP -1 :SET (DX,DY) :NEXT:FOR DY=2 
TO47:SET(120,DY) : NEXT:WX=6 :LZ=448 :FOR EZ=1T03:G0SU 
B6 85: NEXT EZ 

X=l:GOSUB695:GOSUB95:X=3:GOSUB6 95:GOSUB95:X=l:GOSUB 
695: GOSUB90 : X=4 : G0SUB6 95 : GOSUB95 : X=l : G0SUB6 95 : GOSU 
B90:X=3:GOSUB6 95:GOSUB90:X=1:GOSUB6 95:GOSUB90:X=8: 
GOSUB695:IF LZ>448 , RETURN 

VA=448:VB=462:FOR V3=1T02:F0R LZ=VA TO VB:PRINT@LZ, 
E$(WX) ; :GOSUB90:PRINT@LZ,E$(8) ; :WX= (3- (WX-5) ) +5 :NE 
XT:GOSUB 660 : VA=462 : VB=476 :NEXT V3 : PRINT@VB, E$ (4) ; 
; :GOSUB685:PRINT@VB,E$(5) ; :GOSUB685 : PRINT0VB, E$ (5) 
INT@VB, E$ (4 ) ; : FOR X=1T03 : PRINT@492 , E1S; : GOSUB10 

PRINT@492,E2$;:GOSUB90 :NEXT:GOTO690 

PRINT@492,E1$;:PRINT@14 5,"Z";:F0R EX=1T015 : PRINT" Z " 
; :GOSUB85:NEXT EX:F0R EX=1T0RND ( 500) : NEXT EX:PRINT 
@492,E2$;:GOSUB95:PRINT@145, STRINGS (16," ") ;: PRINT 
@492,E1$; :RETURN 

PRINT@4 90,E3$; :GOSUB100 : PRINT@490 , STRINGS (8 , " ") ; :G 
OSUB90:PRINT@490,E3$;:GOSUB100:PRINT@490,E4$;:GOSU 
B100:PRINT@VB,E$(2) ; : GOSUB100 :CLS :0N RND(4) GOSUB70 
00, 960, 960, 7 00 :R=1:W=W+1: PRINT :PRINT"OK, YOU'VE FOU 
HE PRINCESS" :PRINT"LET'S GET OUT OF HERE !":GOT 
) 

PRINT@LZ , E$ (X) ; : RETURN 

PRINT: PRINT"UGH ! A TROLL !!!! YOUR FIGHTI 

NG ABILITY IS" ;DS*1000; "% " : PRINT: IF LZ>0,710 ELSE 
PRINT"ARE YOU GOING TO FIGHT HIM" :GOSUB110 : IF AN=8 
9,710 ELSE IF RND(3)=1,DS=DS-.01 

G0SUB7 40: RETURN 

TB=0:IF E=l AND RND(0)<.2+DS PRINT: PRINT"THE TROLL 
RUNS !":PRINT:DS=DS+.01:RETURN:ELSE PRINT"THE FIGH 
T BEGINS . . . ";:GOSUB100:FOR Z7=1T0 RND(PN)*3 

R4=3:PRINT B$ (RND(7 ) ) ; :GOSUB90 :NEXT Z7:PRINT:IF RND 
(0)+DS+(DS*(E+F*10)) >.5 PRINT :PRINT"THE TROLL HAS 
BEEN DEFEATED AND LIMPS OFF" : PRINT :DS=DS+. 0036 :GOT 
0725:ELSE SF=.3:IF E=1,SF=.5 



725 



736 



735 
740 



745 
750 



771 
78( 



IF RND(0)>SF+(DS*(E+F) ) PRINT"0000F ! ° :GOTO3000 :ELS 
E PRINT: PRINT"YOU BOTH ARE TOO TIRED TO CONTINUE T 
HE FIGHT !":PRINT:TB=1:IF RND(3) <>2,DS=DS-. 002 

IF LZ=0 GOSUB540: RETURN: ELSE IF TB=1 PRINT"YOU MUST 
REST" :GOSUB100: FOR EX=1T0 RND ( 40 ) : PRINT"REST , " ; : 
GOSUB85:NEXT: PRINT" - AGAIN ! " :GOSUB85 :GOTO710 

IF LZ>0 GOSUB100:RETURN:ELSE IF RND (0) +.05*E< . 4 GOS 
UB540 

RETURN 

PRINT: PRINT"R";: FOR T8=1T0 PN*5 : PRINT"U" ; : GOSUB80 :N 
EXTT8:PRINT"N !!!!!! ! " :PRINT: L=L+4*S* (RND (0) -.7) :T 
=T+1:IF RND(0)>.7 GOSUB800 

RETURN 

PRINT: PRINT "OH NO! SATYRS.": IF E AND RND(0)<.5 PRIN 
T" HA, THEY RUN FROM YOUR SWORD" :DS=DS+ . 025 : RETURN 

PRINT"THEY WILL LET YOU GO FREE IS IF YOU WILL FIGH 
T THEIR CHAMPION - WHAT IS YOUR DECISION ?":G0SUB1 
10:IF AN=89 GOSUB960 : IFRND( 0) > . ?. RETURN:ELSE DS=DS 
-.002 

PRINT"THE SATYRS WANT THE FEMALES OF YOUR GROUP" :W= 
0:F=0:IF R=l,R=-2 

PRINT"WILL YOU AGREE TO THESE TERMS ?" :GOSUB110 : IF 
AN=7 8 PRINT"OH DID YOU MAKE THEM MAD - THEY DO YOU 
IN AND TAKE THE WOMEN" :R4=6 : GOSUB100 :GOTO3000 : ELS 
SE PRINT"THEY TAKE THE WOMEM":IF RND(0)>.03 PRINT" 
CURSE Y0U":K=-5 

IF RND(0)>.3 RETURN ELSE R4=5 : PRINT"THE SATYRS CAN 
NEVER BE TRUSTED - THEY DO YOU IN ANYWAY" :G0SUB1 00 
:GOTO3000 

PRINT: PRINT "YOU HAVE FALLEN INTO A DARK PIT" 

PT=1:IF RND(0)>.5 GOSUB540 

PRINT"YOU MUST ESCAPE" :PRINT"DO YOU WANT TO TRY AND 
CLIMB OUT OR YELL FOR HELP ?" 

A$="":A$=INKEY$:IF A?="" ,830 ELSE A=ASC(A$):IF A=67 
OR A=89 ZX=0 ELSE 830 

IF A=67 PRINT"OK LET'S GIVE IT A TRY !":GOSUB105: E 
LSE 860 

IF RND(0)<.5-ZX/10 PRINT"YOU'VE MADE IT - YOU ARE 
UT": RETURN: ELSE PRINT" YOU FALL WHILE TRYING TO CLI 
MB !":PRINT:PRINT: IF RND(0)<.2 GOSUB540 

ZX=ZX+1:IF ZX <5,840 ELSE PRINT: PRINT"PUFF PUFF! TO 
DAMN DEEP GOT TO YELL FOR HELP! " :GOSUB105 

CLS:SP=54 0:FOR X3=1T0 RND (3) :X6=1 :GOSUB885 :FOR X4=l 
TORND(50)*10:NEXT X4 : CLS :GOSUB85 :NEXTX3 : X6=3 :GOSUB 
885:GOSUB100:X6=1:GOSUB885:GOSUB100:X6=4:GOSUB885: 
:GOSUB105:CLS:GOSUB85:X6=2:GOSUB885:GOSUB95:CLS:X6 
OSUB885:PRINT@287,Q$:PRINT@351,K$:GOSUB90 

PRINT@722,"GEE , IT'S DARK DOWN HERE" :GOSUB100 : CLS 
:X6=2:GOSUB885:PRINT@283, "H E L P ! " :GOSUB95 :X6=5 : 
GOSUB885 : X4=10 : PRINT@X4 , "*" : FOR X3=lT06 : X4=X4-1+ (R 
ND(3)-1) :PRINTTAB(X4) ; "*" :GOSUB85 :NEXTX3 

PRINT@660,"A ROPE HAS BEEN LOWERED" :X6=1 :GOSUB885 :G 

OSUB105:PT=0:Y=RND(4) : PRINT@724 , " YOU HAVE BEEN RES 

QUED BY ":IF Y=l GOSUB 700 ELSE IF Y=2 PRINT"OH NO 

!":GOSUB570 ELSE IF F PRINT"THE NYMPH" ELSE PRIN 

OLD LADY":W=W+1 

PRINT"YOU MUST START OUT" :GOSUB100 :GOTO290 

PRINT@SP,E$(X6) :RETURN 

PRINT:PRINT"IT'S THE NECROMANCER .... !":IF RND ( 
0)>.6 GOSUB7 40: RETURN: ELSE IF F PRINT"T11E NYMPH GO 
ES MAD":W=W-1:F=0 

IF R>0 PRINT"HE TAKES THE PRINCESS" :R=-2 

IF E=l PRINT"HE TAKES YOUR SWORD" :E=-1 . 5 : PRINT" YOU 
ARE CAST INTO A DEEP PIT" : PRINT .-GOSUB810 :RETURN: EL 
SE R4=11:GOTO3000 

PRINT: PRINT"UGH! RATS, MILLONS OF THEM" :G0SUB7 40 :RE 
TURN 

W3=2:H1=1+DS:H2=1+DS:W2=1+.3*RND(0) :H3=2+SGN(E) :CLS 
:PRINT@458,CHR$(23) ; "IT'S A WARRIOR TROLL" :R4=4 :G0 
SUB105:CLS:PRINTTAB(22) ; "THE BATTLE BEGINS" 

FORZ2=1TO200:X=RND(7) :NEXTZ2 :PRINT: PRINT"YOU CIRCLE 
FOR POSITION";: FOR X2=1T05 : PRINT" . " ; : GOSUB90 :NE 
XTX2: PRINT 

H1=H1-.05:H2=H2-.05:PRINT"HE ATTACKS WITH BOTH SWOR 
D AND MACE SWINGING !":IF X=l PRINT"HE SLASHES WIL 
DLY WITH HIS SWORD !":FOR T7=1T0RND (6 ) : PRINT"SLASH 
!";:GOSUB90:NEXT:PRINT:GOTO1030 
3 IF X=2 PRINT"HE THRUST HIS SWORD STRAIGHT FOR THE 
BODY !":GOTO1030:ELSE IF X=3 PRINT"HE ATTEMPS TO S 
EVER YOUR HEAD IN A SINGLE BLOW ! " :GOTO1030 : ELSE I 
IF X=4 PRINT"HE TWIRLS THE MACE DIRECTLY TOWARD YO 
EAD !":GOTO1030 
3 IF X=5 PRINT"HE SWINGS HIS MACE SAVAGELY AT YOUR B 
ODY !":GOTO1030:ELSE IF X=6 PRINT"HE GLANCES YOUR 
BLOW AND LAYS ON WITH HIS SWORD ! " :GOTO1030 : ELSE P 
PRINT"HE KICKS SAND IN YOUR FACE AND SWINGS HIS SW 
TO CLEAVE THE AIR AND YOUR HEAD ALONG WITH IT 

1020 PRINT"S";:GOSUB80:PRINT"W";:GOSUB80:FOR X=1T0 50:P 
RINT"0" ; : GOSUB80 : NEXT: PRINT" I" ; : GOSUB80 : PRINT"S" ; : 
GOSUB80:PRINT"H !" 

1030 IF RND(0)<=.5+.3*H2/W2,1050 ELSE PRINT"YOU'RE HIT 
!":H1=H1-.2:H2=H2-.2:GOSUB100:PRINTTAB(15) ; "OOOOF 
!!":GOSUB95:IF Hl>=.05 PRINTTAB(30) ; "YOU STAGGER A 

AWAY " :GOTO980:ELSE PRINTTAB (3 0) ; "YOU 'R 

WN m B :GOSUB100 

1035 PRINT: PRINT"HE SLOWLY CLOSES FOR THE FINAL BLOW !" 
:FOR X = l TO RND ( 16 ): PRINT" STEP ! " ; : GOSUB95 :NEXT: P 
RINT:IF RND(0)>.1+E/20,1045 

1040 PRINT: PRINTTAB( 13) ; "YOU DESPERATELY MAKE A FINAL T 
HRUST ! !":GOSUB105:IF RND(0)>.9+DS PRINTTAB (22) ; "S 



810 

820 

830 

835 

840 

850 



865 



870 



885 



905 
910 



950 
960 

980 

990 



101 
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1045 
1050 



1065 
1070 



1075 

1080 
1085 
1090 



1095 
2000 



2100 



2120 



ORRY, YOU BLEW IT i":ELSE PRINTTAB ( 28 ) ; " OOOF ! n :G 

GOSUB 105:PRINTTAB(19) ; "YOU DID IT ! HE'S DOWN 11 

SUB105: RETURN 

PRINT : PRINTTAB ( 23 ); "YOU'RE FINISHED 1 ! " :GOSUB105 : G 

OTO3000 

X=RND(6):IF X=l PRINT"YOU STOP HIS BLOW WITH YOUR 

SWORD AND BACK AWAY !!" :GOT01 085 : ELSE IF X=2 PRINT 

"YOU DUCK UNDER HIS SWORD - VEER FROM HIS MACE AND 

D ATTACK !" :GOT01 070: ELSE IF X=3 PRINT"YOU PARRY T 

ATTACK !":GOTO1070 

IF X=4 PRINT"YOU KICK HIM IN THE SHINS AND SCAMPER 
AWAY !":GOTO 1095: ELSE IF X=5 PRINT" YOU STOMP HIS 
TOES WITH YOUR BOOT !" :GOT01 095 : ELSE PRINT"YOU SL 

LASH LEFT !";:IF RND(3)=1 PRINT:ELSE PRINT"YOU SLA 
IGHT !" 

PRINT"THEN THRUST STRAIGHT FOR HIS KNEES" 
F0RX3=1T0H3:IF RND(0)<=.1 PRINT"YOU MISSED HIM !!! 
!":ELSE X=RND(H3):IF X=l PRINT"YOU GOT HIS LEG 1": 

W2=W2-(DS+H2/5) :W3=W3- (DS+H2/5) :ELSE IF X=2 PRINT" 

"YOU'VE SLASHED HIS ARM" :W2=W2- (DS+H2/3 ) :W3=W3- (DS 

5) 

IF X=3 PRINT"YOU SCORE TO HIS BODY 1 " :W2=W2-DS: W3= 

W3-(.05+DS) 
NEXTX3 

IF W2<.l,W2=.l 

IF W3>.05,980 ELSE PRINT"HE'S DOWN 1 ! 1 1 1 " :PRINT"YO 
U'VE FINISHED HIM OFF! 1 " :GOSUB105 :DS=DS*RND (0) :RET 
URN 

W2=W2-(DS*RND(0)) :W3=W3-(DS*RND(0)) :GOTO1085 
PRINT"HOLD IT !";: GOSUB90 : PRINT" THERE'S SOMETHI 
NG MOVING BEHIND THAT BUSH 1? 1 " :GOSUB90 :R4=RND (5) : 
ON R4 GOSUB 700 , 2100 , 2200 , 2300 , 2400 :RETURN 
CLS:PRINT@154,"GEEZE 1 1 1 1 " :GOSUB95 :PRINT@279 , "A HU 
GH SPIDER !":PRINT@384, "QUICK 1 R" ; :RN=RND(10) +P 
N:U2=0 

A$=INKEYS:PRINT"U"; :U2=U2+1:IF U2=RN,2120 ELSE IF 
A$="",2110 ELSE IF ASO"R",2110 ELSE PRINT"N" :GOSU 
B90:CLS:PRINT@478,"WHEW 1 !":RETURN 

PRINT@347,S$(1) :GOSUB90:PRINT@347," ";:PRINT@4 
12,S$(2) ; :GOSUB90:PRINT@412,S$(1) : PRINT@604 , "SLURP 
! ":GOSUB90:PRINT@663,"BU"; :FOR X=1TO10 : PRINT"R" ; : 
:NEXT:PRINT"P 1 1 ";: GOSUB100 : PRINT" HIC !":GOSUBl 
4=2:GOTO3000 

PRINT"HMMMMMMMMM SURE IS WARM ?!?":G 

OSUB100:CLS:PRINT@46 8,CHR$(23) ;"YIEPE 1 1 l!":GOSUB9 
0:PRINT@524,"IT'S A DRAGON 1 ! 1 1 " :GOSUB95 : CLS 



2210 W3=0:FOR X2=lT09 :GOSUB 2290 :NEXT:W3=0 :X6=32709 :X4= 

15704:X5=157 08:GOSUB2280:X4=1576 8:X5=1577 2:GOSUB22 

80:X4=15835:X5=15836:GOSUB2280:X7=16 000+RND(18) :GO 

SUB2270 :PRINT@768, ; 
2215 X$=INKEY$:IF X$<>"", Y2=ASC(X$) : IF Y2=44 ,Y2=-1 ELS 

E IF Y2=46,Y2=1 ELSE Y2=0 
2220 GOSUB2260:X7=X7+Y2:IF X7 >16018 ,DS=DS+ . 045 : PRINT: PR 

INT"YOU DID IT ! - YOU SLAYED THE DRAGON !!1!":G 

OSUB100:RETURN:ELSE IF X7>=16000 GOSUB2270 ELSE 22 

95 
2240 IF RND(4) 01,2215 ELSE F2=18:FOR Fl=46 TO 30 STEP- 

1:F2=F2+1:IF P0INT(F1,F2) IF E=1,R7=RND( 2) ELSE R7 

=RND(3) ELSE 2250 
2245 IF R7=2 PRINT"SIZZLE - YOU'VE BEEN SCORCHED !";:DS 

=DS-.002:ELSE PRINT"YE" ; : T6=X7 :FOR X7=T6TO16000 ST 

EP-1 :GOSUB227 : PRINT "O" ; : GOSUB2260 :NEXT: PRINT"W 1 " 

:R4=1:GOTO3000 
2250 SET(F1,F2) :NEXT:GOSUB90:F2=18:FOR Fl=46 TO 30 STEP 

-1:F2=F2+1: RESET (F1,F2) :NEXT:GOT02215 
2260 FOR X3=0TO3:POKE X7+X3 ,128 :NEXT: POKE X7+65 ,128 : POK 

E X7+66,128:RETURN 
2270 POKE X7,136:POKEX7+l,17 4:POKE X7+2, 140 : POKE X7+3,4 

5:P0KE X7+65,151:POKE X7+66 , 149 :RETURN 
2280 FOR X3=X4 TO X5 :W3=W3+1 :POKE X3,PEEK(X6-W3) :NEXT:R 

ETURN 
2290 FOR Zl=0 TO B (X2) :W3=W3+1 :POKE A(X2) +Z1 , PEEK (32768 

-W3) :NEXT Zl: RETURN 
2295 PRINT"COWARD ! n :RETURN 
2300 C3=30:PRINT:PRINT"IT'S A GOBLIN " ; : FOR EX=1T045:PR 

1ST"!";: GOSUB80 : NEXT: GOSUB80 : PRINT : FOR EX=1T032 : C3 

=ABS(C3+(SGN(RND(3)-2)*5)) :IF C3>56,C3=56 
2350 PRINTTAB (C3 ) ;"R U N 1 1 " :NEXT: PRINTTAB(C3) ; "WHEW, S 

AFE ! " : C=RND ( 2 ) : L=L+RND ( PN) *C : DS=DS- . 01 * ( RND ( PN+1 ) 

-1) : RETURN 
2400 PRINT"GEE ! " :GOSUB95 :PRINT"IT' S A KID SELLING HOT 

DOGS 1?1":IF J AND G>0 ,HD=RND (G+G/2) ELSE HD=G+1 
2420 GOSUB100:PRINT"THE KID SAYS HE'LL SELL YOU ONE OF 

HIS GASTRONOMIC DELIGHTS FOR" ;HD; "GOLD COINS" :GOSU 

B100:IF HD>G PRINT"SORRY, YOU'RE TOO POOR" :RETURN: 

ELSE G=G-HD 
2430 M=M-RND(14) :PRINT"GREAT !":RETURN 
3000 GOSUB100:CLS:PRINT"DATELINE : THE OLD FOREST" :PRIN 

T:ON R4 GOTO 3100,3200,3300,3400,3500,3600,3700,38 
00,3900,4000,4200 
3100 PRINT" WOW! CAN";R$;"RUN. WHAT AN EXHIBITION OF BL 
INDING SPEED. UNFORTUNATELY IT OCCURRED AS A RESUL 



CP/M® 1 - based Business Software for TRS-80® 2 computers on . 
. . . the fastest Mod-ll CP/M with the most features!!! 



Over 610,000 bytes/disk 
Downloading package included 
1,200 baud operation of serial 
printers without data loss 
Single drive backup 



Mixed single/double density on any 
of 4 drives (even a 1 -drive system) 

Ultra-fast disk operation 

Emulation of cursor addressing for 
any of several "dumb" CRTs 



Auto-LF printer support & ASCII 
top-of-form software (LPIII) 

Supplemental document describing 
our implementation 

User-settable function keys 



MOD-II CP/M 



$250.00 



MOD-ICP/M $150.00 CBASIC2® 3 (Mod I or II) $110.00 



The following software for Mod-ll CP/M only unless otherwise stated (*-requires CBASIC2): 



RM/COBOL* 4 - Only COBOL for CP/M with alternate keys (multi- 
key ISAM), CRT screen handling, interactive debug, Z80 code, and 
the most useful Level 2 features. Compatible with Tandy's 

COBOL-but runs faster! $495.00 

PMS (Property Management System) - Interactive, menu-driven 
system includes full G/L, budgeting, cash journal, delinquency 
list, tenant activity/rent roll, complete audit trail and reports 

on vacancies, lost rent, and vendors $650.00* 

demo disk & manual 75.00* 

APH (Automated Patient History) - General-purpose question- 
asking, answer-printing system furnished as self-administered 
review-of-systems general patient history (Mod-I also) . . . $1 75.00* 



MAGIC WAND* 5 - Full-feature word processing, true proportional 
spacing, file merging, and use of full-screen editor for source 

programs or data $400.00 

RPA(Residential Property Analysis)- Analyzes incomeandexpense, 
financing, taxes, inflation and depreciation on home, condo, or 
apartments over a user-selectable time. Shows payoff in terms of 
ROI, Cap rate, cash-on-cash. Amortization schedules and 
worksheet $300.00* 

demo disk & manual 35.00* 

RBC (Rent/Buy Comparison) - Sales or investment tool to compare 
renting and savings account investment vs. purchasing a particular 
property $250.00* 

demo disk & manual 35.00* 



Osborne & Assoc. CBASIC source programs (Mod-I also): 

Payroll w/Cost Accounting $250.00* General Ledger w/Cash Journal $250.00* 

Accts. Payable/ Accts. Receivable $250.00* O&A CBASIC Books (ea.) $ 20.00 

\i»rbaiim® 6 media: (Qty. 100 prices) 

5 1 A" single density $2.50 ea. 

8" certified double density $4.00 ea. 



8" single density $ 3.00 ea. 

450' tape cartridges $20.00 ea. 




8041 Newman Ave., Suite 208 -<?,- 
Huntington Beach, CA 92647 
(714)848-1922 



Registered trademark of: 

91 Digital Research 

s2 Tandy Corp. 

" 3 Compiler Systems, Inc. 

" 4 Ryan-McFarland Corp. 

" 5 Small Business Applications, Inc. 

® 6 Verbatim Corp. 



Distributed in U.K. by: 

Microcomputer Applications Ltd. 

1 1, Riverside Court, 

Caversham, Reading, England 

TEL: (0734) 470425 



^Reader Service index—see page 194 



80 Microcomputing, August 1980 • 47 



cJM Last! 
Orchestra-80 

A TRS-80™ MUSIC SYNTHESIS SYSTEM 

WRITTEN BY JON BOKELMAN 



Turns Any 16K Level II TRS-80 Into A High Quality Musical Instrument 

1$e Software-' 

A five part machine language program consisting of: 

"W Digital synthesizer— produces up to four simultaneous voices in a six-octave range. For 
-£ example, you could have a trumpet, oboe, clarinet, and organ playing in four-part 
harmony or alter any of the voices to imitate other instruments. 

2 Music language compiler— a simple and easy to use language allows you to enter your 
favorite written music in any key or time signature. Plays all note values from whole notes 
to sixty-fourth notes which may be single, double, or triple-dotted and/or played as triplets. 
Supports single and double accidentals, stacatto, pizicatto, two forms of articulation, 
repeats, second endings (with or without retard), and modulation. 

3 Full screen editor— a full function text editor with blinking cursor is provided for easy 
entering and modifying of music programs. Functions include insert/delete characters, 
insert/delete line and global character string search, and automatic error detection/display. 

4 File manager— provides the orderly storing and retrieval of named program files on tape 
or disk. You can even sequence several songs for automatic loading and playing. 
5 Initialization— this set-up routine allows you to alter the voices, select the standard 
four-voice synthesizer or a special high resolution, three-voice version and choose the 
standard (1.77 MHz) or the enhanced (2.66 MHz) clock rate. 

3Je Hardware-* 

A single 1 V2" by 2" PC board plugs into the expansion connector on the TRS-80 keyboard or the 
screen printer connector on the expansion interface. This board contains the electronics 
required to convert the computer output into a high fidelity audio signal. Just plug in the 
board and connect to the aux/tape/tuner input of any audio amplifier. No external power 
supply is required. 

Includes: 



Tape and disk versions on cassette 

Completely assembled and tested 

PC board 

Detailed and complete instruction 

manual 

Sample music programs 



SEND CHECK OR MONEY ORDER TO: 



Orchestra-80 
$79.95 

PLUS $2.00 POSTAGE AND HANDLING 
CALIFORNIA RESIDENTS ADD 6% SALES TAX 



Software Affair 

473 SAPENA COURT SUITE 1, SANTA CLARA, CALIFORNIA 95051 



SPECIAL DEMO LINE! HEAR ORCHESTRA-80 ON (408)727-8194 



T "TRS-80 IS A TRADEMARK OF TANDY CORPORATION 
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T OF A BLISTERING DISCOVERY CONCERNING DRAGONS AND 

D IN THE OPPOSITE DIRECTION OF THAT OF THE PRINCES 

GOTO4500 
3200 PRINT" WHILE SEARCHING FOR THE LOST PRINCESS" ;R$; 

"BECAMETHE MAIN COURSE OF A RAMBLING ARACHNID" :GOT 

04500 
3300 PRINT" ";R$;"WAS ABLE TO HAVE A VERY CLOSE LOOK AT 
ONE OFTHOSE MUCH TALKED ABOUT TROLL SWORDS TODAY 
- UNFORTUNATELY IT WAS WHILE HE WAS BEING ST ABBE 

D WITH IT":GOTO4500 
3400 PRINT"BLUNDER MAN STRIKES AGAIN" :PRINTR$; "STUPEFIE 

S EVERYONE - MAKES TROLL'S SWORD DISAPPEAR IN 

BODY - UNFORTUNELY HIS OWN" :GOTO4500 
3500 PRINT"AFTER REACHING FULL AGREEMENT WITH" ;R$; "THE 

SATYRS NOT ONLY THREW A GREAT FEAST IN HIS HONOR B 

UT MADE HIM THE MAIN DISH AS WELL" :GOTO4500 
3600 PRINT" WHILE" ;R$; "WAS CONDUCTING VERY DELICATE NE 

GOTIA -TIONS WITH THE SATYRS - THEIR DIPLOMATIC CO 

RP ATE HIM FOR LUNCH" :GOT045 00 
3700 PRINT" ";R$; "FOUND THAT WHILE ON HIS LOFTY EXCURS 

ION HE COULD DO WITHOUT MANY THINGS. UNFORTUNATELY 
FOOD WAS NOT ONE OF THEM - HE STARVED TO DEATH" :G 

OTO4500 
3800 PRINT" YOU GUESSED IT 1";R$;"HAS DONE IT AGAIN.": 

PRINT"HOPE HE LIKES DOING WINDOWS" :GOTO4500 
3900 PRINTR$; "MAKES IT TO DUNGEON AND BACK THROUGH MANY 
PERILS - HAS ONLY ONE PROBLEM - LOOSES PRINCES 

S":GOTO4500 
4000 PRINTR$; "HAS PULLED IT OFF - THE PRINCESS HAS BEEN 
RESQUED";:IF G>RND(30) PRINT;" - IS IMMEDIATE 

LY ACCEPTED INTO THE KING'S COURT AND IS ALLOWED T 

TO DO ALL THOSE NICE LITTLE THINGS THAT ONE DOES H 

LYEVER AFTER" :GOTO4500 
4100 PRINT" - UNFORTUNATELY HE IS TOO POOR TO BE ACCE 

PTED IN TO ROYALTY - MUST KEEP UP THE IMAGE YOU 

KNOW":GOTO4500 
4200 PRINTR$;"RAN INTO SLIGHT DIFFICULTY - THE NECROMAN 

CER."; : PRINT" INFORMED SOURCES SAY THAT OUR HERO NO 

W EATS HEY AND IS HEARD TO BREY OCCASSIONALLY" 
4500 PRINT: INPUT"ENTER FOR ANOTHER ADVENTURE" ; A: RUN 
5000 DATA 156,172,32,156,172,159,175,32,159,175,140,188 

,32,140,188,188,14 0,32,188,14 0,17 6,188,32,17 6,188, 

13 8,156,17 2,32,16 8,140,158,13 8,140,188,32,140,188, 

133 



for the TRS-80 from Micro -IVIega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 

Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 



THE GREEN-SCREEN 

Add $1.00 for postage and handling. 



.$13.95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown tor postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax. 
• 309 



Micro- Mega • P.O. Box 6265 • Arlington, Va 22206 



Leaders 
Games 
Pins 

Handicaps 
Blind Scores 

1?*™ S STATISTICS 



BOWLING 
LEAGUE 



High Game 

High Series 

Lanes 

Substitutes 

Points 

Scratch 

Averages 



32K 



TRS-80* 
DOS — PRINTER 



BOWLSTAT 1.1 will generate 
team standing sheets suitable 
for posting with full team and 
player statistics, and also print 
league scoring sheets. Printing 
format is optimized for the 779 
printer, but a modification for 
any printer with 80 characters 
minimum per line is provided. A 
wide range of handicapping and 
scoring options meets almost 
any league's requirements. 
Entry of weekly scores is fast 
and simple with extensive 
prompting and error detection. 

Supplied on Diskette with manual 
$49.95 

Manual Only 

(deductable on purchase 

of diskette) 

$5.95 

Pa. residents add 6% tax 

Datascore ^352 

P. 0. Box 995 Sharon, Pa. 16146 

'Trademark of Tandy Corp. 



TUBE 

The Ultimate Buffered Editor 
for TRS-80 Disk Systems 



TECO like, 21 edit commands, direct 
cursor control, block move, multiple 
input files, file size limited only by 
available disk space. 



On TRS-80 Disk with Manual 
Also available for TRS-80 



$40.00 



SBASIC Structured Basic Pre- 
processor $50.00 

I BASOPT Basic program optimization 
program $20.00 

313 Meadow Lane 
Hastings, Michigan 49058 

(616) 945-5334 
/Dealer inquiries invited) 

• 84 
VISA & MASTERCHARGE ACCEPTED 

' TRS-80 is a trademark ol Tandy Corp 



FINALLY! 

PROFESSIONAL 

PROGRAMMING 

TOOLS FOR EVERY 

BASIC PROGRAMMER 

Do you write Basic programs with your TRS- 
80?* Then you know there are times when 
you need to: 

• RENUMBER part or all of your program. 

• DELETE many lines with one command. 

• APPEND common routines from tape. 

Now, with PROgrammer, you can do all 
these things! And COMPRESS your pro- 
grams to speed execution and reduce size. 
And MOVE blocks of lines within your pro- 
gram quickly and efficiently. Moreover, load 
PROgrammer just once, and these com- 
mands are always available! 

PROgrammer: $25 on cassette with complete instructions. 
Level II required. Please indicate memory size with order. 
Calif, resident add 6% sales tax. *TRS-80 is a trademark of 
Tandy Corp. 

Rational Software ™ 

963 E. California Pasadena, CA 91106 

• 241 



■ Reader Service index— see page 194 
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Star Search 
Level II 16K 
Software Exchange 
W. Bloomfield, Ml 
$12.95 

Howard Berenbon 

2681 Peterboro 

W. Bloomfield, Ml 48033 

Robert F. Gentile 
20156 N. Larkmoor 
Southfield, Ml 48076 

Star Search is a program for a 16K TRS-80 Level II. It creates a 
real-time, Star Trek-type game. 

As the Captain of the Enterprise, your mission is to protect the 
Galaxy from the Klingon threat. Your level of experience determines 
the number of Klingons that you must destroy and the amount of 
time, in star dates, that you have to complete your mission. A 
quadrant is displayed as in Example 1. The symbols are as follows: 

B Base 

E Enterprise 

K Klingon 

' Star 

• Sector 

A legend for all operations appears at the top of the display. Just 
enter the flashing letter for the desired function. There is no need 
to depress ENTER. Here are your options: 

1) R Report 

2) S Short Range Sensor 

3) L Long Range Sensor 

4) C Computer 

5) P Phaser 

6) G Galaxy Map 

7) T Torpedoes (Photon) 

8) E Engines 

9) Z Self Destruct 

Options 

Typing an R displays the status of the Enterprise, including the 
power left and the number of Klingons left. See Example 2. 



Typing an S activates the Short Range Sensor and displays the 
quadrant where you are currently located. The Y-coordinate is the 
vertical and the X-coordinate is the horizontal. It's also shown in Ex- 
ample 1. 

The Long Range Sensor is activated by typing an L. It displays a 
number code for the eight quadrants that surround the Enterprise, 
plus its present location at the center. This is the format: 

1)The hundreds digit indicates the number of Klingons (K) in the 
quadrant. 

2) The tens digit indicates the number of Bases (B). 

3) The ones digit indicates the number of Stars (*). A zero in- 
dicates that there are no objects in the quadrant (Example 3). 

The computer can be used to calculate the angle for firing 
torpedoes and moving the Enterprise. Type a C to activate the com- 
puter. Enter the Y-coordinate and the X-coordinate of the object. 
After entering the numbers, depress ENTER. The sector distance 
and angle will be displayed as in Example 4. 

The Phasers are activated by typing a P. Enter the unit amount of 
energy you wish to fire. The hit will be displayed graphically. If 
there is more than one Klingon in the quadrant, then the energy will 
be distributed evenly among them (Example 5). 

Typing a G displays the Galaxy Map. It displays 64 quadrants 
with a similar notation, as in the Long Range Sensor. The only dif- 
ference is, the code includes a minus sign (-) to indicate that the 
quadrant has already been charted. Here are some examples: 

1) -0 indicates already charted but empty 

2) indicates uncharted 

3) - 102 indicates 1 Klingon, no Bases, and 2 Stars 

4) - 12 indicates 1 Base and 2 Stars 

5) - 1 indicates 1 Star 
Example 6 displays a Galaxy Map. 

Type a T to activate the torpedoes, and enter the direction in 



fflll 




Copyright 1980 by Howard Berenbon and Robert Gentile. 
Copyright 1980 by 1001001, Inc. First rights only 



131 143 170 176 178 188 191 

Fig. 1. Some graphic codes and their pattern. 
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New Products ■ . ■ 

for the TRS-80 Model II: 

BASIC EXTENSIONS 
FOR MODEL II: 

Remember all the nice things the folks 
at APPARAT did for Model I BASIC? 
Get them all now for the Model II. Ab- 
breviations, single key commands, 
XREFIThisoneisamust! $50 

HOST: 

A set of extensions to TRSDOS which 
allow another Model II, a Model I, or 
any ASCII terminal to remotely control 
the 'host' Model II. INCREDIBLY EASY 
TO USE! $50 

FRIEND: 

An extremely powerful set of TRSDOS 
utilities which allow 'group' or 'gener- 
ic' processing of disk files. Copy, kill, 
print, display. SAVES A BUNDLE OF 
TIME! $75 

SKRUNCH: 

Compress your BASIC programs by 30 
to 40%. Makes them run quicker too. A 
SUPER FASTTRSDOS UTILITY. $35 



BREAK7E: 

A set of patches to TRSDOS and BA- 
SIC to move the break key out of the 
operator's way so it won't be hit acci- 
dently, but leaves the function active 
so it is there when you really need it. 
FREE with any Model II software pur- 
chase. 



AND NOW UNDER 
DEVELOPMENT: 

PL/B: 

A really high level, fully structured lan- 
guage for the Model II, which compiles 
to machine code. Logical language 
constructs patterned after ANS PL/I. 



Model land Model II 
TRS-80® owners... 

Are your programs taking 
too long to run? 

Here's how to speed them up considerably 

with no hardware modifications or 
changes to the programs themselves. 

Sound incredible? 
It's not. 



T.M. 



The TRS-80® SPOOLER 

is a proven TRSDOS® and NEWDOS® 
extension which gives you the same 
performance edge bigger computers have 
enjoyed for years. 

With the TRS-80® SPOOLER , CPU time 
ordinarily spent waiting for Disk and 
Printer operations to complete is made 
available for useful work. 

Programs like Radio Shack's General 
Ledger or Mailing List run almost twice as 
fast with our product installed!! 

Installation is simple and fast. No changes 
to your programs are required. 32K disk 
system with printer is the minimum 
system required to effectively use this 
product. Price: $100 



TRS-80 is a trademark of Radio Shack, a division of Tandy Corp. 
NEWDOS is a product of Apparat, Inc., of Denver, Colorado. 



Call 513-891-4496 TODAY for complete details, or 
write: Snapp, Inc. ... 

.^^ 8160 Corporate Park Drive 

-—■ Cincinnati, Ohio 45242 C& 



^Reader Service index — see page 194 
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degrees from to 360. Press ENTER to fire. If you've used the com- 
puter to calculate the angle of the target, then activate the 
torpedoes and type a C to fire. The torpedo will be displayed mov- 
ing across the quadrant to the target. 

You can destroy Stars, Klingons and even Star Bases. You have 
10 torpedoes, illustrated in Example 7. 

The Engines are activated by typing an E. You can move the 
Enterprise within a quadrant or to another quadrant. A sector 
distance and angle entry is required. The movement is displayed, 
with the ship starting slowly and then gathering speed. 

To move to another quadrant, enter a sector distance which 
moves the Enterprise beyond the boundaries of the quadrant. Mov- 
ing at angles other than 0, 90, 180, 270 or 360 requires a greater 
sector distance to reach your destination. 

Finally, you can't move through Stars, Star Bases, or Klingons; 
you must maneuver around them. Example 8 illustrates this move- 
ment. 

One final command used under extreme conditions is the Z 



(R)EPORT (S)R. SENSOR 
(P)HASER (G)ALAXY MAP 
(O0MFUTER (E)NGINES 

SHORT range: SENSOR 1 



(DR. SENSOR 
(T)ORPEDOES 10 

COMMAND PLEAS 



DAYS LEFT 73.915 

POWER LEFT 3977 

**t CAPTAIN ♦## 




Example 1. Quadrant 5 5 and Short Range Sensor are 
displayed. 



)EP0RT <S)R. SENSOR 

)HASER (G)ALAXY MAP 
>0MPUTER (E)NGINES 

ATUS REPORT 1 

TARDATE 3733.28 2 

IME LEFT 73.7153 3 

0ND1TION GREEN 4 

0SZTI0N 5 

QUADRANT 5 5 6 

SECTOR 2 7 7 

NERGY 3975 8 
0RPEDDES 10 
LINGONS LEFT 
TAR&ASES 7 



(DR. SENSOR DAYS LEFT 

(T)ORPEDOES 10 POWER LEF 

COMMAND PLEASE #** CAPT 



7.3.681 
T 397S 
AXN *** 



ENTERPRISE IN QUADRANT 



Example 2. Status Report. 



(R)EPORT <S>R. SENSOR (DR. SENSOR DAYS LEFT 72.130 

(P)HASER (G)ALAXY MAP (T)ORPEDOES 10 POWER LEFT 3957 

(C)OMPUTER (E)NGINES COMMAND PLEASE *## CAPTAIN **# 

LONG RANGE SENSOR 1 ....... . 

101 103 108 2 x ..... E * 

107 6 1 3 

12 i06 102 4 ...... X . 

6 .*..... x 

7 . x ..... 

8 ....... . 

12 3 4 5 6 7 8 

ENTERPRISE IN QUADRANT 5 5 SEC ! OR 2 7 



Example 3. Long Range Sensor. 



(R)EPQRT (S)R. SENSOR 
(P)HASER (G)ALAXY MAP 
(C)OMPUTER (E)NGINES 
COMPUTER READY 1 



(DR. SENSOR 
(T)ORPEDOES 1 
COMMAND P 



DAYS LEFT 68.079 

POWER LEFT 3582 

*** CAPTAIN *** 



ENTER DESIRED 
TARGET LOCATION 
SECTOR Y AXIS 4 
SECTOR X AXIS 8 



ENTERPRISE IN Q 
ANGLE = 26 
RANGE = 2 



JADRANT 3 



SECTOR 6 7 



Example 4. Computer Display. 



command. Typing a Z destroys the Enterprise and ends the game. 



Special Subroutines 

Here's a description of some of the special subroutines used in 
Star Search including the Enterprise graphics, the moving stars, 
active keyboard input, target impact, and timing. (Note: Up arrow 
appears as a left bracket in the listing.) 

The Enterprise is drawn with program lines 2790 through 2910. 
It's drawn quickly, in large blocks, using the statement 
STRING$(X,Y), where X is the number of graphic blocks to be acti- 
vated and Y is the pattern turned on. 

The TRS-80 graphic block is divided into six smaller sub-blocks. 
Sixty-four different patterns can be created using code numbers 
128 through 191 for Y. The instruction CHR$(Y) activates a single 
pattern as seen in lines 2890 and 2900. In line 2790 the statement 
PRINT® 138,STRING$(23,191); activates 23 full display blocks, 
beginning at screen position 138. 

Line 2800, PRINT@235,STRING$(13,176);, activates 13 partial 
blocks beginning at screen position 235. And so on. See Fig. 1 for 
some of the block patterns and their codes. 

Program lines 2950 through 3080 create the moving stars, as 
seen when the Enterprise moves from one quadrant to another. 
This simulates movement through space. 

Program lines 2950 through 3040 establish the moving star 
matrix B(1 1,1 1,2). It contains 121 sets of X and Y coordinates, for 
the 12 separate star paths. The data in line 3010 provide pro- 
gressively increasing steps to simulate the visual effect of move- 
ment. 

The active keyboard input routine uses the INKEYS statement of 
Level II BASIC at program lines 670 through 760, 2760 and 2770. 



(R)EPORT (S)R. SENSOR 
(P>HASER (G)ALAXY MAP 
(C)OMPUTER (E)NGINES 
PHASER ENERGIZED. 1 



(DR. SENSOR DAYS LEFT 65.948 

(T)ORPEDOES 10 POWER LEFT 3561 

COMMAND PLEASE ### CAPTAIN *** 



ENTERPRISE IN QUADRANT 3 



UMTS TO FIRE 6C 



(R)EPORT <S)R. SENSOR (DR. SENSOR DAYS LEFT 65.541 

(P)HASER (G)ALAXY MAP (T)ORPEDOES 10 POWER LEFT 2959 

(OQMPUTER (DNGINES COMMAND PLEASE *** CAPTAIN *#* 
PHASER ENERGIZED. 1 



515 UNITS HIT 
KLINGON AT 
SECTOR 4 8 
M DESTROYED ** 



UNITS TO FIRE 600 
SPOCK! 'THERE ARE 



ENTERPRISE IN QUADRANT 3 



!4 KLINGONS REMAINING' 



Example 5. Display of Phaser Operation. 



(R)EPORT 


(SIR. 


SENSOR 




(L 


)R. 


SENSOR 


DAYS L.EF 


r 64 


913 




(G)ALAXY 


MAP 




(T)ORPEDOES 
COMMAND 


10 POWER LEFT 
PLEASE *** CAPTAIN 


»9R7 


(C)OMPUTER 


(E)NGINE 


*## 


GALAXY MAP 
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103 -108 
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IS 
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ENTERPRIS 


■ IN 


QUADRANT 


3 5 SECTOR 
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Example 6. Galaxy Map. 
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ig software the Magic Wand™ , 
e best in letter quality printe 
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ell-known TRS-80™ MOD II. 
Jbu have looked and looked fo 
''te best and now it is availabl 
m the Complete Computer 
mpany, HMCT. Word Process- 
g at its best from $7500. 

_ _agic Wand available sep 
ly for the MOD II and other 
puters $400. 

in/lpT The Complete I 
IVIUI 5313 Bissonnet E 

gic Wand is a trademark of Small Business Applications, Spinwriter is a trademark of NEC, and TRS-80 is a i 
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This allows the command entry at any time, since the keyboard is 
constantly being checked for input. It also serves as a keyboard 
debounce routine. 

Program lines 3500 through 3600 are used for target impact dur- 
ing combat. Eighteen is the location of the target and A$ is the 
target type. When a Klingon, a Star, a Star Base, or the Enterprise 
is hit, program line 3530 displays the impact symbol (a cross) over 
the object. Line 3590 clears the symbol from the display. 

The subroutine located at program line 3610 decrements the 
DAYS LEFT variable D by .002. This happens each time the pro- 
gram runs through the input routine at line 2760. This works out to 
be about one minute per STARDATE.B 



(R)EPORT (SIR. SENSOR 
(P)HASER (G)ALAXY MAP 
(OOMPUTER (E)NGINES 
PHOTON rORPEOO TUBES 1. 
LOADED 2 



(DR. SENSOR DAYS LEU 45.442 

(T)ORPEDOES 9 POWER LEFT 3504 

COMMAND PLEASE *** CAPTAIN #** 



ENTERPRISE IN QUADRANT 6 



TORPEDO FIRED 
COURSE (0-360) 



lR)£FORT 
(P)HASER 
(C)OMPUT 

PHOTON T 

■OADEO 

KLIN 

SECT 

** DEST 



(S)R. SENSOR 
(G)ALAXY MAP 
(E)NGINES 
ORPEDO TUBES 1 . 



(DR. SENSOR DAYS LEFT 44.298 

(T)ORPEDOES 8 POWER LEFT 3491 

COMMAND PLEASE *** CAPTAIN M* 



CON AT 
OR 7 t 
ROYED 



TORPEDO 

spock: ' 



FIRED 
THERE ARE 



:j 



ENTERPRISE IN QUADRANT 
!0 KLINGONS REMAINING' 



Example 7. Photon Torpedo Operation. 



(R)EPORT <S)R. SENSOR 

(P)HASER (G)ALAXY MAP 

(C)OMPUTER (E)NGINES 
ENGINES 1. 



(DR. SENSOR DAYS LEFT 16.676 

(T)ORPEDOES 7 POWER LEFT 2967 

COMMAND PLEASE **# CAPTAIN *** 



ENTERPRISE IN QUADRANT 4 4 SECTOR 



SECTOR DISTANCE 
COURSE (0-360) 



KLINGON ATTACK 
330 UNITS HIT FROM KLINGON Al SECTOR 



(R)EPORT (S)R. SENSOR (DR. SENSOR DAYS LEFT 15.124 

(P)HASER (G)ALAXY MAP (T)ORPEDOES 7 POWER LEFT 2612 

(DOMPUTER (E)NGINES COMMAND PLEASE *#* CAPTAIN *** 
SHORT RANGE SENSOR 1 



ENTERPRISE IN QUADRANT 3 4 SECTOR 6 



Example 8. Engine Operation. 



Star Search Program Listing. 



100 
110 

120 

130 

140 
150 

160 

17 

180 
190 

200 
210 
220 
230 

240 
250 

260 

27 
280 
290 
300 

310 

320 
330 
340 

350 
360 

370 
380 

390 

400 
410 
420 
430 

4 4 

450 
460 
470 
480 

490 

500 
510 
520 
530 

540 



570 

580 
590 

610 
620 
630 
640 

650 
660 
670 
680 
6 90 
700 
710 
720 
730 
740 
750 
760 

770 
780 



810 

820 
830 

840 
850 



ONERRORGOTO37 30:POKE16 5 53,255:RANDOM:DUF1NTA-C,F-Z: 

GOTO13 
E1 = 4O-Z9-40*(D=99) :Z = 
FORR=0TOE1 : IFR/4 = INT (R/4 ) ANDDv90TUENGOSUB3610 :NEXTR 

: RETURNELSENEXTR : RETURN 
CLS: PRINT086, "COPYRIGHT (C) 19 80" : PRINTP158 , "BY " 

:D=99 
PRINTCJ2 04 ,"R. G E N T I I, E & II. B E R F. N B O N" 
G(1)=1:G(2)=14:G(.3)=30:G(4)=65:G<5)=78:C(6)=94:C(7) 

=129:G(8)=142:BS(1)="R" 
B$(2)="S":B$(3)="L":B$(4)="P":B$(5)="G":n?(6)="T":B 

$(7)="C":B$(8)="E" 
PRINT09, "*#*#*#*#*#*# S T A R S E A R C II «*#***« 

*#*#*" ;:E1=99:GOSUB120 
D I M A ( 1 5 2 ) , B ( 1 1 , 1 1 , 2 ) , C { 1 1 ) , Z ( 1 1 ) : Q = 6 : GOSU B 27 9 
PRINT«?896, "WELCOME ABOARD. PLEASE ENTER THE NUMBER 

OF YEARS YOU HAVE BEEN" 
PRINT" A STAR SHIP CAPTAIN (0 TO 9 ) " ; 
A$=INKEY$:IFA$=""THENCOSUB331O:GOTO210 
Z9=VAL(A$) :Y=6000/(Z?+2) :GOTO310O 
CLS: PRINT @ 12, "ACTION ALERT !! STANDBY FOR WARP DRIV 

E ! !":GOSUB110 
A=6 4:GOSUB3050:Z7=30 00+1000*RND(0) : D=60+RND (3 0-Z9 ) 
PRINT012," IN SUB-SPACE ON COURSE TO STATION 

A=0:K=0:B=0:FORI=0TO6 3: J=- (RND ( 30 K4 ) : I F 1/10= INT ( 1/ 

10)GOSUB3060 
C=6/(RND(Y)) [ (1/3) 
IFC>Z9+3THEN27 0ELSEK=K+C:B=B+J 

A(I)=-100*C-10*J-RND(8) :NEXTI : IF (B< 2) OR (K v. 4 ) THEN 26 
PRINT@0, "STARDATE" ; Z7 ; " WE ARE ON STATION - SCANNI 

NG AREA" 
GOSUB3080 

PRINT@64 , "YOU HAVE" ;D; "DAYS" ; 
PRINT" TO DESTROY "; K ; "KLINGONS" 
PRINT"THERE ARE " ; B; "STARBASES . " :GOSUB970 :C=0:O=0: 

H=K:II1 = K:SD=D 
U=RND(8) :V=RND(8) :X=RND(8) :Y--=RND{8) 
FORI=71TO152:A(I)=0:NEXTI:A'8*X+Y+62)=4:M=ABS(A(8*U 

+V-9)) :GOSUB3610 
N=M/100 
I = l:IFNFORJ = lTON:GOSUB9ii': :A(J+134)=30 0:A(J+140)=S: 

A(J+146) =T:NEXTJ 
M=M-100*N:I=2:1F(INT(M/10))GOSUB980 
M=M-INT(M/10)*10:I=3 
IFMFORJ=1TOM:GOSUB980 :NEXTJ 
GOSUB920 :GOSUB1470:A=2:IFK=<0THEN490 
IFD>0THEN460 
A=-4.4:D=.3:GOSUB3700:PRINT|3832,"IT , S TOO LATE, THE 

GALAXY HAS BEEN " ; 
PRINT"OVERRUN":GOSUB1I0:GOTO490 
IFE>0TIIEN1140 

C=40 0:E=0:A=0: CLS: PRINT "ENTERPRISE DESTROYED" 
E1=50:GOSUB120:GOSUB29 30 
CLS:PRINT@128,""; : PRINT" FINAL REPORT" : PRINT: PR I NTD; 

"DAYS LEFT" 
PRINTH-K; "KLINGONS DESTROYED" 



PRINTC; "CASUALTIES ":CR=10 00 *(II-K) 1 2/ ( II* ( SD-D) ) -C 

PRINTE; "UNITS OF ENERGY LEFT" 

PRINTF; "TORPEDOES LEFT" : B=l/3 : PRINT: PRI NT"COMMANL R 

ATING: ";CR 
J= ( 1/11 ) * Z 9 * ( II-K ) + ( D ( B-C I B+F | B+ ( 1/8 ) *E I B+A) / 2 : I FJ > 1 

THENJ=10 
IFJ<0THENJ=0 
IFJ>Z9THENA$="PROMOTION TO FLEET ADMIRAL" :A=1 ;GOT06 

10 
IFJ = Z9TIIENA$="CONTINUED ACTIVE DUTY " : A=0 :GOTO(; i 
IFJ<1TIIENJ = 1 
AS="COMMAND OF A GARBAGE BARGE" : A=-l : I FJ < Z9T1!ENA=-Z 

9+J-l 
PRINT: PRINT"YOU ARE " ; : 1 FC=40 0PR1 NT" POSTHUMOUSLY "; 
PRINT" RECOMMENDED FOR ";A$ 
PRINT: PRJNT"NEW GAME ?":GOSUB110 
A$=INKEY$:IFA$=""THEN640ELSEIF(A$="Y")TliENRUNELSECL 

S 
PRINT9990,"GOOD BYE."; 
END 

Z8 = 0:A$=INKEY$:IFA$=""T1IENO2 
IFA$="S"THEN1140ELSEIFA$="Z"THEN490 
IFAS="G"THEN1030 
IFA$="L"THEN1090 
IFA$="P"THEN1280 
IFA$="R"THEN17 50 
IFA$="E"THEN1870 
IFA$="T"THEN2200 
IFAS="C"THEN26 00ELSE82 
PRINT00, "(R) EPORT (S)R. SENSOR (L)R. SENSOR 



PRINT"DAYS LEFT " ; : GOSUB36 10 
PRINT@64 f "(P)HASER (G)ALAXY MAP 



(T)ORPEDOES" 



PRINT" POWER LEFT " ; : GOSUB362 : GOSUB3630 

PRINT@128,"(C)OMPUTER (E)NGINES COMMAND 

PLEASE"; 
PRINT" ### CAPTAIN ###";:I5=-20 
IFE=<0ORD=<0THEN430 
IFK=<0THEN4 90ELSEGOSUB3610 
IFI5>20THENI5=-I5:E=E-1:I9=I9+1:GOTO880 
IFI5O0THEN670 
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860 IFI9=10THENGOSUB2080 

870 F0RA=1T08:PRINT@G(A) , " ";: NEXTA: PRINT@181 , " " 

;:GOTO820 
880 F0RA=1T08:PRINT@G(A) ,B$(A) ; : NEXTA: PRINT@181 , "CAPTAI 

N"; 
890 GOSUB3610 

-900 GOSUB3630910 GOSUB3620 : I5=-20 :GOTO820 
"920 F0RI=X+(XOl)T0X-(X<>8) :FORJ=Y+ (YOl) TOY- (Y<>8) 
•930 IFA(8*I+J+62K>2TH ENNEX TJ,I:O=0:RETURNELSEGOSUB1250 
940 IFO=0THENGOSUB27 90:7a!)!JUB'J»4I!I ' 
950 PRINT@833,"SULU: 'CAPTAIN, " ; : PRINT@897 , "WE ARE DOCK 

ED "; 
960 PRINT@961,"AT STARBASE ' " ; :GOSUB110 :GOSUB1250 
970 E=40 00 : F=10 :0=1 :FORI=64TO70 : A( I) =0 :NEXTI :GOSUB3610 : 

RETURN 
980 S=RND(8) :T=RND(8) : A=8*S+T+62 : IFA(A)GOTO980 
990 A(A)=I:GOSUB3610:RETURN 

1000 GOSUB920 :GOSUB1470:IFZ8THEN1140ELSE880 
1010 PRINTTAB(22) "ENTERPRISE IN QUADRANT" ;U;V; "SECTOR" ; 

X ; Y ; 
1020 PRINTCHR$ (30) ;: RETURN 
1030 J=2:GOSUB1620:Q=213:IFITHEN880 
1040 FORI = 0TO7 : Q=Q+6 4 : PRINTTAB ( 21 ) " " ; : PRINT" : " ; : PRINTUS 

ING"#";I+1; 
1050 FORJ=0TO7:M=A(8*I+J) 
106 PRINTTAB(21)"";:PRINTUSING" #####"; (M>0) *M; : NEXTJ :G 

OSUB3610:PRINT@Q,""; 
1070 NEXTI: PRINTTAB (21)" " ; : F0RI=1T08 :PRINTUSING"#### 

" ; I ; 

10 80 PRINT" :"; : NEXTI :GOSUB1010 :GOTO880 

1090 Q=256:J=3:GOSUB1620:IFITHEN880 

1100 F0RI=U-1T0U+1 : PRINT@Q, " " ; : FORJ=V-lTOV+l : M=8*I+J-9 : 

A=0 
1110 IF(I>0)AND(K9)AND(J>0)AND(J<9)A=ABS(A(M) ) :A(M)=A 
1120 PRINTUSING"#####";A; :NEXTJ:Q=Q+64 :GOSU83610 :NEXTI 
1130 GOTO880 

1140 J=1:GOSUB1620:IFI2THENCLS:GOTO760 
1150 M=8*U+V-9:A(M)=ABS(A(M)) :Q=213 

1160 FORI=lT08:Q=Q+64:PRINTTAB(21)I;" ";:F0RJ=1T08 
1170 M=A(8*I+J+62) :IFM=0PRINT" 
1180 IFM=1PRINT" K"; 
1190 IFM=2PRINT" B" 
1200 IFM=3PRINT" *" 
1210 IFH=4PRINT" E" 
1220 PRINT" "; 
1230 NEXTJ : GOSUB36 1 : PRINT@Q, " " ; : NEXTI : PRINTTAB ( 21 ) " 

";:F0RI=1T08: PRINT" " ; I ; 
1240 NEXTI:GOSU31010:GOTO760 
1250 I=192:GOSUB3610 
1260 PRINT@I, STRINGS (21, 32) ; : 1 = 1+64 : IFK769THEN1260ELSE 

1=832 :GOSUB3610 
127 PRINT@I, STRINGS (1,30); : 1 = 1+64 : IFK961THEN1270ELSEG 

OSUB3610:RETURN 
1280 J=4:GOSUB1620:IFITHEN880 
1290 PRINT@200," ENERGIZED. ";:PRINT@832," UNITS TO FIRE 

1300 Q=846:GOSUB2760:A=I:IFA<1THEN880 

1310 IFA>EPRINT@320," SPOCK : 'WE HAVE ONLY " ; : PRINT@388 

,E; "UNITS. ' "; :GOTO880 
1320 E=E-A:IFN>0THEN1340ELSEPRINT@320," PHASER FIRED AT 

1330 PRINT@385, "EMPTY SPACE" ;: GOSUB110 :M=135 :GOSUB1370 : 

GOTO880 
1340 A=INT(A/N) :FORM=135TO140:IFA(M)=0GOTO136 
1350 GOSUB1370:PRINT@320,"";S;"UNITS HIT ";:GOSUB1410 
1360 NEXTM:GOTO1000 
1370 IFA<1000THEN1390ELSEPRINT@256,"## OVERLOADED ##" 

13 80 J=4:A(67)=A(67)+1:GOSUB110:GOSUB1620 

1390 I=A(M+6)-X:J=A(M+12)-Y:S=A*30/(30+I*I+J*J)*SQR(Z5* 

ABS(A(70) )+l)+l 
1400 RETURN 
1410 GOSUB3510:PRINT@385," KLINGON AT" ; : PRINTH449 , " 

SECTOR"; 
1420 PRINTA(M+6) ;A(M+12) ; : A(M) =A(M) -S 
1430 IFA(M) >0PRINT@512,"** DAMAGED **" ; : GOSUB3570 :RET 

URN 
1440 A(M)=0:I=8*U+V-9:J=A(I)/ABS(A(I)) : A( I) =A( I) -100*J : 

K=K-1 

14 50 I=8*A(M+6)+A(M+12)+62:A(I)=0:N=N-l 

1460 PRINT@512,"## DESTROYED ##" ; :GOSUB3550 :PRINT@896 
," SPOCK: 'THERE ARE" ;K; "KLINGONS REMAINING' " :RETU 
RN 

1470 IFN=0RETURN 

1480 GOSUB1250:PRINT@768, "KLINGON ATTACK"; 

1490 IFOPRINT@832,"STARBASE PROTECTS ENTERPRISE" ;: GOSUB 
110:RETURN 

15 00 Z5=1:T=0:FORM=135TO14 0:IFA(M)=0THEN1540 
1510 IFO=0THENGOSUB3500 

1520 A=(A(M)+RND(A(M)))/2:GOSUB1390:T=T+S:I=A(M+6) :J=A( 

M+12) 
1530 PRINT@832,S; "UNITS HIT FROM KLINGON AT SECTOR";I;J 

; :PRINTCHR$(30) :GOSUB3580 
j.5 40 NEXTM:Z5=0:E=E-T:GOSUB3620:IFE<=0THENRETURN 
1550 F0RJ=1T07 : IFA( J+63 ) GOSUB1620 
1560 NEXTJ 

1570 IFRND(INT(E/4) ) >TTHENRETURN 

1580 IFA(70)=0:A(70) =RND ( T/7 5 ) : J=7 : GOSUB16 2 : RETURN 
15 90 J=RND(6) : A( J+63 ) =RND (T/99) +A( J+63) : I=RND (8) +1 :C=C+ 

I 



1600 PRINT@896, "MCCOY: 'SICKBAY TO BRIDGE, WE SUFFERED 

1610 PRINTI; "CASUALTIES" ;CHR$ (34) ; :GOSUB3660 : RETURN 

1620 GOSUB1250 

1630 PRINT@192,"";:I=A(J+63) :IFJ=1PRINT"SH0RT RANGE SEN 

SOR";:I2=-(I<>0) 
1640 IFJ = 2PRINT"GALAXY MAP" ; : IFI2=0THENI2 = 1+ (1O0) 
1650 IFJ=3PRINT"LONG RANGE SENSOR"; 
1660 IFJ=4PRINT"PHASER"; 
1670 IFJ=5PRINT"ENGINES";:GOSUB3610 
1680 IFJ=6PRINT"PHOTON TORPEDO TUBES"; 
1690 IFJ=7PRINT"SHIELD"; 

17 00 IFJ=8PRINT"COMPUTER READY" ; : RETURN 
1710 IFI=0RETURN 

1720 PRINT@320," DAMAGED, "; I; : PRINT@384 , " STARDATES"; 
1730 PRINT@449, "ESTIMATED" ;:PRINT@513, "FOR REPAIR";:GOS 

UB110 
1740 IFJ=1I2=1:FORI=192TO960STEP64:PRINT@I,CHR$(30);:NE 

XTI : RETURNELSERETURN 
17 50 GOSUB1250:PRINT@192, "STATUS REPORT" ;: PRINT@257 , "ST 

ARDATE " ; 
1760 PRINTZ7-D;:PRINT@321,"TIME LEFT";D; 
177 PRINT@385, "CONDITION " ; : IFOPRINT"DOCKED" ; :GOT0181 


1780 IFNPRINT"RED";:GOTO1810 
17 90 IFE<999PRINT"YELLOW";:GOTO1810 
1800 PRINT"GREEN"; 
1810 PRINT@449, "POSITION"; : PRINT@514 , "QUADRANT" ;U;V; :GO 

SUB3610 
1820 PRINT@57 8, "SECTOR" ;X;Y; : PRINT@641 , " ENERGY ";E; 
1830 PRINT@705, "TORPEDOES " ;F; : PRINT@768 , " KLINGONS LE 

FT ";K; 
1840 PRINT@833, "STARBASES " ;B; : GOSUB110 
1850 FORJ=1TO7:IFA(J+63)GOSUB1620 
1860 NEXTJ:GOTO880 
1870 J=5:GOSUB1620 

1880 PRINT@833, "SECTOR DISTANCE " ; : Q=849:GOSUB27 60 :W=I 
1890 IFW<1ANDWO-1THEN880 

1900 IFW=-1THENW=Z4:PRINT@848,"";:PRINTUSING"####";W; 
1910 IF A(68)=0ORW<3THEN1930ELSEGOSUB1680:PRINT@320,"CH 

EKOV: 'WE CAN TRY"; 
1920 PRINT@384,"2 AT MOST, SIR' " ; : GOSUB110 :GOSUB1250 :GO 

TO1880 
1930 IFW<99THEN1950ELSEW=99:PRINT@320, "SPOCK: 'ARE YOU 

SURE"; 
1940 PRINT@384, "CAPTAIN ? ' " ; :GOSUB110 
1950 IFE>W*INT(W/2)THEN1970ELSEPRINT@448, "SCOTTY: ' CAPTA 

IN, WE"; 
1960 PRINT@512, "DON'T HAVE THE POWER" ; :GOSUB110 :GOTO880 

1970 GOSUB2500:IFI1=0THEN880 
1980 D=D-l:E=E-W*INT(W/2) : A(8*X+Y+62) =0 
1990 Z6=0:P=45*X+22:G=45*Y+22:W=45*W:Z1=X:Z2=Y:M=0 
— *2000 M=M+1:W=W-I1R:IFW<-22THEN207 

2010 P=P+S:G=G+T:I=P/45:J=G/45:IF(K1)+(I>8)+(J<1)+(J>8 

)THEN2090 
2020 IFA(8*I+J+62)=0THENX=I:Y=JELSE2050 
2030 Z6=Z6+1:IFI2=0THENPRINT@(15 0+X*6 4+Y*5) , "E";:PRINT@ 

(150+Z1*64+Z2*5) ,"."; 
2040 El = 12/Z6 [2 + 50000/ (W+45) [ 2: Z1=X: Z2=Y :D=D-. 006 -.GOSUB 

120 : IFM<8GOTO2000 
2050 PRINT@384,"**EMERGENCY STOP**" ;: PRINT@448 , "SPOCK : 

'TO ERR IS"; 
2060 PRINT@512, "HUMAN" "; :GOSUB110 
207 A(8*X+Y+62)=4:GOSUB2080:GOTO1000 
2080 FORM=64TO70:A(M)=A(M)+(A(M)<>0) :NEXTM: RETURN 
2090 P=U*72+P/5+W/5*S/Il-9:U=P/72:IFl2=0THENPRINT@ (150+ 

Zl*64+Z2*5) ,"."; 
2100 G=V*72+G/5+W/5*T/Il-9:V=G/72 
2110 GOSUB2080:IFRND(9)<2PRINT@384,"***SPACE STORM***"; 

:T=100:GOSUB110:GOSUB15 50 
2120 IF(U>0)AND(U<9)AND(V>0)AND(V<9)X=(P+9-72*U)/9:GOTO 

2750 
2130 A=0:CLS:GOSUB3050:GOSUB3080:PRINT@448,"## YOU WAND 

ERED"; 
2140 PRINT@512, "OUTSIDE THE GALAXY ##"; 
2150 M=RND(6) :A=RND(400) :E=E-A:D=D-M 
2160 PRINT@576, "ON BOARD COMPUTER" ;: PRINT@640 , "TOOK OVE 

R, AND"; 
217 PRINT@704, "SAVED YOUR LIFE"; 
2180 PRINT@768,"YOU WERE LOST" ;M; : PRINT@832 , "DAYS AND U 

SED"; 
2190 PRINT@895,STR$(A) ; " UNITS OF POWER" ;: GOSUB1 10 : GOTO 

350 
2200 J=6:GOSUB1620:A=0:Q=0:IFITHEN880 
2210 IFF=OTHENPRINT@256, " EMPTY" ;: GOTO880 
2220 PRINT6256," LOADED" ; :GOSUB2500 : IFI1=0GOTO880 
2230 PRINT@832," TORPEDO FIRED" ;: PRINT@848 ,""; :F=F-1 : P= 

45*X+22:G=45*Y+22 
2240 A=6:Q=3:I6=3:I7=-65:FORM=1TO8:GOSUB3610 
2250 P=P+S :G=G+T: I4=P/15 : l3=G/4 . 5 : I=P/45 : J=G/45 
2260 IFK1ORI>8ORJ<1ORJ>8THEN2350 
-2270 IFI3>86I3=86 
2280 IFI4>41I4=41 
2290 L=8*I+J+62:W=8*U+V-9:I1=A(W)/(ABS(A(W) 

0THEN2320 
2300 SET( (41+13) , (6+14)) :RESET( (41+A) , (6+Q) 
2310 IFA(L)=0THENGOSUB2390:GOTO2340 
2320 IFA(L) >0THENGOSUB2390 
2330 ONA(L)GOTO2370, 2410, 2440 
2340 I6=I:I7=J:D=D-.004:NEXTM 



i-.l) :IFI2<> 
i :A=I3:Q=I4 
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IFI2=0THENRESET( (41+A) , (6+Q) ) :GOSUB2390 

PRINT@897, " HISSED " ; : GOSUB110 :GOTO10 

00 

S=RND(99)+280:FORM=135TO14 0:IF(A(M+6)=I)AND(A(M+12 

)=J)GOSUB1410:GOTO100 

NEXTM:GOTO1000 

I FI2=0THENPRINT@( 15 0+16*6 4+17*5) , 

RETURN 

GOSUB3520:B=B-1:O=0:A(L)=0:A(W)=A(W)-10*I1:PRINT@7 

6 8,"STARBASE DESTROYED" -x 

PRINT@832, "SPOCK: 'I OFTEN FIND HUMAN BEHAVIOR FAS 

CINATING. ' "; 

GOSUB35 50:GOTO1000 

GOSUB3520:PRINT@897,"HIT A STAR" ;CHR$ (30 ) ; 

IFRND(9X3PRINT" TORPEDO ABSORBED" :GOSUB3560 : GOTOl 

000 

A(L)=0:A(W)=A(W)-I1: IFRND ( 9 )<6PRINT@897 , "STAR DEST 

ROYED";:GOSUB3550:GOTO1000 

T=300:PRINTC J 897,"IT'S A NOVA ***RADIATION ALARM*** 

"; :GOSUB3550 

IFOTHENGOSUB14 90ELSEGOO100 

GOSUB110:GOTO1000 

PRINT0897, "COURSE (0-360) " ; : Q=912:GOSUB27 60 

IFI>360ORK-1THEN 11 = 0: RETURN 

IFI=-1THENI=Z3:PRINT@912,""; : PRT.NTUSING"#### " ; I ; 

S=( 1+45 )/90:I=I-S*90: 11= (45+1*1 )/110+45 

IFI/45<>INT(I/45)THENI=I-SGN(I)*(3-(S=2)) 

S=S+l:ONSGOT0256 0,257 0,2580, 2590 

S=-45:T=I:RETURN 

S=I:T=45 : RETURN 

S=45:T=- I: RETURN 

S=-I:T=-45:RETURN 

J=8:GOSUB16 2 0:PRINT@704 , "ENTER DESIRED" ;: PRINT@76 8 

, "TARGET LOCATION"; 

PRINTP833, "SECTOR Y AXIS" ; : Q=84 6 : GOSUB27 60 : Z1=I 

PR.INT<3897, "SECTOR X AXIS"; 

Q=910:GOSUB27 60:Z2=I:IFZ1<1ORZ1>8ORZ2<1ORZ2>8THEN2 

600 

Z1=X-Z1: Z2=Z2-Y:IFZ1=0AND SGN(Z2)=1 THEN Z3=90:GO 

TO26 90 

1FZ1=0AND SGN(Z2)=-1 THENZ3=270 :GOT026 90 

IFZ2=0AND SGN(Zl)=l THEN Z3=0 : G0TO26 90ELSEIFZl=0AND 

Z2 = 0TIIEN2600 

IFZ2=0AND SGN(Z1)=-1 THENZ3=180 :GOT026 90 

Z3 = 57.295775*ATN(Z2/Zl) :IF SGN(Z1)=1 AND SGN(Z2)=1 

THEN2720 
IF SGN(Z1)=-1 AND SGN(Z2)=1 THEN Z3=Z3+180 : GOT027 2 


IF SGN(Z1)=-1 AND SGN(Z2)=-1 THEN Z3=Z3+180 :GOT027 

20 

IF SGN(Z1)=1 AND SGN(Z2)=-1 THEN z3=Z3+360 : GOT027 2 



Z4=SQR(Z1 [2+Z2l2)+.5:PRINT@850," ANGLE =";Z3; 

PRINT@914," RANGE =";Z4; 

GOTO880 

CLS:A=6:GOSUB3050:GOSUB3080:Y={G+9-72*V)/9:GOTO36 

PRINT@Q,Z:A$= INK EY$:IFAS=""THENGOSUB3610:GOTO 2760 

II-'ASC(A$)=8THENZ = Z/10:GOTO27 60ELSEIFA$="C"THENI=-1 

: RETURN 

IFASC(A$)=13THENI=Z:Z=0:RETURNELSEZ=Z*10+VAL(A$) :G 

OTO27 6 

A=0:CLS:GOSUB3050:PRINT@13 8, STRINGS (23, 191) ; 

PRINT@235,STRINGS(13,176) ; 

PRINT@238, STRINGS (7 ,188) ; 

PRINT@293,STRING$(24,191) ; 

PRINT@363, STRINGS (13, 131) ; 

PRINT@366, STRINGS (7 ,143) ; 

PRINTS 99, STRINGS (26, 191) ; 

PRINT0466, STRINGS (26, 191) ; 

PRINT@533,STRING$(26,191) ; 

FORZ1=50TO56STEP6 : FORZ2=9T018 : SET ( Zl , Z2 ) : NEXTZ2 , Zl 

PRINT@357,CHRS(170) ; : PRINT@360 , CHRS (170 ) ; 

PRINT@425,CHR$(17 9) ; : PRINT@492 ,CHR$ (17 9) ; :PRINT@55 

9,C11R$(179) ; 

PRINT@472," USS ENTERPRISE "; 

IFY = 0THEN29 5 0EI,SERETURN 

FORJ=1TO150:B=RND(30) :Q=6 4*RND ( 13) +B*2 :G=32+B: PRIN 

T@Q, STRINGS (B,G) ; 

NEXTJ: RETURN 

PRINT@897, "CAPTAIN'S LAUNCH APPROACHING "; 

PRINT"ENTERPRISE - STANDBY FOR ACTION"; 

FORA=1TO12:READB,B:NEXTA:GOSUB34 50 

FORA=0TO11 :READC(A) ,Z (A) : NEXTA: RESTORE : GOSUB3450 

FORA=0TO11:FORM=0TO11 



3080 GOSUB3060:GOSUB3610:IFA<12THEN3080 

3090 PRINT0544, "*"; : RETURN 

3100 PRINT@768,"DO YOU WANT INSTRUCTIONS ? " ; 

3110 A$=INKEY$:IFA$=""THEN3110ELSEB=-(A$="N") 

3120 IFB=1THEN230 

3130 CLS:PRINT n THIS IS AN ACTION TASK IN WHICH TIME IS 

AN IMPORTANT FACTOR" 
3140 GOSUB110 
3150 PRINT"LEGEND FOR ALL OPERATIONS APPEARS AT THE TOP 

OF THE SCREEN" :GOSUB110 
3160 PRINT"ENTER THE FLASHING LETTER FOR ACTION DESIRED 

":GOSUB110 
317 PRINT"DIRECTION IS IN COMPASS ANGLES 0([) 90(";CHR 

$(94);") 180(";CHR$(92); 
3180 PRINT") 270 (";CHR$(93) ;") ":GOSUB120:PRINT"THE COMP 

UTER CAN PROVIDE"; 
3190 PRINT" CONTROL FOR THE TORPEDO AND ENTERPRISE" :GOS 

OBI 10 

3200 PRINT"THE (Y) AXIS IS [ AND THE (X) AXIS IS -";CHR 

$(94) :GOSUB110 
3210 PRINT-ENTER (C)OMPUTER, SELECT (T)ORPEDO OR (E)NGI 

NE, AND ENTER (C) " 
3220 GOSUB110: PRINT" ACTION IS AUTOMATIC" :GOSUB110 
3230 PRINT"THE LONG RANGE SENSOR DISPLAYS: " :GOSUB110 
3240 PRINTTAB(10) "THE HUNDRED DIGIT AS THE NO. OF KLING 

ONS":GOSUB110 
3250 PRINTTAB(10) "THE TENS DIGIT AS THE NO. OF STARBASE 

S":GOSUB110 
3260 PRINTTAB(10) "THE UNIT DIGIT AS THE NO. OF STARS" :G 

OSUB110 
3270 PRINT"WHEN YOU PRESS ENTER - THE ACTIVITIES WILL S 

TART":GOSUB110 
3280 PRINT"THE ENTERPRISE WILL ENTER SUB-SPACE AND TRAV 

EL TO "; 
3290 PRINT"YOUR STATION" :GOSUB110 :PRINT"GOOD LUCK ON YO 

UR EFFORT IJ1":GOSUB110 

3300 A$=INKEY$:IFA$=""THEN3300ELSE23 

3310 PRINTS (137-Z) ,CHR$ (132) ; : IFZO0THENPRINT" ";ELSEPR 

INT@128," "; 
3320 Z=Z+1:IFZ=10THENZ=0 
"3330 RETURN 
3340 FOR A=1TO7:FORM=1TO3:I=128-48*(M=1)-60*(M=2)~63*(M 

=3) 
3350 E1=.2*A*(1-(A=7) *M[2) :GOSUB120 
3360 PRINT@(961-64*A) ,CHR$(I) ; : PRINT@ (1022-64 K A; ,CHRS(I 

); 
3370 PRINT@(1025-64*A) ,CHR$(191) ; STRINGS (30 ,1} ; 
3380 PRINTSTRING$(30,I) ;CHR$(191) ; 
3390 GOSUB3310:NEXTM,A 

3400 PRINT@128,STRING$(10,32) ; 

3410 F0RM=1T07:PRINT@(513-64*M) ,CHR$(191) ; 

3420 PRINTS (574-64*M) ,CHR$(191) ;:NEXTM 

3430 PRINT@66,STRING$(30,131) ; STRINGS (30 ,131) ; 

3440 PRINT@980," STAR B A S E" ;U+8*V; : GOSUB110 :RETU 

RN 
3450 Q=Q+1:IFQ<18THENPRINT@(510-Q) ,CHR$(140) ;CHR$(140) ; 

CHRS (32) ;: RETURN 
3460 IFQ=18THENPRINT@896,CHR$(30) ; : PRINT0492 ,CHR$ (191 ) ; 

CHR$(140); n "; 
3470 IFQ=19PRINT@493," "; 
3480 IFQ=20PRINT@492,CHR$(179) ; 
3490 RETURN 

3500 I8=149+64*X+5*Y:GOTO3530 

3510 I8=149+64*A(M+6)+5*A(M+12) :GOTO3530 

3520 I8=149+64*I+5*J 

3530 IFI2=0THENPRINT@I8, CHRS (136) ;CHR$(174) ;CHR$(140) ; 

3540 RETURN 

3550 A$=".":GOTO3590 

3560 A$="*":GOTO3590 

3570 A$="K":GOTO3590 

3580 A$="E" 

3590 GOSUB110:IFl2 = 0THENPRINT@(I8-2) ," ";A$;" 

3600 RETURN 

3610 PRINT@58,""; : PRINTUSING"## . ###" ;D; : 15 = 15 + 1 :D=D-. 00 

2 : IFD>0THENRETURNELSE440 
36 20 PRINT@123, ""; : PRINTUSING" #####"; E; : RETURN 
36 30 PRINT@104, ""; : PRINTUSING" ###" ;F; : RETURN 
3640 Z=0:GOSUB2930:CLS:PRINT@512, "SIR ! WE HAD A COMPU 

TER OVER LOAD AND LOST"; 
3650 PRINT" ALL GALAXY DATA" : FORA=0TO63 : A( A) =-ABS (A( A) ) 

: NEXTA : GOSUB120 : CLS : RESUME36 
3660 Zl = 8*U+V-9:FORM=135TO14 0:IFA(M)O0THENNEXTM: RETURN 
367 F0RA=U+(UOl)T0U-(U<>8) : FORQ=V+ (VOl) TOV- (V<>8) :Z2 

= 8*A+Q-9 : IFA(6 8) =4THEN36 90 

36 80 IFABS(A(Z2) ) >99ANDZ2<>Z1THENA ( Z2) =SGN ( A( Z2) ) *(ABS( 

A(Z2) )-100)ELSENEXTQ,A:RETURN 
3690 A(Z1)=A(Z1)+100 

37 00 A=RND(8) :Q=RND(8) : Zl=8*A+Q+62 : IFA(Z1 ) O0THEN3700 
3710 A(Z1)=1:N=N+1:IFI2=0:PRINT@(15 0+64*A+5*Q) ,"K"; 
37 20 A(M)=300:A(M+12)=Q:A(M+6)=A:RETURN-^ 
3730 Z=0:RESUME 1250 
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J PC Products Announces a New High Speed Cassette System 

"The Poor Man's Floppy" for the TRS-80* 

$90 Kit - $120.00 fully assembled. 

The TRS-80* is a great small computer. But its cassette recording 
system can be very frustrating, particularly if you can't read an important cassette. JPC 
Products Company has developed an improved cassette system .that uses your present 
cassette recorder but operates much faster with better reliability. The TC-8 plugs into the expan- 
sion connector on the back of the keyboard and saves and loads 5 times faster! Less than 
ONE BAD LOAD in a MILLION BYTES! With the VOLUME CONTROL ANYWHERE BETWEEN 1 AND 8. The 
T08 is available in an easy to assemble kit or fully assembled. JPC has an exclusive "can't fail" kit guarantee. 
If you build the TOS and for any reason it doesn't work, we will make it work at NO COST. All 
you have to pay is the shipping. We guarantee it. The T08 magic is partly done in software. So you have to 
load a small program in upper memory. It is usually out of the way there. We provide the software on a 
cassette that comes with the TC-8. Just load it in. Here's how you order. Send 
in/^ DD^ni I^TC ^/^\ $90.00 for the kit ($120.00 fully assembled) plus $3.50 postage and handling 

Jr\^ rl\\JU\J\* \0 \-r\J. to JPC Products Co., 12021 Paisano Court, Albuquerque, NM 87112 (N.M. 

Res. add 4% sales tax.) Credit card orders accepted by phone or mail. 




^190 



* Trademark of Tandy Corporation 



^Reader Service index— see page 194 



Phone: (505) 294-4623 12021 Paisano Ct. Albuquerque, N.M. 87112 
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• * * A PERCOM BULLETIN * • • 

Adapter for TRS-80* computer eliminates disk read errors 



Garland, Texas — Harold 
Mauch, president of Percom 
Data Company, announced 
that the company is marketing 
a simple plug-in adapter for 
TRS-80* computers that cor- 
rects a design deficiency in 
the disk controller circuit. 

The problem, which 
causes disk read errors, has 
been traced to Tandy's re- 
liance on a circuit internal to 
the FD1771 controller IC to 
perform the function of 
separating clock and data 
pulses. 

As explained in the 
Backgrounder, use of the in- 
ternal chip circuit for reliable 
data-clock separation is a de- 
sign shortcut which the man- 
ufacturer of the controller IC 
warns against. 

The Percom solution, a 
PC card adapter called the 
SEPARATOR™, eliminates 
the problem by substituting an 
explicit data separator circuit 









WT 



Percom adapter fixes TRS-80* computer disk controller. 



— one which has been used 



The SEPARATOR™ is 



reliably in Percom disk con- installed without modifying the 
trailers since 1 977 — for the host system. The user merely 
internal IC separator circuit. removes the FD1771 IC from 



the host controller, installs the 
IC in the DIP socket on the 
SEPARATOR™ card, and 
plugs the adapter into the va- 
cated socket of the host con- 
troller. 

Percom cautions that 
opening the Expansion Inter- 
face of the TRS-80* comput- 
er, which is required to install 
the SEPARATOR™, may void 
the computer's limited 90-day 
warranty. 

The SEPARATOR™, 
which sells for $29.95, may 
be purchased from Percom 
dealers or ordered direct from 
the factory. The Percom toll- 
free order number is 1- 
800-527-1592. 

Payment for mail orders 
may be made by certified 
check, cashier's check or 
money order, or charged to a 
Master Card or VISA account. 
Texas residents must add 5% 
sales tax. 



Percom Mini-Disk Drives 
Store More, Cost Less. 

Percom mini-disk drives store more data, are 
more reliable, yet a 40-track Percom drive 
costs $100.00 less than a 35-track Tandy 
drive. 

You can store over 1 02 Kbytes per side 

on Percom TFD-100™ 40-track drives; 197 

Kbytes on one side of a TFD-200™ 77-track 

drive. A patch — supplied free on minidiskette — upgrades 

TRSDOS* for operation with the newer 40- and 77-track drives. 

Both TFD-100™ and TFD-200™ models are available in 

one-, two- and three-drive configurations. 

Prices start at $399 for a single-drive TFD-1 00™, $675 for a 
single-drive TFD-200™. Drives are supplied with heavy-duty 
power supplies. Metal enclosure is finished in compatible silver 
enamel. 

See your nearby Percom dealer or order direct by calling 
toll-free 1-800-527-1592. 




Five-Inch Disks Store More 
Than Eight-Inch Disks! 



Garland, Texas — June 25, 
1980 — Percom Data Company 
has begun production of a 
double-density disk controller 
adapter for TRS-80* Model I com- 
puters. 

Harold Mauch, president of 
Percom, made that announcement 
here today, saying that data stor- 
age capacity using the adapter and 
double-density disk operating sys- 
tem — which is included — can be 
increased to as much as 294 
Kbytes per minidiskette. 

By comparison, the maximum 
storage for larger eight-inch disk 
systems used with the TRS-80* 



Model I computer is about 290 
Kbytes. 

Mauch said the PC card adap- 
ter, which plugs into the controller 
chip socket of the computer Ex- 
pansion Interface, works equally 
well for either single-density or 
double-density storage, and users 
may continue to run programs 
under TRSDOS*, OS-80™ and 
other single-density operating sys- 
tems with the adapter installed. 

Price, for the plug-in adapter, 
the TRSDOS*-like double-density 
DOS and a utility for converting 
files and programs from single- to 
double-density format is expected 
to be $219.95. 



BACKGROUNDER 

CRC ERROR! TRACK LOCKED OUT! 

by the Technical Staff 
Percom Data Company 



This problem started while 
we were studying an annoying 
problem with the TRS-80* com- 
puter. Disk drives sold by Percom 
are realigned and tested before 
shipment. We noticed, however, 
that some disk drives would pass 
the Percom inspection but just 
would not work reliably on the 
inner tracks with a TRS-80* com- 
puter. These drives were within 
the manufacturer's specifications, 
and would function perfectly on 
other disk systems Percom man- 
ufactures — "perfectly" here 
meaning more than 50 million 
bytes read without error! 

The disk read data separa- 
tion arrangement in the TRS-80* 
computer Expansion Interface 
uses an internal data separator of 
the FD1771 disk formatter/ con- 
troller IC. Use of the FD1771 in- 
ternal data separator is not 
recommended by Western Digital, 
the IC manufacturer. The follow- 
ing note appears on page 17 of 
theFD1771 datasheet: 

Internal data separation 
may work for some appli- 
cations. However, for ap- 
plications requiring high 
data recovery reliability, 
WDC recommends exter- 
nal data separation be 
used. 



We suspected the data 
separator because the problem 
was most severe on disk inner 
tracks where storage density is 
highest and data separation is 
most critical. 

To prove our point, a techni- 
cian breadboarded a standard 
Percom data separator circuit, 
and configured it to plug directly 
into the FD1771 IC socket of the 
TRS-80* computer controller. 

When connected to the 
TRS-80* computer, a trouble- 
some drive functioned perfectly! 
We ran a BACKUP utility many 
times and never got a track lock- 
out. Before we added the external 
data separator circuit to the com- 
puter, this same drive would al- 
ways lock out tracks, and would 
have difficulty reading from the 
inner (higher number) tracks. 

The Percom data separator 
circuit fixes the mini-disk control- 
ler of the TRS-80* computer. The 
type of drives being used is ir- 
relevant; the circuit eliminates 
disk read errors resulting from the 
inability of the Tandy controller 

design to reliably separate clock 
and data signals when reading 
high density inner tracks. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 



" 258 PERCOM DATA COMPANY, INC. 211 H. Kirby Street Garland, Texas 75042 (214) 272-3421 

™ trademark of Percom Data Company, Inc. 'trademark of Tandy Radio Snack Corporation which has no relationship to Percom Data Company. 
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GAME 



Destroy enemy spacecraft— with your 4K Level II. 



Starfighter 



Albert C. Ferrer a 
RD #2, Box 325 
Oneonto, NY 13820 



I am a dedicated amateur as- 
tronomer turned computerist. 
I wanted to design a space bat- 
tle game that involved as much 
realism as possible within the 
rather severe limit of my 4K 
machine. The following program 



is what I cameupwith, including 
audio. 

The program illustrates what 
a space pilot might see looking 
out his cockpit window on a real 
space battle. It creates a ran- 
dom constellation of five to fif- 
teen stars for each game and 
maintains them through all the 
action. The distant suns must 
remain unaffected by fore- 
ground events. 

Missile System 

The object is to destroy a 



Variable Program Function 

A Salvo size (1 to 4). 



Row 1 star position. Also random variable and loop counter. 

Horizontal set point of left hostile fighter gun. 

Vertical set point of left hostile fighter gun. 

Leftmost print position of hostile ship. 

Array variable label (star position). Also array variable loop counter. 

Random variable to determine E shift position. Also loop counter. 

Horizontal aim point. 

Salvo loop counter. 

Number of stars. 

Upper left set point of E (horizontal coordinate). Also used (line 334) as the 

print at position that includes the missile set point. 

Upper left set point of E (horizontal coordinate). Also used (line 334) as the 

print at position that includes the missile set point. 

Missile deflection random variable (horizontal coordinate). 

Missile deflection random variable (vertical coordinate). 

Number of missiles available. 

Damage flag for hostile ship character < (location E). 

" " " -(left). 

" " 0. 

-(right). 

> (right). 

Random variable to determine if GOS.2000 (hostile fighter fire routine). Also 

used in hostile fighter explode routine (lines 6000-6060) as a loop counter. 

Vertical aim point. 

Ship explosion reference print at point. There is one for each star on the 

playing field. 

Set point coordinate, (horizontal) 

Set point coordinate, (vertical) 

Random variable to determine if enter Stargate routine. 



A(F) Star position print at point. 



Table 1. List of Variables Used. 



hostile fighter viewed through 
your ship's window. Your ship is 
armed with a missile system, 
but like real systems, the mis- 
siles are not perfect and your 
best bet is to fire a salvo that will 
form a cluster around your 
target coordinates. Hopefully, 
the cluster will include the 
hostile fighter. 

You have to fire by feel to a 
considerable extent. After a 
number of games you will learn 
to control your fire and your 
score will improve. 

The hostile fighter also has 
weapons and, if you do not 
score on your first salvo, its 
capabilities may well be demon- 
strated to you. He has two 
wingtip guns that can blaze 
back at you and can choose al- 
most any moment (even during 
your salvo) to return your fire. If 
he scores, your little microcosm 
comes apart at the seams. 

Since his weapons do not 
travel at light speed, you have a 
brief moment between his gun 
flashing and his missiles strik- 
ing to contemplate your sins. 

The hostile has several other 
tricks. On occasion he disap- 
pears through a stargate or 
space warp and leaves the field 
making quite a flash as he goes. 
(I admit it. I do watch Buck 
Rogers.) Sometimes, too, he 
leaves the view from your win- 
dow. In a moment he returns to 
continue the encounter. 

A stand-off results if you run 
out of missiles and disengage, 
or the hostile leaves through a 



stargate. The computer displays 
the number of missiles you have 
left. It also displays the coor- 
dinates of your last salvo. 

If you run out of missiles and 
the fighter is still intact, he has 
the option of shooting at you be- 
fore stargate takes him out of 
reach. If you damage his ship 
before your missiles are deplet- 
ed, the hostile fighter escapes 
beyond the stargate, leaving 
you to contemplate the starry 
sky till the next game. 

Direct Hit 

In order to bag your opponent, 
you have to score a direct hit on 
his -cockpit. This causes his 
fighter to come apart rather vio- 
lently. It you hit him around the 
edges, your controls will indi- 
cate DAMAGE. 

You can shoot up his wings 
and the computer will keep track 
of the missing pieces and print 
out what remains of your oppo- 
nent after he moves. As long as 
his cockpit is intact he will sur- 
vive. 

A non-lethal hit gives you two 
advantages. First, you disable 
your opponent's weapons. Fur- 
ther, his mobility will be consid- 
erably reduced, making it easier 
for you to finish him. 

As written, there is about an 
even split between wins, losses 
and draws. However, you can 
change the odds. Line 190 con- 
trols the missile supply, and you 
can increase it, if you wish. 

Line 356 controls the chance 
that you will get fired at during 



s Reader Service index — see page 194 
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Lines 
10-35 
50-76 
100 

105 
110 
152 
154-164 

190 

200-203 

205-225 

300-331 

334 

338-342 

350 
356 
357 

362 



363 
365 

370-380 
475-480 
500-760 

766-767 

770-790 

800-920 

1000-1180 

2000-2060 

2090 

2105 

3000-3060 
4000 

5000-5100 
6000-6060 



Program Function 

Initialize system. 

Establish playing field format. 

Establish initial hostile fighter position-E. 

Check field boundaries. 

Print hostile fighter. 

Choose number of stars (5 to 15). 

Choose star positions. Check if hostile position interferes. If not, 

print star. If so, choose new star position and print star. 

Choose number of missiles. 

Erase old input. 

Input new fire control data. 

Set missile hit position. 

Calculate the print point that includes missile set point. 

Check for hit on hostile and set damage flags P,Q,R,S,T. 

Note: R is the kill flag. 
Reset missile hit. Reprint each star unles hostile covers it. 
Decide if hostile returns fire. 
Update missiles remaining; print out. 

If no missiles remain, print hostile damage status. If hostile is 
missed, give hostile a chance to return fire. If hostile misses, then 
Stargate. 

If hostile is not missed or killed, print DAMAGED, then Stargate. 
Loop to fire next missile. 

Print hostile damage status, if missiles are remaining. 
Determine whether hostile returns fire. 

Determine new hostile position. Consider damage, if any, and print 
remaining parts of hostile at new position. 
Determine whether hostile returns fire. 
Choose, if Stargate. If not, return for another salvo. 
Stargate routine ending. 

Determine new hostile ship based on missile damage flags. 
Hostile fighter gun fire routine. 

Choose, if hostile fire effective. If yes, branch to ship destruct 
routine. 

Replace stars removed by hostile fighter fire. 
Ship destruct routine ending. 
Delay loop. 

Star replace routine including check for hostile position. 
Hostile fighter explodes, if cockpit is hit routine. 

Table 2. Program Summary. 



RAM. It may be because of some 
kind of overflow condition in the 
BASIC monitor or internal 
scratch pad. Whether peculiar 



to my series machine or not I 
cannot say. I hope someone 
solves it. It is my only problem 
with the program. ■ 



or after a salvo. If you increase 
U = RND(3) to a larger random 
number you get shot at less 
often. 

Lines 766-767 determine if 
you will be fired on after the 
hostile fighter moves. Likewise 
increase U = RND(2) for a safer 
game. 

Line 770 controls the chance 
of a stargate. Increase Z = 
RND(5) to make the hostile stick 
around longer. 

Audio 

Oh yes, I mentioned audio. 
For me it was easy, since my 
computer shares my cassette 
deck with my high fidelity sys- 
tem. However, you can hear your 
computer by placing a portable 
FM radio near it and picking up 
the digital noise at numerous 
places on the dial. The sound ef- 
fects end with the 500 hz tone of 
FOR-NEXT loops being counted 
waiting for the next game. 

One final suggestion. Turn 
down the screen brightness un- 
til a dark sky appears, as free of 
light pollution as possible. This 



makes the constellations look 
much more realistic. (I wonder 
what Orion would look like from 
a vantage point in Cygnus? 
Well, I admit the graphics aren't 
that good!) 

I omitted instructions and 
used many abbreviations to 
make room for the program. 
However, the screen instruc- 
tions are quite specific. 

As written my computer re- 
turns a PRINT MEM. of 122 
bytes. A maximum of 60 bytes 
are used when the star position 
array spins up. You have only 62 
bytes to spare and cannot take 
too many liberties typing the 
program or adding features. 

Also the program is not pro- 
tected against illegal inputs, so 
if you enter bad input, you have 
to hit BREAK and then RUN 
again. 

Also, on rare occasions the 
program crashes with a sorry 
statement. The sorry returns a ? 
after the FOR of a legal FOR- 
NEXT loop, usually line 2500. 
The problem has defied my anal- 
ysis; there is no lack of user 



Program Listing 



l 

10 

35 

50 

60 

76 

100 

105 

110 

152 

154 

156 

161 

162 
163 
164 

190 
200 
202 
203 
205 
210 



212 

220 
223 
225 
300 
310 
330 
332 
334 
338 
339 
340 
341 
342 
345 
347 
350 
356 
357 
362 
363 
365 
370 
375 
380 
390 
475 
480 
500 
510 
515 
520 
530 
540 
550 
560 
570 
595 
600 
610 
620 
630 
640 
650 
700 
710 
720 
760 
766 
767 
770 
780 
790 
800 
810 

820 



850 



860 



870 



I)";: INPUT 



REM STARFIGHTER BY ALBERT C. FERRERA 11/4/79 
CLS 

P=0:Q=0:R=0:S=0:T=0 

FORX=6TO119:SET(X,0) :SET(X,36) :NEXTX 
FORY=0TO36:SET(6,Y) :SET(119,Y) :NEXTY 
PRINT@189 , "M" ; : PRINT@381 , "H" ; : PRINT057 3 , "V" ; 

B=RND(45)+7:E=64*RND(10)+B 

IF(E<128)+(E>703)THEN100 

PRINT@E,"<-0->"; 

J=5+RND(10) 

FORF=lTOJ 

B=RND(45)+7:A(F)=64*RND(10)+B 

IF(A(F)=E)+(A(F)=E+l)+(A(F)=E+2)+(A(F)=E+3)+(A(F)= 

E+4)THEN156 

IF(A(F)=E-1)THEN156 

NEXTF 

FORF=lTOJ:PRINT@A(F) , "*" ; :NEXTF 

0=RND(9)+9 

PRINT@834," "; 

PRINT@898," "; 

PRINT@936," "; 

PRINT@252,0; 

PRINT@834, "HORIZONTAL AIM POINT (0 TO 11 

H 

PRINT@444,H; 

PRINT@898, "VERTICAL AIM POINT (0 TO 30) " ; : INPUTV 

PRINT@636,V; 

PRINT@936, "SALVO SIZE (1 TO 4) " ; : INPUTA: IFA>4A=4 

F0RI=1T0A 

M=RND(10) :N=RND(5) 

X=H-M+18:Y=V-N+6 

SET(X,Y) 

K=INT(X/2)+64*INT(Y/3) 

IFK=EP=1 

IFK=E+1Q=1 

IFK=E+2R=1 

IFK=E+3S=1 

IFK=E+4T=1 

GOSUB4000 

IFR=1GOTO6000 

RESET(X,Y) :GOSUB5000 

U=RND(3) :IFU+P+Q+S+T<2GOSUB2000 

0=0-l:PRINT@252,0; 

IFO+P+Q+S+T=0PRINT@886,"MISS";:GOSUB2000:GOTO800 

IFO=0PRINT@886, "DAMAGED" ;:GOTO80 

NEXTI 

IFP+Q+R+S+T=0PRINT@886 , "MISS" ; : GOT0475 

IFP+Q+S+T>0PRINT@886, "DAMAGED"; :GOT0475 

PRINT (§886, "KILL"; 

FORG=1.2000:NEXTG:GOTO10 

U=RND(2) 

IFU+P+Q+R+S+T<2GOSUB2000 

PRINT@E," "; 

G=RND(6) 

IFP+Q+S+T>0THEN600 

IFG=1E=E+RND(8) 

IFG=2E=E-RND(8) 

IFG=3E=E+64+RND(8) 

IFG=4E=E+64-RND(8) 
IFG=5E=E-64+RND(8) 
IFG=6E=E-64-RND(8) 

GOTO700 

IFG=1E=E+RND(2) 

IFG=2E=E-RND(2) 

IFG=3E=E+64+RND(2) 

IFG=4E=E+64-RND(2) 

IFG=5E=E-64+RND(2) 

IFG=6E=E-64-RND (2) 

IFE<0E=E+64:IFE>7 57E=E-64 

K=2*(E-64*INT(E/64)) :L=3*INT (E/6 4 ) 

IF(K<8)+(K>106)+(L<5)+(L>30)THEN510 

GOSUB1000:GOSUB50 00 



U=RND(2) 

IFU+P+Q+R+S+T<2GOSUB20 

Z=RND(6) 

IF(Z=2)*(E>128)*(E<703 

GOTO200 

GOSUB4000 

PRINT@E-64,"* 

GOSUB4000 

PRINT@E-64," * 

* ";:GOSUB4000 
PRINT@E-64,"* 

*"; :GOSUB4000 
PRINT@E-64," 

"; :GOSUB4000 
PRINT@E-64," * 

* ";:GOSUB4000 
PRINT@E-64," * 

* ";:GOSUB4000 
PRINT@E-64," 

";:GOSUB5000 



THEN801 



PRINT@E+64,"* *";:GOSUB1000: 



PRINT@E,"* O *' 
PRINT@E," * ' 
PRINT@E, "* O *' 
PRINT@E," *0* ' 
PRINT@E," *** ' 
PRINT@E, "*****' 



PRINT@E+64," 

PRINT@E+64,"* 

PRINT@E+64," 

PRINT@E+64," 

PRINT@E+64," 

PRINT@E+64," 
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880 


PRINT@E," *** "; :GOSUB4000 




890 


PRINT@E," * ";:GOSUB4000:PRINT@E, " " ; : E=l 




910 


PRINT@898,"STARGATE : HOSTILE ESCAPED " 




920 


GOSUB5000:GOTO390 




1000 


IFP=0PRINT@E, n <"; 




1020 


IFP=1PRINT@E," "; 




1040 


IFQ=0PRINT@E+1,"-"; 




1060 


IFQ=1PRINT@E," "; 




1080 


PRINT@E+2,"0"; 




1100 


IFS=0PRINTt?E+3, "-"; 




1120 


IFT=0PRINT@E+4, n >"; 




1140 


IFT=lPRINT@E+4," "; 




1160 


IFS=lPRINT@E+3," "; 




1180 


RETURN 




2000 


C=2*(E-6 4*INT(E/6 4) ) -1 :D=3*INT (E/6 4) +1 




2010 


FORG=lTORND(9) 




2020 


SET(C,D) :GOSuB2500:RESET(C,D) :GOSUB2500 




2040 


SET(C+11,D) :GOSUB2500:RESET(C+11,D) :GOSUB2500 




2060 


NEXTG 




2090 


B=RND(2) : IFB=1GOSUB3000 




2105 


GOSUB5000: RETURN 




2500 


F0RB=1T01 : NEXTB : RETURN 




3000 


FORF=lTOJ 




3020 


W=A(F)+RND(20) 




3030 


PRINT@W-128," ! ";:PRINT@W-64," XXX ";:PRIN 
T@W,"-XXXXX-"; 




3040 


PRINT@W+6 4," XXX " ; : PRINT@W+128 , " ! 




3050 


NEXTF 




3055 


PRINT@345,"SHIP EXPLODING"; 




3060 


GOTO390 




4000 


FORG=1TO300:NEXTG:RETURN 




5000 


FORF=lTOJ 




5010 


IF(A(F)=E-1)+(A(F)=E)+(A(F)=E+1)+(A(F)=E+2)THEN51 
00 
IF(A(F)=E+3)+(A(F)=E+4)THEN5100 




5020 




5050 


PRINT@A(F) , "*"; 




5100 


NEXTF: RETURN 




6000 


PRINT@E+2, "*" ; :FORU=1TO100 :NEXTU 




6010 


PRINT@E+1 ,"(*)";: FORU=1TO100 : NEXTU 




6020 


PRINT@E+1,"( ) "; :FORU=IT07 5:NEXTU 




6030 


FORU=1TO30:PRINT@E-1+RND(4) , " *"; :NEXTU 




6040 


FORU=lTO10:PRINT@E+63+RND(5) ,"."; :GOSUB2500 




6045 


PRINT@E-65+RND(5) , " . " ; :GOSUB2500 




6050 


PRINT@E-1+RND(4) , " : ";: NEXTU :GOSUB4000 : PRINT@E, " 




6060 


PRINT@E+6 4," "; : PRINT@E-64 , " ";:GOSUB5000 
:GOTO3 80 











MORE FROM MANHATTAN 

APPLICATIONS 

CALCULATOR PLUS makes your TRS-80 a printing calculator, or 
an excellent on-screen calculator without a printer. Chain and 
mixed calculations, memories for answer storage or calcula- 
tions with constants. On-screen or printed review of long add- 
and-substract operations. Optional dollar format. MPC-1 $9.95 

CHECKBOOK PLUS solves the problem of monthly bank state- 
ment reconciliation, without cumbersome tape record-keep- 
ing, just do your checkbook once a month and let Checkbook 
Plus handle all the details and find the errors. MCB-1 $9.95 

calculator & checkbook plus on one cassette MC 2 $14 95 

THE LISTMAKER Powerful, versatile program allows entry of 
400 names or items, with codes, in 16K. Lists by code on-screen 
or to printer. Sorts, provides editing of entry or code, dump- 
ing, loading lists. Pull any category from list in seconds. 

MLM-1 $9.95 

DIVERSIONS 

GIN RUMMY 2.0 plays a strong game, good enough tochalienge 
an expert player. Plays a full regulation game, keeps score to 
game and changes strategy to counter opponent's play. A pro- 
gram you'll enjoy playing against and trying to beat. 

MCR-1 $14.95 

LABYRINTH RUN A fast action game, racing through sharp 
turns, slaloms and narrowing passages. Set a record time— or 
hit a wall and you're out. Each labyrinth has Sprint and Full 
courses, with three levels of skill. A fascinating test of coordi- 
nation and skill. High speed graphics. mlr-1 $9.95 

E.S.P. LAB Based on the famous Duke university experiments. 
The computer selects symbols at random to display on the 
screen for ESP trials. Analyzes trial results for direct telepathy, 
precognition, postcognition. Special tests for precognition and 
telekinesis. Machine-language graphics. mtl-1 $9.95 

MANHATTAN SOFTWARE, Inc. ^90 
P.O. Box 5200 Grand Central Station 
New York city, New York 10017 



^ ASSISTANT 



Get Control of Your Level II 

Add 8 new and 3 user definable 
commands. Break key control 
(on/off) - enable/disable all monitor 
printing - 245 computer speeds and 
more. Use as programming tool and 
under software control . . . includes 
debounce routine. 
Special Introductory Vi Price Offer 
until September. Basic listing $5.00. 
Tape $7.50. Complete documenta- 
tion and sample applications. Spec- 
ify 4, 16, 32, 48k, 449 byte utility. 



The GREAT CRANE 
GAME MACHINE - 



"ACTION GRAPHICS" — machine 

language speed. In this construction 
skill game you pick up beams and col- 
umns with the crane, then lower 
them into position . . . but be careful if 
not properly supported — 
DESTRUCTION! 
Watch out for the trolls. $7.50. 16k 
tape. Add $1.50 tape orders. 

Where proven software is still affordable 
FREE CATALOG 



The Berg Works 

BOX 742 A "'>' 

JANESVILLE. Wl 53545 



at last, a 

***PROGRAM EDITOR 
FOR TRS-80 BASIC*** 

Tired of 'one line at a time' program editing? Now, 
with the help of THE SOUTHEASTERN TEXTAN, you 
can enter your BASIC programs in a video oriented 
text editor Simply start typing To make a change, just 
move the non-destructive cursor over the character 
and type on top of it! 

This editor was written for TRS-80 BASIC, not 
adapted to it THE SOUTHEASTERN TEXTAN is totally 
in machine code for speed and compactness. 

FEATURES INCLUDE: 

Reads tapes written in BASIC 
.Returns to BASIC with program ready 
.One key entry of key words like PRINT 
. Selectable auto line numbering 
.Edit any line while in insert mode 
. Append programs 
. Block delete 
. Search and replace 

Full cursor movement 
. Auto repeat any key 

Requires Level 11 and 16K or more 
REPEAT KEY 

Repeats any key held down for more than one second 
until key is released Requires Level II BASIC Will 
work with almost any amount of memory. 

THE SOUTHEASTERN TEXTAN. ..$40.00 
SOUTHEASTERN TEXTAN MAN. .$ 7.50 

AUTO REPEAT KEY $ 7.50 

Both are tape only 
Disk to be released soon. 

Southeastern Software " 311 
1604-9th Ave. S., Apt. 9B 
Birmingham, AL 35205 

Atten: Jeff Lyons, DEPT M 



! SimpIeSort— DBM | 

% TRS-80 SORT UTILITY I 

t DATA BASE I 

| MANAGEMENT SYSTEM | 

•♦• SimpIeSort — A machine code lexi- •} 

*:* cagraphic sort utility designed for *;' 

.£ TRSDOS and NEWDOS to efficiently *j 

•> order files created by the BASIC field •> 

*:* statement. The DOS statement * 

•J. SORT ZB:1 =FACT:3.V.A.64.4.10,5- BASIC .5, 

*♦* will move the 64 byte records (4isector) with a 10 byte V 

V key (offset 5 from beginning) from FACT:3 to ZB:1 in •!« 
*♦* ascending order, verifying all writes, and then invoke V 

V BASIC. The destination file can be the source file, V 
*J* there are no intermediate files created, and the V 
J source file can fill the entire diskette and still be •;" 
*•* sorted. Simple, efficient, convenient, extremely fast *•' 

V (with even more features), Simple-Sort. V 

V DBM— A menu driven data base management V 
J system ol BASIC and machine code programs that *•' 
J allow the user to easily, conveniently, and logically *;* 
{ perform the following functions. V 

V Dynamically define record formats. ♦J« 
♦!♦ Dynamically define print formats for defined ♦} 
♦J* records. «J< 
•J* Build files using record formats. »J« 
•J» List files (with or without print format, bounds, •!" 
•2» or specific selection). ♦!« 

V Merge files with the same record formal. •?« 
•> Sort files (Using a BASIC invoked command line •!• 

V for SimpIeSort). »J« 
•!• Sequentially scan key field and modify any field •!• 

V in records selected. »J« 

V Key selection of record for modification (20.000 ♦!« 
•♦♦ record limit, any record in 5 sec). •!« 

V SimpIeSort - DBM package with •$• 

•> manual $149.95 •> 

•J» SimpIeSort alone with manual «J« 

»»• $79.95 •> 

V Manual only (appliable to purchase) •!■ 
••• $25.00 * 

SimpIeSort— DBMf 

* ^-413 1300 DELAWARE *:* 

♦I* LAWRENCE, KANSAS 66044 A 
♦:♦♦♦***** 913-841-2333 ♦♦♦♦♦**** 
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GAME 



Time running out? Get into high gear with machine code. 

Life in the Fast Lane 



Terry Kepner & Claud M. Grace 
P.O. Box 481 
Peterborough, NH 03458 



Most serious programmers 
at one time or another 
have seen the program Life. In 
an attempt to decrease the pro- 
cessing time many have tried to 
write their own versions of the 
game. As a result, two schools 
of Life have developed. 

One school, usually the own- 
ers of machines like the TRS-80 
and the PET, uses only BASIC, 
while the other school, usually 
those people who have access 
to assembler editors, programs 
Life with machine code. 

Since most newcomers are 





( START ) 














BEGIN AT 
LOCATION 
3CO0H 




I 




BUILD 

CHANGES 

TABLE 
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/ DISPLAY / 
/ TABLE / 
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CLEAR 
VARIA8LES 
UPDATE 
COUNTERS 









purchasing machines with BA- 
SIC, they see Life run so slowly 
that they fail to see the reason 
for all the interest surrounding 
the game. 

If they see it run in machine 
code however, they are fasci- 
nated. Unfortunately, beginners 
usually have difficulty under- 
standing what machine code is 
and what it does. 

For those of you who are curi- 
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CLEAR COUNTERS 
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LOOK AT 
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APPLY RULES 
BUILD TABLES 
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NEXT LOC 




oxT* 


DEO > 

YES 










PUT STOP MARK 
IN TABLE 




I 




READ TABLE 
UPDATE VIDEO 




I 




NEXT 
GENERATION 











ous about Life, but don't want to 
spend days decoding hex in- 
structions, or don't want to shell 
out the money for an assembler 
editor, this article is for you. 

Three Versions of Life 

There are three program 
listings with this article. The 
first listing, in BASIC, takes ap- 
proximately 2 1 /2 minutes to eval- 
uate one generation of Life and 
to update the video. 

Since many of the more inter- 
esting features of Life (gliders, 
blinkers, blocks and guns) take 
from two to ten generations, or 
more, to find and observe, you 






Fig. 1. General Logic 
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Fig. 2. 



6 
Fig. 3. Look at Neighbors 



would need a time-lapse camera 
and plenty of free time to get 
any useful results. 

The second listing, however, 
is a hybrid BASIC-assembly 
code program. And it's fast! Al- 
most a line for line conversion of 
the BASIC program into assem- 
bly code, it can be programmed 
into the TRS-80 Level II comput- 
er without additional software. 

The third listing, completely 
in assembly code, is even faster 
than the hybrid version. The 
three programs were written to 
match one another as closely as 
possible. Studying the listings 
gives even the newest program- 
mer insight into assembly code 
programming and its advan- 
tages over BASIC. 

Let's start with the hybrid pro- 
gram. Its BASIC segment car- 
ries the assembly code instruc- 
tions used by the assembly pro- 
gram. These instructions are 
held in the DATA statements. 
When the command RUN is 
given, the program READs these 
statements and POKEs the nu- 
merical instructions (in decimal) 
into memory at a specified ad- 
dress. 

It then calls this assembly 
code routine via USR(O) in 
BASIC. 

When the call is made, the 
computer leaves BASIC, exe- 
cutes the assembly code in- 
structions, and returns to BASIC 



OMEGA 

SALES 
CO. 



WHOLESALE COMPUTER PRICES" 
DIRECT TO THE PUBLIC 

12 Meeting St., Cumberland, R.I. 02864 




PRODUCT SPECIAL 

OF THE MONTH!! 



TRS«80 ' 
Model II • 53.500 





Products are 

NOW 

IN 

STOCK 

AT 

HMEGA 

Sales 

Co. 



INTERTEC SUPERBRAIN 
32K RAM $2449.00 
64K RAM $2649.00 

(Prices valid July 1 5 - Sept. 1 . 1 980) 



For: TRS«80. Apple, CBM. 
(Interface 




Epson TX-80 - $745 




Soroc 120-5699 



CALL TOLL FREE FOR OMEGA'S PRICE! 



HMEGA OFFERS THE BEST DELIVERY AND PRICE ON: 
APPLE • ATARI • TRS-80*MODEL II • INTERTEC • 



T.I. 810 • HEWLETT-PACKARD-85 • SOROC • 
COMMODORE • NEC • QCJME • CENTRONICS 



OMEGA sells only factory fresh, top quality merchandise to our customers. 

OMEGA will try to match any current advertised price with similar purchase conditions. 

Before you buy anywhere else - be sure to call OMEGA Sales Co. 
1-401-722-1027 or 



^389 



1-800-556-7587 



"OMEGA ships via UPS, truck, or air. COD's, VISA, Mastercharge accepted. 
"A member in good standing of the better business bureau." 




,, ^. ^. ^. ^. ^. ^^^^ ^F ^F ^n ^n ^n -^ 
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-GREEN 
SCREEN 



• IMPROVE IMAGE CONTRAST 

• REDUCE EYE FATIGUE 

• ENHANCE SCREEN LEGIBILITY 

• PROVIDE A MORE PLEASING 
DISPLAY 

• GIVE A DISTINCTIVE PROFESSIONAL 
LOOK TO YOUR SYSTEM 

The GREEN SCREEN is custom molded to 

fit nicely over the picture tube. 

It ingeniously mounts in seconds without 

any tools. 

" ***** 

CALL: (S12}296-5916 
or send S12.50+ S2 SGH 
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ALPHA product co. * 



85-71, 79th St., Woodhauen, N.Y. 11421 



*** sic***** ***TL 
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T=BU// 

BUS EXTENDER FOR TRS 80^ 
LIKE HAVING 5 EDGE connectors 



TO 
KEYBOARD 

OR 
EXPANSION INT 
(screen printer port 



TO 
ACCESSORIES 




stock 






$80 

+$2s&h 
±L ALL GOLD PLATED CONTACTS 

^ +****•+*****+***«****************•*** 

J-inT6RFflCER2 $85 £ 

V 16 channel I/O module, 8 inputs, 8 outputs, 2 relays, W 
*^ 2 opto-isolated Inputs Very easy to use with BASIC '^ 

SL. Extensive user's manual included. Sold worldwide for ^L. 
over a year. 



# ALPHA product co. * 

^ 85-71, 79th St., Woodhauen, N.Y. 11421 ^ 210 ,. 

' ^^f °^^ ""^^ "^^* ""^L^ *^^f ^^' ^ i^ - * >^^- *-i^' *- Ar* ° '^b' 

^^^ ^^^ ^i* ^^^ *^i^ '^r^ ^^^ ^i^ ^f^ ^^^* ^^^ ^i* 



LIFE IN THE BASIC LANE 



CLAUD M. GRACE 

1067 W. MIRACLE MILE 

TUCSON, AZ. 85705 



THIS SETS UP A RANDOM PATTERN ON THE SCREEN 



IT FINDS, 



1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 1067 W. MIRACLE MILE #97 

7 REM 

8 REM 

9 REM 

10 REM 
90 REM 
100 CLS 

105 PRINT@0, "GENERATION 0"; 
110 FOR X = l TO 40 
120 J=RND(30)+17:K=RND(8)+4 
130 PRINT@(K*64+J) , "*" ; 

140 NEXT X 

141 REM THIS LOOKS AT THE SCREEN, EVALUATES THE 

142 REM AND UPDATES THE COUNTERS 

145 POP=40 

146 REM CALL THE VIDEO SCAN ROUTINE, THEN UPDATE 
150 GOSUB 1000 

155 GEN=GEN+1:PRINT@0, "GENERATION ";GEN; 

170 GOTO 150 

THE PROGRAM SCANS THE VIDEO. WHEN IT FINDS AN 
"*", IT CHECKS THE SURROUNDING 8 SPACES FOR 
LIVE NEIGHBORS AND COUNTS THEM. IT THEN AP- 
PLIES THE RULES OF LIFE, RECORDS THE RESULT AND 
CONTINUES TO THE NEXT VIDEO LOCATION. WHEN ALL 
OF THE VIDEO HAS BEEN SCANNED, THE TABLE IS READ 
AND ALL THE BIRTHS AND DEATHS ARE PUT ON THE 
SCREEN. IT THEN RETURNS TO THE CALLING PRO- 
GRAM LINE FOR COUNTER UPDATES. 
REM THIS INITIALIZES THE COUNTERS FOR EACH NEW GENERATION 

1000 VIDIO=15360 

1010 TABLE=29696 

1020 IX=TABLE 

1030 HL=VIDIO 

1035 REM BEGIN SEARCH OF SURROUNDING 8 SPACES FOR NEIGHBORS 

1037 REM D= NUMBER OF NEIGHBORS ; A="* n 

1040 IY=HL 

1050 D=0 

1060 A=42 

1070 IF A=PEEK(IY+1) THEN GOSUB 2000 

1080 IF A=PEEK(IY-1) THEN GOSUB 2000 

1090 IF A=PEEK(IY-65)THEN GOSUB 2000 

1100 IF A=PEEK(IY-64)THEN GOSUB 2000 

1110 IF A=PEEK(IY-63)THEN GOSUB 2000 

1120 IF A=PEEK(IY+63)THEN GOSUB 2000 

1130 IF A=PEEK(IY+64)THEN GOSUB 2000 

1140 IF A=PEEK(IY+65)THEN GOSUB 2000 

1145 REM APPLY THE RULES OF LIFE 

1150 GOSUB 3000 

1155 REM MOVE TO NEXT VIDEO LOCATION 

1160 HL=HL+1 

1165 REM IS THIS THE LAST VIDEO LOCATION? 

1170 IF HL016384 THEN GOTO 1040 

1175 REM IF IT IS, THEN END THE LIST 

1180 GOSUB 4000 

1185 REM AND PUT THE TABLE RESULTS ON THE VIDEO 

1190 GOTO 5000 

1995 REM ADD ONE TO NEIGHBOR COUNT AND RETURN TO SEARCH 

2000 D=D+1:RETURN 

3000 REM RULES OF LIFE 



910 REM 
920 REM 
930 REM 
940 REM 
950 REM 
960 REM 
970 REM 
980 REM 
990 REM 
995 



3081; 
3096 
3106 
329E 



3005 REM 1ST, IS LOCATION A "*" ? 

3010 IF AOPEEK(HL) THEN 3300 

3020 A=D 

3025 REM 2ND, IF IT FAILS THE NEXT TWO TESTS, THE IT DIES 

3030 IF A=2 GOTO 3400 

3040 IF A=3 GOTO 3400 

3045 REM 3RD, PLACE ITS ADDRESS IN THE TABLE, & CONTINUE 

3050 H=INT(HL/256) :L=HL-H*256 

3060 POKE IX, I, 

3070 IX=IX+1 

POKE IX, H 

IX=IX+1 

GOTO 3400 

REM 2ND, ARE THERE ENOUGH NEIGHBORS FOR A BIRTH? 
3300 A=D 

3310 IF A<>3 THEN GOTO 3400 

3315 REM 3RD, PLACE ITS ADDRESS IN THE TABLE 
3320 H=INT(HL/256) :L=HL-H*256 
3330 POKE IX, L 
3340 IX=IX+1 

3345 REM MAKING H GREATER THAN 128 MEANS A BIRTH 
3350 H=H+128 
3360 POKE IX, H 
3370 IX=IX+1 
3400 RETURN 

4000 REM STOP — PLACE END OF LIST MARKER 
4010 POKE IX, 
4020 IX=IX+1 
4030 POKE IX, 
4040 IX=IX+1 
4050 RETURN 
4 990 REM UPDATE THE VIDEO FROM THE TABLE ROUTINE 



IX=TABLE 

REM 1ST, RECOVER THE H-L REGISTER ADDRESS FROM THE TABLE 



5010 L=PEEK(IX) 
5020 IX=IX+1 
5030 H=PEEK(IX) 
5040 IX=IX+1 
5050 A=H 
5055 REM 2ND, 



IS THIS THE END OF THE TABLE? 
IF A=0 THEN RETURN 
65 REM 3RD, IS IT A BIRTH? 
70 IF A>128 THEN GOTO 5200 
80 HL=256*H+L 
85 REM 4TH, PLACE A BLANK ON THE VIDEO 



5090 POKE HL.32 

5100 GOTO 5010 

5200 H=H-128 

5210 HL=H*256+L 

5215 REM 4TH, PLACE AN 

5220 POKE HL,42 

5230 GOTO 5010 



ON THE VIDEO 



Listing 1. BASIC 
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1 REM 


LIFE IN 


THE FAST LANE 


2 REM 






3 REM 


CLAUD M 


GRACE TERRY L. KEPNER 


4 REM 


1067 W. 


MIRACLE MILE, # 97 P.O. BOX 481 


5 REM 


TUCSON, 


ARIZONA 85705 PETERBOROUGH, N.H. 


58 






6 REM 






7 REM 






8 REM 






10 DEFINT Z 




20 CLS 






30 PRINT 


" 


LIFE IN THE FAST LANE 



40 PRINTCHRSI13) : PRINTCHRS (13) 

50 PRINT" TOUCH SPACE BAR TO START NEW RANDOM PATTERN" 

60 PRINTCHR$(13) :PRINTCHRS(13) 

70 PRINT" 'C TO CHANGE DELAY BETWEEN GENERATIONS" 

80 PRINT:PRINT:PRINT 

90 POKE 16526, 0:POKE 16527 , 112 : POKE 16553 ,255 :GOSUB350 :CLEAR100 

100 INPUT"DELAY BETWEEN GENERATIONS (APPROX 2 50/ SECOND )" ; SP 

110 Z-l 

115 REM THIS SETS UP RANDOM PATTERN ON SCREEN 

120 CLS 

130 PRINT@0,STRINGS(64," " ) ; 

140 FOR X=l TO 60 

150 J=RND(30)+17:K=RND(8)+4 

160 PRINT@(K*64+J) ,"*"; 

17 NEXT X 

17 5 REM UPDATE SCREEN AND GENERATION COUNTER 

180 Q=USR(0) 

190 GEN=GEN+Z:PRINT@0, "GENERATION ";GEN; 

195 REM TIME DELAY ROUTINE 

200 FOR X=l TO SP:NEXT X 

210 K?=INKEYS:IF K?="" THEN 180 

220 IF K$="C" THEN GEN=0:GOTO 100 :ELSE GEN=0 : CLS: GOTO 140 

225 REM MACHINE LANGUAGE SCREEN UPDATE 

227 REM EQUIVALENT TO LINES 1000-1060 

230 DATA 221,33,0,116,33,0,60,229,253,225,22,0,62,42 

235 REM EQUIVALENT TO LINES 1070-1090 

240 DATA 253,190,1,204,7 8,112,253,190,255,204,7 8,112,253,190,191, 

204,78,112 
245 REM EQUIVALENT TO LINES 1100-1120 
250 DATA 253,190,192,204,7 8,112,253,190,193,204,7 8,112,253,190,63 

,204,78,112 
255 REM EQUIVALENT TO LINES 1130-1150 

260 DATA 253,190,64,204,78,112,253,190,65,204,78,112,205,80,112 
265 REM EQUIVALENT TO LINES 1160-2000 

27fc DATA 35,62,64,188,194,7,112,205,129,112,195,142,112,20,201 
275 REM EQUIVALENT TO LINES 3000-3040 

280 DATA 190,194,108,112,122,254,2,202,128,112,254,3,202,128,112 
285 REM EQUIVALENT TO LINES 3050-3310 
29 DATA 221,117,0,221,35,221,116,0,221,35,195,128,112,122,254,3, 

194,128,112 
295 REM EQUIVALENT TO LINES 3320-3400 

300 DATA 221,117,0,221,35,221,116,0,221,203,0,254,221,35,201 
305 REM EQUIVALENT TO LINES 4000-5010 

310 DATA 221,54,0,0,221,35,221,54,0,0,221,35,201,221,33,0,116 
315 REM EQUIVALENT TO LINES 5020-5060 

320 DATA 221,110,0,221,35,221,102,0,221,35,124,254,0,200 
325 REM EQUIVALENT TO LINES 5070-5230 
330 DATA 254,128,242,17 0,112,54,32,195,146,112,203,188,54,42,195, 

146,112,300 
340 REM THIS POKES THE MACHINE LANGUAGE INSTRUCTIONS INTO MEMORY 
350 ADDR=28672 
360 READ CODE 

37 IF CODE>255 THEN RETURN 
380 POKE ADDR,CODE 
390 ADDR=ADDR+l:GOTO 360 



Listing 2. Hybrid BASIC-Assembly Code 



to update the generation 
counter and check for additional 
user inputs. The process then re- 
peats. 

To understand the assembly 
code routine requires a little 
background information. 

Life Strategy 

Originally developed to simu- 
late cell growth, Life's rules are 
rather simple: In order to sur- 
vive, each cell must have two or 
three neighbors, otherwise it 
dies of "loneliness"; a cell with 
more than three neighbors dies 
from overcrowding; any empty 
space with exactly three neigh- 
bors will be the site of a "birth" 
and will be occupied by a new 
cell. 

The interest and fun in Life 
comes from watching cells de- 
velop into interesting patterns, 



or, perhaps, even new Life 
forms. 

There are several ways to pro- 
gram Life. One method uses two 
two-dimensional arrays— one 
for the current generation under 
evaluation, and the other for the 
survivors and births of that gen- 
eration. Another method uses 
only one array, with the current 
cells positive but less than 128, 
births greater than 128 and 
deaths negative. 

The strategy used in this arti- 
cle follows neither of the above 
two methods. 

Since each generation is dif- 
ferent from the previous one by 
some set of changes, all that is 
needed is a list of these changes 
—the births and deaths of each 
generation (see Fig. 1). 

This list is built by looking at 
the eight surrounding spaces of 



WOW YOU ARE A 

PART OF THE 

GREATEST STORIES 

EVER CREATED! 




INTERACTIVE 
FICTION " 

What Is It? 

Interactive Fiction is story-telling using a computer, so that you, the 
reader, can actually take part in the story instead of merely reading it 

How does It work? 

The computer sets the scene with a fictional situation, which you read 
from the CRT. Then, you become a character in the story, when it's 
your turn to speak you type in your response. 
The dialogue of the other characters and even the plot will depend on 
what you say. 

Is it a game? 

No. In a game the situation is rigidly defined and you can select from 
only a limited number of responses. But in Interactive Fiction you can 
say anything you like to the other characters (Of course if your 
response is too bizarre they may not understand you) 

What is available now? 

Robert Lafore. writer, columnist, and programmer, has created a series 
of works in Interactive Fiction. Each is available on a 5'/«" diskette for 
use on a TRS-80* Level-ll with at least 32K memory and one disk drive. 
Requires user to have a copy of TRSDOS 2.2 or 2.3 
Six Micro Stories offers a good introduction to Interactive Fiction. Six 
very short stories involve you, the reader, in a variety of situations: you 
are an American spy in Hitler's Third Reich, the pilot of a doomed 74 7, 
and more. 

Local Call for Death is a detective story in the style of Lord Peter 
W/imsey. Considerably more challenging than the above program, 
this one will put your analytic skills (and social savoir-faire) to the test 
Two Heads of the Coin is a psychological mystery set in the London 
of Sherlock Holmes. Most challenging of all. this program will tax your 
observational skills and above all your imagination. 



Please send me rhe following works of Interactive Fiction. 



Six Micro-Stories 

Local Call for Death 
Two Heads of the Coin 

(Florida residents add 4% sales tax J 

Name 



S14 95 




SI9 95 


"Alio available 


SI 9.95 


worldwide through 




your locol adventure 




dealers " 



Address 



C/ty, State, Zip 

TO ORDER: Mail the above form with your pay- 
ment to: Adventure International, P.O. Box 
3435, Longwood, FL 32750. 
D MasterCharge D Visa □ Check D C.O.D. 

M.C. or Visa Number: 



^•97 



%L 



Signature 

•TRS-80 Is a trademark of the Tandy Corporation. 



q 



adventure international 



v* Reader Service index— see page 194 
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each location on the video 
screen and counting the number 
of live cells (actually asterisks). 
This count is compared to the 
rules, and if the rules decree 
death, then the address of that 
cell is added to the list. 

If the rules decree birth, the 
address of that cell has 8000 hex 
added to it and is placed on the 
list. For any other conditions, 
nothing is added to the list. After 
the last video position is con- 
sidered, the address 0000 hex is 
added to the list as an end 
marker. This is demonstrated in 
Fig. 2. 

The process involved in 
checking out the surrounding 
eight spaces of each video loca- 
tion is shown in Fig. 3. 

Fig. 4 is the heart of the 
strategy. It applies two different 
rules, depending upon whether 
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Fig. 4. Apply Rules & Build Table 



INDEX = 
START OF 
TA8LE 





YES 






\.MARKE0/^ 








Tno 


PLACE " •" 
AT SCREEN 
LOCATION 


PLACE " " 
AT SCREEN 
LOCATION 






f 




UPDATE 




INDEX 









a video location is occupied or 
empty. For an empty space, if 
the neighbor count is not two or 
three, add that location's ad- 
dress to the list. This is its death 
warrant. 

The address must be broken 
down into two hex numbers for 
the machine code routine to 
handle it, one for the last two 
digits (which are also in hex), 
and one for the first two digits 
(0080H = 80H + 00H). 

For an empty cell, if it has ex- 
actly three neighbors, set the 
seventh bit of the most signifi- 



cant byte (the first two hex digits 
are known as the MSB and the 
last two as the LSB— least sig- 
nificant byte) of its address 
high. Add the address to the list. 
This is equivalent to adding 128 
decimal to the address and is 
used to signify a birth. If none of 
these conditions are met, forget 
this location and go to the next 
one. 

Fig. 5 reads the addresses off 
the table until it finds a zero. It 
also checks to see if each ad- 
dress is greater than 8000H and, 
if it is, resets the MSB bit low 



and sends a * to the resultant 
address. If it is lower than 8000H 
it sends a " " to that ad- 
dress. 

As I mentioned earlier, the dif- 
ference between the execution 
times of the BASIC and the 
hybrid versions is fantastic. One 
generation of Life in the hybrid 
version has approximately 3 1 /2 
to four generations per second! 
This is a ratio of almost 550 to 
one. 

At this high speed it was nec- 
essary to add a timing loop to 
the program to slow down the 



Fig. 5. Read Table & Update 
Display 



noooi 












00002 


****** 


LIFE SOURCE CODE 






00003 


****** 


CREATED BY CLAUD M. 


GRACE 




00004 












00005 


****** 


******* 


************* 


**************************** 




00006 




ORG 


700011 






00007 VIDIO 


EQU 


3C00H 


.•STARTING ADDRESS 




00008 TABLE 


EOU 


7400H 


; STARTING ADDRESS 




00009 BUILD 


LD 


IX , TABLE 


j LOAD TABLET ADDRESS INTO IX 




00010 




LD 


HL, VIDIO 


;LOAD VIDEO ADDRESS INTO H S L 




00011 LOOP 


PUSH 


HL 


;PUSH HL ONTO STACK 




00012 




POP 


IY 


.-POP STACK (HL) INTO IY 




00013 




LD 


D,0 


(LOAD INTO REGISTER D 




00014 




LD 


A, 42 


[LOAD 42 INTO ACC. A 




00015 




CP 


(IY+1) 


; COMPARE ACC. A WITH IY+1 




00016 




CALL 


Z, COUNT 


;IP ZERO, CALL COUNT 




00017 




CP 


(IY-1) 


; REPEAT ABOVE TWO STEPS 




00018 




CALL 


Z, COUNT 






00019 




CP 


(IY-65) 






00020 




CALL 


Z, COUNT 






00021 




CP 


(IY-64) 






00022 




CALL 


Z, COUNT 






00023 




CP 


(IY-63) 






00024 




CALL 


Z, COUNT 






00025 




CP 


(IY+63) 






00026 




CALL 


Z,COUNT 






00027 




CP 


(IY+64) 






00028 




CALL 


Z .COUNT 






00029 




CP 


(IY+65) 






00030 




CALL 


Z .COUNT 






00031 




CALL 


RULES 


;NOW LOOK AT RULES 




00032 




INC 


HL 


;fiO TO NEXT VIDEO LOC . 




00033 




LD 


A, 40H 


.-LOAD 40HEX INTO A 




00034 




CP 


H 


(COMPARE TO H REGISTER 




00035 




JP 


NZ.LOOP 


; IF NOT ZERO, GO TO LOOP 




00036 




CALL 


STOP 


i IF ZERO, END OF VIDEO 




00037 




JP 


RKAD 


(JUMP TP READ 




00038 COUNT 


INC 


D 


(ADD 1 TO REGISTER D 




00 3 9 




RET 








00040 RULES 


CP 


(HL) 


[COMPARE A TO CONTENTS OF ADDRESS IN 


HL 


00041 




JP 


NZ.HTY 


[IF ITS EMPTY, JUMP TO MTY 




00042 




LD 


A, D 


[LOAD CONTENTS OF REG. D INTO A 




00043 




CP 


2 


,-DOES IT = 2 ? 




00044 




JP 


Z.GO 


[YES, JUMP TO GO 




00045 




CP 


3 


[DOES IT = 3? 




00046 




JP 


Z ,GO 






00047 




LD 


(IX+0) ,L 


[LOAD ADDRESS IN REG. H S L 




00048 




INC 


IX 


[ INTO ADDRESSES POINTED 




00049 




LD 


( IX+0) ,H 


[TO BY REG. IX 




00050 




INC 


IX 






00051 




JP 


GO 






00052 MTY 


LD 


A.D 


[LOAD REG. D INTO A 




00053 




CP 


3 


[COMPARE WITH THE # 3 




00054 




JP 


NZ.GO 


[IF NOT ZERO, JUMP TO GO 




00055 




LD 


(IX+0) ,L 


[STORE ADDRESSES IN H S L 




00056 




INC 


IX 


[IN ADDRESSES POINTED TO 




00057 




LD 


(IX+0) ,H 


[BY THE IX REGISTER 




00058 




SET 


7 ,( IX + 0) 


[SET BIT 7 TO A 1 (BIRTH) 




00059 




INC 


IX 






00060 GO 


RET 




[RETURN TO LOOP CALLS 




00061 


STOP 


LD 


( IX+0) ,0 


[LOAD ZERO'S INTO ADDRESSES 




00062 




INC 


IX 


[POINTED TO BY IX, END OF 




00063 




LD 


(IX+0) ,0 


[ TABLE 




00064 . 




INC 


TX 






00065 




RET 








00066 


:ell 


EQU 


42 


[CELL = "*" 




00067 


BLANK 


E U 


32 


(BLANK =" " 




00068 


READ 


LD 


IX .TABLE 


[LOAD TABLE ADDRESS INTO IX 




00069 


LOOP1 


LD 


L, (IX+0) 


[LOAD CONTENTS OF ADDRESS IN 




00070 




INC 


IX 


[IX INTO H S L, RESPECTIVELY 




00071 




LD 


H, (IX+O) 






00072 




INC 


TX 






00073 




LD 


A,H 






00074 




CP 





[IS THIS END OF TABLE? 




00075 




RET 


Z 






00076 




CP 


128 


[IS IT A BIRTH? 




00077 




JP 


P.MT 


(IF PARITY FLAG IS SET, JUMP TO MT 




00078 




LD 


(HL) .BLANK 


(LOAD " " INTO ADDRESS IN HL 




00079 




JP 


LOOP1 






00080 


IT 


RES 


7 ,H 


(RESTORE THE 7TH BIT OF H 




00081 




LD 


(HL) .CELL 


[LOAD "*" INTO ADDRESS IN HL 




00082 




JP 


LOOP1 






00083 




END 














Listing 3. Assembly Code 
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game. The loop is set at the 
beginning of the game by asking 
the operator what time delay is 
wanted. 

Assembly Version 

The assembly language ver- 
sion is only a little bit fasterthan 
the hybrid version, running 
about five to six generations per 
second. 

Unfortunately there isn't a 
method for the user to input his 
or her own patterns onto the 
screen in these programs. It's 
discouraging to spend five to 
ten minutes putting a pattern on 
screen, only to see everything 
either die off or become static in 
five or ten seconds. Inserting a 
random pattern generator cor- 
rects this and the patterns usu- 
ally last longer than ten seconds 
too! 

Since most of the heavy-duty 
work is accomplished in the as- 
sembly code section of the pro- 
gram, it should be easy for you 
to write your own method of pat- 
tern entry. A pause key can also 
be added to allow you time to 



study the screen if an inter- 
esting Life form appears. 

Be careful when adding state- 
ments to the BASIC portion of 
the hybrid program. The assem- 
bly code routine resides at the 
top of the memory, while the BA- 
SIC program occupies the lower 
part. 

As long as the two do not 
overlap there aren't any prob- 
lems, but when the BASIC sec- 
tion intrudes upon the assembly 
code routines, the program as a 
whole will malfunction and 
crash. 

To avoid this catastrophe, 
find out the lowest address of 
RAM used by the assembly code 
routine, not counting the video 
memory cells. After power up, 
when MEMORY SIZE? prompts, 
input this address in decimal. 
(For this particular program the 
lowest address used by the as- 
sembly code routine is 28672.) 

The sample programs have 
been liberally sprinkled with 
comments to help you under- 
stand assembly code and how it 
corresponds to BASIC. ■ 



ADVANCED BUSINESS 
SOFTWARE FOR THE TRS-80 

(Now Available For Model II Also) 
'FORECASTING • RISK ANALYSIS * U.S. MACRO MODEL 

If you're serious about improving your business 
with a computer, why not use the best business planning software 
available? Or. David M. Chereb has made the most powerful and 
successful business analytical techniques available to micro 
computer users. 

All programs listed below are in Basic, for 32K {or more) disk 
based TRS-80 systems. 

BUSINESS PLANNING PACKAGE for FORE- 
CASTING An integrated set of forecasting programs 
to handle a variety of business forecasting needs 
from Trend Analysis to Advanced Multiple Regres- 
sion (100 pg. User Manual) $99. 
INVESTMENT RISK ANALYSIS - The major ingred- 
ient in any investment is uncertainty. This 
program accounts for cost changes, shifting 
revenue streams and interest rate fluctuations. 
Now you can manage risk. (35 pg. User Manual) 
$99 
U.S. SIMULATION MODEL Knowing where the 

economy is going and how it reacts to government 
fiscal and monetary actions can save you a lot of 
money. This is a user oriented economic situation 
model constructed to professional standards (50 
pg. User Manual) $199. 
NOTICE TO CUSTOMERS: 
Because of the tremendous increase in recent 
orders, our shipping response time has slowed. We 
are expanding in order to correct this situation. But 
for the next month our shipping date will average one 
week after receipt of your order. 

To order CALL 213/424-3652. or write to APPLIED ECONOMIC 
ANALYSIS. 4005 Locust Ave.. Long Beach, CA 90807. 



^47 



E • X • P • A • N • D 




>$m 






YOUR 
TRS-80* 







INTRODUCING THE XTD-TRS INTERFACE CARD 
FOR THE STD BUS 

This card permits direct connection between the TRS-80* and the STD BUS system. The 
TRS-80* can even be used as a development system for Z-80 STD BUS. QC Microsystems 
distributes a full line of STD BUS products from a number of manufacturers including 
Mostek, Xitex, Intelligence Systems and Spurrier. 



Xitex XTD-TRS Interface Card 



DDT-80 
ROM 




i— OFF THE SHELF STD BUS PRODUCTS — | 


AVAILABLE NOW: 






MDX-CPU1 


$260 


Z80 CPU/RAM/PROM 


MDX-CPU2 


$295 


Z80 CPU/RAM/PROM 


MDX-DRAM 8/32 


• 


Dynamic RAM 


MDX-PIO 


$250 


Parallel I/O 


MDX-A/D 8,10,12 




A/D Converter 


MDX-DA8.12 




D/A Converter 


SYS-CPM" 


* 


CP/M 2.2 Disk S.W. 


MDX-MATH 


$699 


Floating Point Math 


MDX-SIO 


$260 


Serial I/O 


MDX-SV1-1 


$235 


Video Interface 


PROM-I 


$165 


PROM Programmer 


MDX-EPROM/UART 


$225 


Combination PROM/UART 


CARD CAGES 


* 


8-22 Slot with MotherBoard 


POWER SUPPLY 


$135 




"Contact QC for Pricing Options 



$?60 Includes: DDT-80 ROM 

TRS-80 and CP/M are registered trademarks of Tandy Corp. and Digital Research, respectively 



| — 200 NS MEMORY!! . 


High speed 4116 RAMS for Maximum 
Reliability from your TRS-80*. 

SET OF 8 FOR $57 


OTHER RAMS 

2114 UCB 1K X4 450NS 
4118N-4 1KX8 250NS 
4104N-4 4KX 1 250 NS 


$(1-9) 

5.00 

24.00 

10.50 


PROMS 

2716T-12 2K 
2716T-8 2K x 


K 8 650 NS 
8 450 NS 


24.50 
27.00 


Z80 PARTS 

Z80-CPU 

Z80-PIO 

Z80-CTC 

Z80-DMA 

Z80-SIO 


2.5 MHZ 

$1(1-9) 

11.00 

8.50 

8.50 

29.00 

37.50 


4.0 MHZ 

$(1-9) 
15.00 
11.00 
11.00 
37.00 
45.00 


MISC. 

12" Video Monitor B&W 


$149.00 



Micro Computer Systems, 
Components and Service 

MasterCharge, Visa, American Express, Check, COD. accepted. 
Add $3.00 for U.S. Shipping & Handling. Allow two weeks for 
shipment. Min. order of $10.00. All products covered by a 90 day 
OEM warrenty. Prices subject to change without notice. 



Dealer Inquiries Welcome! 

Micro ^3»5 

Systems P.O. box 401326 

GARLAND, TEXAS 75040 
(214) 343-1282 

Ask for our complete catalogue! 




^-Reader Service index— see page 194 
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GAME 



Learn about matrix handling, 

and destroy submarines at the same time. 



LBoat 



Hubert C. Borrmann 
2840 South Circle Dr. 
Colorado Springs, CO 80906 

Simplicity is the key to pro- 
gram writing for the begin- 



ner. Try starting with something 
easy, like a guessing game and 
then improve it. 

In the following program, the 
computer thinks of a number, 
while you try to guess it. The 



computer then tells you how 
close you are. 

By adding some graphic em- 
bellishments to this premise, we 
have a game that I call U-boat. 
The U-boat is hidden, and the 




/ SWITCH K \ 

^ zero y 


NO 




>v ? / 




IZ90 YES 




SET SWITCH K 




TO "I" 








/WARNING \ 


/ U-BOAT MOVING 




\ AWAY. 




N. WAR 


ING / 











FLASH 

POSITION OF 

BOAT 2) U-BOAT AT 

TACKING 31TOR- 

PEDO RUNNING 




A 



YOU ARE 
DISABLED- 
U-BOAT ESCAPES 



I 



Fig. 1. Flowchart. 



player has to guess where it is. 
This idea can be developed in 
several ways. We can divide the 
ocean into squares and hide the 
U-boat in one of them. If the 
player guesses the wrong 
square, the computer tells him 
whether he is high or low. By 
varying the number of squares, 
the player can change the diffi- 
culty. 

Using the Game Coordinates 

But this approach is a little 
too simple. Instead, let's use 
coordinates, a set of numbers 
used to specify the location of a 
point on a grid. Coordinates are 
pairs of numbers, one represent- 
ing the steps away from our 
starting point horizontally and 
the other representing a number 
of vertical steps down from the 
horizontal axis. 

The set instruction uses this 
approach. The top-left corner of 
the screen is 0,0. If you instruct 
SET(10,1), you go ten steps to 
the right and one step down. 

.So far, the player must guess 
two numbers. But a U-boat isn't 
a surface craft, and you can't ex- 
pect the sub to remain on the 
surface. So I'm going to add the 
third dimension of depth. 

While I'm at it, I'm going to 
make a change in the language 
of the rules. Instead of merely 
guessing some numbers, the 
player is going to be dropping 
depth charges. 

To give the player some help 
and guide him toward his prey, 
I'm going to let the on-board 
sonar indicate the relative direc- 
tion of the U-boat from the loca- 
tion of the depth charge drop. 
The computer will show with ar- 
rows whether to increase (right) 
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or decrease (left) the east-west 
coordinate and, also, whether to 
increase (down) or decrease (up) 
the north-south coordinate. 

The computer also verbally 
advises the player whether to in- 
crease the depth setting on his 
next drop (DOWN) or whether to 
decrease it (UP). 

The computer therefore asks 
for three coordinates (east-west, 
north-south and depth) and ac- 
cepts these values. It then com- 
pares these values with the 
values the player has picked for 
the location of the imaginary 
U-boat. If they match, the player 
has successfully attacked and 
destroyed a sub (i.e., guessed 
three numbers correctly). 

Varying the Grid 

Except for the screen usage, 
this is still a simple guessing 
game. You can vary the degree 
of difficulty by varying the size 
of the grid. 

The set and reset instructions 
can use 128 horizontal positions 
and 48 vertical positions. Thus, 
the largest grid can be 5,969 
squares, while the smallest is 
one by one, or one square. To 
keep it simple, let's say that the 
U-boat remains at a depth be- 
tween 1 and 15, and that the 
player can't change this range. 

After the player enters his 
guess, the computer responds 
by flashing the location of the 
depth charge on the screen and 
by indicating the necessary cor- 
rections required. We don't want 
an unending game, so after nine 
unsuccessful attacks let's 
change the strategy and move 
the U-boat one step horizontally 
and one step vertically. This will 
add some spice. 

The player continues attack- 
ing (up to 25 times) or until the 
U-boat is reaching the border of 
our ocean. If the target has not 
been found by now, the comput- 
er wins. It indicates whether the 
player has won or lost, shows 
the position of the U-boat and 
the number of depth-charges 
used. The player can now 
choose to either play another 
game or to END. 

The Flowchart 

You still are not ready to write 
instructions. The flowchart 
comes first. A flowchart is like a 



road map, and if you follow this 
map faithfully, you won't get 
lost. 

I don't know how much mem- 
ory you have — I assume 16K. If 
you have 4K, you can still write 
the suggested program and 
leave out part 1 and the remarks. 

Break your program down in- 
to two parts. Part 1 is just infor- 
mation, while part 2 is the actual 
game. Part 1 offers some his- 
tory, some instructions of how 
to play the game, and an exam- 
ple. 

Fig. 1 is the main chart. Fig. 2 
is a set of instructions which 
have to be repeated several 
times. It's a delay subroutine 
that flashes the word SPACE, 
while the player is waiting. 
SPACE continues flashing until 
IN KEYS detects a keystroke. It is 
numbered higher than the body 
of the program, so that it is 
callable. (See Radio Shack's Ju- 
ly, 1979, Newsletter.) 

After a start symbol and a title 
frame, the next screen symbol 
indicates 15 lines of history. It is 
actually not 15 lines, since I re- 
serve the top line for the heading 
U-boat on all frames, and I also 
reserve the last line to tell the 
player to press the space bar 
when he is ready. This instruc- 
tion delay is provided by our 
subroutine. 

There follows some instruc- 
tions to the player, the subrou- 
tine, and two screens that il- 
lustrate the grid, symbols, and 
language the computer will use. 

Again, I use the delay subrou- 
tine. 

The Game 

I now start part 2, the actual 



& 



FILL 

960 TO I025 

WITH PERIOOS 



1670 



/ "PR 
\ Wh 



PRINT 

"PRESS 

\ WHEN READY" 
DELAY 




Fig. 2. Subroutine. 



game. The circle with the letter 
A in it is a connector, and is used 
so that the logic lines do not 
have to cross each other. A 
starts with a query to enter the 
ocean limits. 

The next symbol, a keyboard, 
indicates data entry. I accept 
the numbers for the limits, and 
write into the symbol the letters 
A and B. These are variables. 

A good programmer will 
check entered data for validity, 
and I do this in the next symbol, 
the diamond. I check for a num- 
ber between 1 and 127, and for 
the other number between 1 and 
47. If there was an error, I go 
back to connector A. 

If the entered limits are OK, I 




Fig. 3. Sample U-boat Grid. 



now have some work to do. The 
square box indicates my calcu- 
lations. I first adjust the width 
and length of the screen to the 
desired ocean area. If the player 
chooses the east-west limit to 
be 64, for instance, this be- 
comes the extreme right number 
of the screen. Position 32 is in 
the middle and so forth. 

I let the TRS-80 pick the three 
coordinates of our imaginary 
U-boat: east-west, north-south 
and depth. 

At connector B I ask for the 
three target coordinates, and 
the player makes his first guess. 
The keyboard symbol accepts 
the three values, variables H, I 
and J and these are edited in the 
next diamond. They have to fit 
into the pre-determined area. If 
the data are OK, I increment the 
attack counter. 

The location of the depth- 
charge shows on the screen, 
flashing on and off (SET and RE- 
SET). 

The next diamond determines 
whether we scored a hit or a 
miss. The U-boat is sunk if hit 
and that is indicated. The next 
symbol shows where the U-boat 
was on the screen, its coor- 
dinates, and the number of 
depth charges expended. 

The game is over, and the 
computer asks whether another 
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INVADERS 

FROM 

SPACE 

by Carl Miller 



UVMEIt 



X X X X X X X 

I I I I I I I 

* * # # # # 

H X X X X 

n n nnnn 



A BlfllflnRlE-iira 



BKSKD I 

HUMUS 3 

NUMB 3 

MSSUFT 1 



A NEW ATTACK IS LAUNCHED 

Just when it seemed to be all over, Acorn 
introduces a new and faster machine language 
version of this classic space game. In the 
game, the aliens are dropping bombs, moving 
from side to side, and trying to overrun your 
bases. You try to hold them off by shooting at 
them and scoring with each hit. 
In INVADERS FROM SPACE you choose the 
game speed, the enemy bomb frequency and 
accuracy, the number of shots on the screen, 
and the number of your bases. These choices 
produce a weight scoring factor, and make it 
fun for all ages. 

Move your base and fire at the invaders— both 
at the same time— which you can not do in most 
similar games. Full sound effects add. 
excitement to the incredible speed and action 
Of INVADERS FROM SPACE. 

Acorn produces many game programs for the TRS-80*. 
These include PIGSKIN, the one-or-two player football 
strategy game; PINBALL a graphic arcade game; and 
GAMMON CHALLENGER, the popular backgammon 
program. Each is available at only $14.95 on tape and 
$20.95 on disk for a 1 6K Level II TRS-80*. Ask for these and 
other quality programs at your local computer store. 

TRS-80 is a trademark of Tandy Corp. 




DEALER INQUIRIES INVITED 



Acorn 

Software Products, Inc. 



634 North Carolina Avenue, S.E., Washington, D.C. 20003 



Program Listing. 



120 ' THE FOLLOWING IS A LIST OF THE VARIABLES USED : 

130 ' A = EAST-WEST LIMIT OF AREA 

140 ' B = NORTH-SOUTH LIMIT OF AREA 

150 ' C = 127/EAST-WEST LIMIT 

160 ' D = 47/NORTH-SOUTH LIMIT 

17 ' E = EAST-WEST COORDINATE OF U-BOAT 

180 ' F = NORTH-SOUTH COORDINATE OF U-BOAT 

190 ' G = DEPTH OF U-BOAT (1-15) 

200 ' H = EAST-WEST COORDINATE OF DEPTH-CHARGE 

210 ' I = NORTH-SOUTH COORDINATE OF DEPTH-CHARGE 

220 ' J = DEPTH-SETTING OF DEPTH-CHARGE 

230 ' K = SWITCH, 1ST TIME IS ZERO 

240 ' L, M, 0, P = WORK VARIABLES 

250 ' N = ATTACK COUNTER, CHGE STRATEGY AT 25. 

260 ' T = FOR TIMING LOOPS 

27 ' X = HORIZONTAL SCREEN COORDINATE 

280 ' Y = VERTICAL SCREEN COORDINATE 

290 ' SS AND SS$ ARE USED IN THE SUBROUTINE. 

300 ' 

310 CLS:CLEAR250:PRINT CHR$ (23) : PRINT@398 , "U -BO 

A T" 
320 FOR T=l TO 700:NEXT T:CLS 
330 PRINT@20,"U - B O A T"; 
340 PRINT@64, "THERE WERE TIMES DURING THE WORLD WARS, W 

HEN THIS WORD CAUSED" 
350 PRINT"TERROR AMONG THE SEAMEN OF THE ALLIES. IT WAS 
DURING THE BATTLE" 

36 PRINT"OF THE ATLANTIC IN W.W.2 THAT THE U-BOATS WER 

E FINALLY DEFEA-" 

37 PRINT"TED BY HUNTER-KILLER GROUPS, AIRCRAFT AND IMP 

ROVED SONAR AND" 

3 80 PRINT"RADAR DEVICES. THE HUNTER-KILLER TEAMS CONSIS 

TED OF SMALL AIR-" 
390 PRINT"CRAFT CARRIERS, DESTROYERS AND/OR CORVETTES. 

ONCE A U-BOAT'S" 
400 PRINT'POSITION WAS ESTIMATED, IT OFTEN DID NOT TAKE 

LONG FOR THE HUN-" 
410 PRINT"TER OF THE TEAM TO PINPOINT THE POSITION OF T 

HE U-BOAT FOR THE" 
420 PRINT"KILLER PARTNER. THE U-BOATS TRIED TO HIDE UND 

ER DIFFERENT DEN-" 
430 PRINT"SITY LAYERS OF THE SEAWATER, WHICH DEFLECTED 

THE SONAR IMPUL-" 
440 PRINT"SES AND BY REMAINING IMMOBILE AND SILENT. THE 

LACK OF OXYGEN" 
450 PRINT"AND EXCESS OF CO-2 HOWEVER FORCED THE U-BOAT 

TO EVENTUALLY" 
460 PRINT"SURFACE AND SOMETIMES TO COUNTERATTACK TO SAV 

E ITSELF." 
470 GOSUB 1640 

4 80 CLS 

4 9.0 PRINT@20,"U - B A T "; 

500 PRINT@70,"THIS IS HOW WE PLAY THIS GAME :" 

510 PRINT"YOU ARE THE CAPTAIN OF A HUNTER-KILLER DESTRO 

YER UNDER ORDERS" 
520 PRINT"TO PATROL A CERTAIN AREA OF THE OCEAN. THE AR 

EA IS DIVIDED" 
530 PRINT"INTO GRID-SQUARES. (YOU DECIDE THE NUMBER)" 
540 PRINT"THE EAST-WEST LIMIT MAY BE BETWEEN 1 AND 127 

550 PRINT@395,"AND NORTH-SOUTH BETWEEN 1 AND 47 " 

560 PRINT" IF THE E-W LIMIT IS 4 AND THE N-S LIMIT IS 3 

THEN THERE ARE 12" 
570 PRINT"SQUARES TO SEARCH. THE U-BOAT COULD BE IN ANY 

OF THESE AT A" 
580 PRINT"DEPTH BETWEEN 1 AND 15 (EACH UNIT = 20 METERS 

)." 
590 PRINT" IF YOU DROP A DEPTH-CHARGE PATTERN INTO THE R 

IGHT SQUARE SET" 
600 PRINT"FOR THE RIGHT DEPTH, YOU HAVE DESTROYED THE U 

-BOAT." 
610 PRINT@832," THE FOLLOWING SCREEN WILL SHOW A GRID P 

ATTERN 6X5" 
620 GOSUB 1640 
6 30 CLS 
640 PRINT@195,"1,1 

5.1 6,1"; 
650 PRINT@323,"1,2 

5.2 6,2"; 
660 PRINT@451,"1,3 

5.3 6,3"; 
670 PRINT@579,"1,4 

5.4 6,4"; 
680 PRINT@707,"1,5 

5.5 6,5"; 

6 90 FOR L=0 TO 121 

700 SET(L,7) :SET(L,13) :SET(L,19) :SET(L,25) :SET(L,31) : SE 

T(L,37) :NEXT L 
710 FOR L=7 TO 37 
720 SET(0,L) :SET(20,L) :SET(40,L) :SET(60,L) :SET(80,L) : SE 

T(100,L) :SET(120,L) 
730 SET(1,L) :SET(21,L) :SET(41,L) :SET(61,L) :SET(81,L) : SE 

T(101,L) :SET(121,L) :NEXT L 
740 FOR L=83 TO 98 :SET(L,29) :NEXT L:SET(90 ,27 ) :SET(90 , 2 

8) :SET(91,28) 

7 50 PRINT@844,"THE U-BOAT SHOWN HERE IS IN GRID 5,4."; 
760 GOSUB 1640 

770 CLS 

780 PRINT@20,"U -BOA T"; 

7 90 PRINT@64,"THE SCREEN WILL SHOW THE DEPTH-CHARGE PAT 



2,1 


3,1 


4,1 


2,2 


3,2 


4,2 


2,3 


3,3 


4,3 


2,4 


3,4 


4,4 


2,5 


3,5 


4,5 
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game is desired. If the answer is 
yes, then the computer goes to 
the start of part 1, via connector 
A. If the answer is no it shows 
THE END and stays in an unend- 
ing loop. 

You Miss 

That was if the player scored. 
If he missed, we calculate the 
direction of the U-boat in rela- 
tion to the depth-charge and in- 
dicate with arrows and/or the 
words UP or DOWN how the 
player should adjust his aim. 

The next diamond asks if this 
is attack nine or higher. If it was 
not, the player makes another 
run, via B. Otherwise the U-boat 
moves a little at a time. To be 
fair, the computer informs the 
player. 

Since I want to give this warn- 
ing only once, I employ a switch 
K, which is zero the first time 
and one from then on. If the 
switch is zero, I make it one and 
show the warning message. 

Before the computer can 
move the U-boat, however, it has 
to check that the new location is 
not outside the ocean area. If 
the location is valid, the com- 
puter next checks if this is the 
26th unsuccessful attack. If not, 
the computer now moves the 
U-boat by adding one to its coor- 
dinates. This moves it one step 
to the right and one step down. 

Then the computer, via con- 
nector B, lets the player make 
another run. 

If the earlier check has in- 
dicated that the U-boat would 
move outside the limits, or that 
the player has performed more 
than 25 unsuccessful attacks, 
the computer gives the U-boat 
captain a break. As you see on 
the flowchart, the position of the 
U-boat is flashed on the screen, 
and "U-boat attacking" and 
"Torpedo running." It then in- 
forms the player that he is dis- 
abled and that the U-boat has 
escaped. Via connector C the 
screen shows the statistics. 

Coding the Game 

When starting the actual pro- 
gram coding, I use the program 
pad and the screen layout 
forms, and also some scratch 
paper. On a separate sheet 
marked variables, I write those 
used and their meaning. I enter 



the list of variables in the pro- 
gram as REMARK statements 
after I'm done. 

If X-programs later, you want 
to make some improvements in 
this program, the list of vari- 
ables will be invaluable. So 
leave plenty of space for this, 
and start with line number 100 or 
so for the Program Listing. 

Line 310 sets the screen up 
for wide letters, CHR$(23), and 
prints U-boat. CLS sets the 
screen to normal width and 
builds the history screen, lines 
330-460. 

Line 470 links to the subrou- 
tine, 1640. (Before renumbering, 
this was 10,000.) After CLS and 
the instructions, lines 490-610 
are printed and linked to the 
subroutine in line 620. 

For an example, let's use a 
grid with six squares across the 
five squares down. This is a total 
ocean area of 30 squares (Fig. 4). 
Name these squares (1,1), (1,2), 
(1,3) and so on. (See lines 640- ' 
680.) Build the framework for 
these squares with FOR-NEXT 
loops in lines 690-730, using 
SET instructions. Add a U-boat 
in one of the squares, say 5,4, 
and so state in line 750. Draw 
the U-boat in line 740. 

Line 760 links to the subrou- 
tine again. Now, you are ready to 
print your last informational 
frame, lines 790-880. Use ar- 
rows; see CHR$ 91, 92, 93, 94. 

Part Two 

First, set up the area and ask 
for the limits. Edit the entered 
values in lines 920 and 950. Note 
that line 930 contains a RAN- 
DOM statement, so that the 
built-in random number genera- 
tor will not come up with the 
same number consecutively.. 

Now enter A for east-west, B 
for north-south. In line 970, tell 
the player how many squares he 
has to search. This number is L. 

Calculating the screen coor- 
dinates is simple, if the player 
has chosen the full screen grid. 
Any entered east-west number 
corresponds directly to the 
screen positions. 

However, if the player 
chooses an east-west limit of 64, 
then any entered east-west 
number occupies two logical 
screen positions. The same is 
true for the north-south coor- 




IF YOU'R€ TIR€D OF: 

* Consistent Disk 1/0 €-rrors 

* Ruined Disks 

* " Silent Death" Hangups 

* Library Commands That 
Don't Work 

VOURC R€fiDV FOR 
DOSPLUS! 

Faster And More efficient Than: 

' • *TRSDOS 
* N6LUDOS + 
*VTOS 

DOSPLUS Uses less memory and still offers all the com- 
mands of the other major operating systems, AND some 
innovative and useful features of our own design. 
DOSPLUS is nouj available for the TRS - 80*Model I, II, and III 

UBRfifiV OF COMMANDS: 



flPP€ND 


ATTRIB 


AUTO 


BASIC2 


BOOT 


BUILD 


CLCAR 


CLOCK 


COPY 


CR€RT€ 


DATC 


DC-BUG 


Device 


DIR 


DO 


DUMP 


FR6€ 


KILL 


UB 


UST 


LOAD 


PAUSC- 


PROT 


R€NAM€ 


RS232 


TIM€ 


TRAC6 


VCRIFV 






BUILT-IN F€ATUA€S: 








AUTOMATIC LOWCRCASC 








SCR6C-N PRINT6R 








KEYBOARD 


DC-BOUNCC 








UTiUTICS: 











COPY 1 TRANSF€R R€STOR6 (D6AD AieS) 

PURGe DISK DUMP/CMD CL€ARAL€ 

FORMS R€P€ATING K6YBOARD FORMAT BACKUP 



Please Contact: 
Micro Systems Software Inc. 
5846 Funston Street 
Hollywood, Florida 33023 
1 (305) 983-3390 



Coming Soon: Dosplus 4.0 for 1 - Megabyte TRS - 80s* 

*TAS - 80 is a trademark of Tandy Corp 
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Stop fiddling with your 
cassette cables! install our 
TBEEP and forget 
it forever! 




TBEEP™ 1 

For Level II and Disk Users — A self-contained audio 
alert beeper with a pager-like tone. Plugs in-line with 
"AUX" cable from your TRS-80 (Requires 9V Battery). 

$ 19.95 



TBEEP™ 2 

A TBEEP kit you install 
your TRS-80 keyboard. 



inside 




Completely assembled and tested. 

Attach to keyboard's PC board with double-sided 
foam tape (included) and solder three wires to easily 
located points on keyboard unit. Installs in minutes. 

Uses power from your TRS-80. No battery required. 

DEALERS! Install when modifying your customer's 
TRS-80, and include TBEEP's simple four word 
BASIC command in your off the shelf Software. 

TBEEP 2 Kit (with complete instructions) $ 12.95 



Send Check or Money Order to: 
Phone Orders: 



(714)494-2869 
Dealer Inquiries Invited 
UPS/COD -Add $3.00 
S^ SEND FOR FULL LINE CATALOG 



WEB ASSOCIATES ^27 
New Mall Order Address 

P.O. Box 96QH 

Corona Del Mar CA 92625 

(Calif. Residents add 6% tax) 



92625 






Features: 

• SERIAL PRINTER PORT 

• HIGH-SPEED TAPE SYSTEM 

• 32K MEMORY 

• KEYBOARD DEBOUNCE 

• MOUNTS IN KEYBOARD 

• HIGH GRADE PCB 

• DOCUMENTATION 

price $49.95 

Add $4. for credit card orders. 
Add S5. for C.O.D. orders 

DALTEX SYSTEMS - 

5308 PRINCE 
LAKE DALLAS.TEXAS 75065 
817-497-2910 



TERNS AND HOW YOU" 
800 PRINT" SHOULD ADJUST YOUR AIM AND DEPTH SETTING :' 
810 PRINT@212,CHR$(94) ;" = INCREASE E-W COORDINATE" 
820 PRINT@276,CHR$(93) ;" = DECREASE E-W" 
830 PRINT@340,CHR$(91) ;" = DECREASE N-S" 
840 PRINT@404,CHR$(92) ;" = INCREASE N-S" 
85 PRINT@468,"UP = DECREASE DEPTH" 
860 PRINT@53 0,"DOWN = INCREASE DEPTH" 
870 PRINT@706,"Y OUR ORDERS ARE:" 

ND AND DESTROY TH 



900 

910 



PRINT@770,"F I 

U-BOAT !" 
GOSUB 1640 

CLS:N=0:K=0 

PRINTS10, "ENTER EAST-WEST LIMIT ( 1 TO 127 ) 



NPUT A 
920 IF A<1 OR A>127 THEN PRINTS 50, "ERROR" ; :GOTO910 
930 CLS : RANDOM 
940 PRINTS 10, "ENTER NORTH-SOUTH LIMIT ( 1 TO 47 ) 

: INPUT B 
950 IF B<1 OR B>47 THENPRINT@ 50, "ERROR" ; :GOTO910 
960 CLS 

970 L=A*B:PRINT@0,"YOU HAVE" ;L; "SQUARES TO SEARCH."; 
980 C=INT(127/A) :D=INT(47/B) 
990 E=RND(A) 
1000 F=RND(B) 
1010 G = RND(15) 
1020 FOR L=l TO 800: NEXT 

1030 PRINT@ 0, "ENTER TARGET VALUES (E-W, N-S, DEPTH) 
1040 PRINTS37," 
1050 PRINTS37,""; 
1060 INPUT H,I,J 
107 PRINTS4 9," 

1080 IF H<1 OR H>A THEN PRINTS50, "ERROR" ;: GOTO 1030 
1090 IF Kl OR I>B THEN PRINTS50 , "ERROR" ;: GOTO 1030 
1100 IF J<1 OR J>15 THEN PRINTS50, "ERROR" ;: GOTO 1030 
1110 N=N+1:X=H*C:Y=I*D:PRINT@50," "; 
1120 X=X-INT(C/2) :Y=Y-INT(D/2) 
1130 FOR L=l TO 6 
1140 RESET(X,Y) 
1150 FOR M=l TO 40:NEXT M 
1160 SET(X,Y) 
117 FOR M=l TO 40: NEXT M 
1180 NEXT L 

1190 IF H=E AND I=F AND J=G THEN 1580 
1200 PRINTS 49,""; 
1210 IF H<E THENPRINT CHR$ (94) ;CHR$ (94) ; CHR$ (94) ; " "; 

OTO 1230 
1220 IF H>E THENPRINT CHR$ ( 93 ) ;CHR$ (93) ;CHR$ (93) ; " "; 
1230 IF KF THENPRINT CHR$ (92 ) ;CHR$ (92) ;CHR$ (92) ; " "; 

OTO 1250 
1240 IF I>F THENPRINT CHR$ (91 ) ; CHR$ (91 ) ;CHR$ (91 ) ; " "; 
1250 IF J < G THENPRINT"DOWN";:GOTO1270 
1260 IF J > G THENPRINT"UP " ; 
1270 IF N < 9 THEN1030 
1280 IF K <> THEN1360 
1290 K=l 
1300 FOR L=l TO 8 



dinates. Calculate these modi- 
fiers in line 980 and keep them in 
C and D. 

Lines 990-1010 generate the 
U-boat's position. Keep secret 
the east-west coordinate in E, 
the north-south coordinate in F 
and the depth in G. 

The player now gets a shot at 
the U-boat. The computer tells 
him to enter the target values. 
Before he does this, a waiting 
loop is executed in line 1020, to 
let him know that he has L 
squares to search. 

The three entered coordi- 
nates go into H, I and J (1030- 
1060) and are checked for errors. 

What is this check? The play- 
er cannot accept any coordinate 
less than 1 or larger than the 
chosen limits. 

Add one to the number of at- 
tacks (counter N). To show the 
location of this depth-charge on 
the screen, lines 1110 and 1120 
must calculate it, while lines 



1130-1180 do the flashing. 

An Example 

Here's an example. Assume 
the player answered the area 
limit question with two east- 
west and two north-south 
squares. Thus, A = 2 and B = 2. 

Looking at line 980, C will be 
63 (127 divided by 2), and D will 
be 23 (47 divided by 2). If the 
player entered the coordinates 
1,1(H = 1,l = 1),Xwillbe1times 
63 (H times C). Y will be 1 times 
23 (I times D) lines 1110. 

In the next line 1120 these 
values are adjusted for the mid- 
dle of their areas. X equals 63 
minus 31 (63 divided by 2), which 
is 32. Y equals 23 minus 11 (23 
divided by 2), which is 12, so the 
instruction is SET(32,12), and if 
you look at the screen layout 
you will see that this point is in 
the middle of square 1 ,1 , the top- 
left square. 

Back to our flowchart and pro- 
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1310 


PRINT@960,"W A R N I N G 1 U-BOAT IS MOVING AWAY 
. WARN IN G "} 




1320 


FOR M=1TO150 : NEXT M 




1330 


PRINT9960," 




1340 


FOR M=1TO30 : NEXT M 




1350 


NEXT L 




1360 


IF (E+1>A) + (F+1>B) THEN1390 




1370 


IF N > 25 THEN1390 




1380 


E=E+l:F=F+l:GOTO 1030 




1390 


P=E*C:0=F*D:P=P-INT(C/2) :0=0-INT(D/2) 




1400 


FOR L=l TO 10 




1410 


PRINT@960,"W ARNING1U-BOAT IS A 
TTACKING"; 




1420 


PRI NT @0, "SONAR REPORTS : TORPEDO RUN 
N I N G 1 "; 




1430 


SET(P,0) 




1440 


FOR M=l TO 100: NEXT M 




1450 


PRINT@960," $ 




1460 


PRINT80," 




1470 


RESET(P,0) 




1480 


FOR M=l TO 30: NEXT M 




1490 


NEXT L 




1500 


PRINT@ 0,"YOU ARE DISABLED BY ENEMY TORPEDO, U-BO 
AT ESCAPES."; 




1510 


FOR L=l TO 2000:NEXT L 




1520 


PRINT@960,"THE U-BOAT WAS AT" jE; "-" jF; "-" ;G; " " ; 
N; "DEPTH-CHARGES USED"; 




1530 


PRINT@ 0,"DO YOU WANT TO PLAY AGAIN (YES / NO) 




1540 


INPUT AS 


* 


1550 


IF LEFTS(AS,1)="Y" THEN 900 




1560 


CLS: PRINT CHR$(23) 




1570 


PRINT§ 524, "T HE EN D";:GOTO 1570 




1580 


PRINT? 0,"YOU SUNK THE U-BOA 
T I "; 
FOR L=l TO 1000:NEXT L 




1590 




1600 


PRINT@0," 




1610 


PRINT@960," 




1620 


GOTO 1520 




1630 


END 




1640 


1 SUBROUTINE TO DISPLAY MESSAGE AND TO WAIT UNTIL 




1650 


1 THE SPACE BAR IS DEPRESSED 




1660 


PRINT@960,STRING$(63,".") ; 




1670 


PRINT@980, "PRESS WHEN READY."; 




1680 


FOR SS=1 TO 30:SS$=INKEY$:IF SS$<>"" THEN 1720ELSE 
NEXT SS 




1690 


PRINT@986,"' SPACE' "; 




1700 


FOR SS=1 TO 30:SS$=INKEY$:IF SS$<>"" THEN 1720ELSE 
NEXT SS 




1710 


GOTO 167 




1720 


SS=99:NEXT SS:RETURN 



gram. Check for a hit in line 1 190 
by comparing the coordinates of 
the U-boat with the entered 
ones. If it is a hit, line 1580, in- 
forms the player that he has de- 
stroyed a U-boat. 

The coordinates and number 
of depth-charges used are 
shown in line 1520. Now ask the 
player if he wants to play again, 
and if the response starts with a 
Y (lines 1530-1550), the com- 
puter goes where the connector 
A orders it, to line 900. If the re- 
sponse is N, we set the screen 
for wide letters, print THE END 
and enter an endless loop (lines 
1560-1570). This can be re- 
placed with a timing loop and an 
End statement. 

If the player misses, the com- 
puter must show where the 
U-boat is in relation to the depth- 
charge. Start at line 1200, if the 
entered east-west coordinate is 
smaller than the U-boat's, then 
the U-boat is to the right on the 



screen. The computer prints ar- 
rows pointing to the right (line 
1210). 

If the entered north-south 
coordinate is larger than the 
U-boat's, the U-boat is higher up 
on the screen and the computer 
points that way with up-arrows 
(line 1240). 

Next, check the attack count- 
er at line 1270; if the number is 
less than nine, go to 1030 via B, 
and let the player make another 
attack. If it is nine or larger, 
move the U-boat. 

Line 1280 controls switch K. 
This is set to zero in line 900. 
After nine attacks set it to 1, 
print the warning message 
"U-boat is moving away" and 
flash it (lines 1300-1350). If 
switch K were 1, you bypass all 
this and check whether you can 
move the U-boat (line 1360). 

If you can move it, you first 
check the attack counter N 
again, in line 1370, and if this 




COMPUTER 
PIRATES 

.OflTfl 
THIEVES 

ARE HERE... 

Don't let computer pirates: DIVINE your DATA 

FILCHE your FILES 
PERUSE your PROGRAMS 

Protect them all with CRYPTEXT, the hardware 
encryption module that brings ultra-high level 
security to the small computer user. Once 
encrypted, your files can be stored or trans- 
mitted in strictest privacy. A single CRYPTEXT 
unit will differentially control the medical, 
legal or financial records, mailing lists, and 
design data for an entire firm. 
Breaking CRYPTEXT encrypted data is like un- 
scrambling an egg. We. don't say its impossible 
but we have 3 oz. of fine gold waiting for the 
first person who succeeds in breaking our test 
message . 
SECURITY SYSTEMS FOR USE WITH : 

NORTHSTAR 



TRS-80 




APPLE II 



master charge 



SUPERBRAIN 



i 



R O. Boa 428 
Northgate Sta. 
SMllto, WA M125 



CORPORATION 
(20«) 



MULLEN Computer Products 



*«TRS 



80 






S159. Assm/Tosted 




8 reed relay OUTPUTS 
8 opto-isolated - INPUTS 
Selectable port address 



Power supply 

Assembled cable & connector: 



Use your TRS-80, and our M-80 1 
energy savings devices at home e 
free application notes today. 



Dntrol box to program control 
in your business. Send for o 




MULLEN COMPUTER PRODUCTS. BOX 62 14. HAYWARD, CA 94544 

OR PHONE (415) 783-2866. VISA/MASTERCHARGE ACCEPTED. 
INCLUDE $1.50 FOR SHIPPING Er HANDLING. CALIFORNIA RESIDENTS ADD TAX 
^285 

Order Direct or Contact your Local Computer Store 
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counter is larger than 25, the 
U-boat wins. 

If the counter N is not larger 
than 25, add 1 to the U-boat's 
coordinates (east-west and 
north-south) and let the player 
have another run at 1030, via B. 

The U-boat Wins 

Looking at the flowchart, you 
come to line 1390 where the 
U-boat wins. The computer 
flashes the U-boat's position, 
calculated in line 1390. (Com- 
pare this line with lines 1 1 10 and 
1120 for the depth charge.) 



Also, print U-boat attacking in 
line 1410 and Torpedo running in 
line 1420. Variables P and O will 
have the U-boat's coordinates 
and these are flashed for awhile 
(1400-1490). Line 1500 an- 
nounces that the player is dis- 
abled, and the U-boat escapes. 
This stays on the screen while 
the timing loop at 1510 runs its 
course; then, you go to con- 
nector C on the flowchart. 

You have reached the end of 
the coding, but some addresses 
may have to be filled in yet. Cer- 
tain instructions can only be 



completed after the program is 
written. You have to leave these 
addresses blank until you can 
fill them in at the end of your 
coding. 

As you program, make a pen- 
cil X next to the line where you 
have to do some filling in. This is 
part of desk checking. Slowly 
read through your code, and 
look for syntax errors, for miss- 
ing quotes, commas and peri- 
ods. 

If, while writing the instruc- 
tions, you deleted some lines, 
check for statements that go to 



these nonexistent lines. 

Now is the time to enter the 
code for the list of variables we 
have been keeping. In this pro- 
gram they are lines 100-300. 

You can renumber the lines if 
you have the program, but this is 
not mandatory. 

Whether you renumber or not, 
now is the time to write the line 
numbers on the flowchart, next 
to the symbol to which they cor- 
respond. Later, if you want to 
make some changes, or explain 
a certain routine, this will help 
you locate the area.B 



BUSS EXTENDER for TRS-80 



TM 



ELCOMPCO Microcomputer Peripherals 
P.O. Box 6133, Albany, CA 94706 



DEALER INQUIRIES INVITED 



^63 

C.O.D. 




Now you can hook up to 
Four Accessories 
to the TRS-80™! 

* with Active Buss Termination 

* Reduces Ringing and Noise 

* Increases Reliability 

$95 available for immediate delivery 

TRS 60™ is q rrodemork of Tandy Corp. 



TIRED OF PLAYING 

GAMES WITH YOUR 

TRS-80*? 



Ready to let your personal computer do some real work for 
you? Then you're ready for MICROCHECK-80, an 
exceptionally useful and usable checking account handler 
for 16K Level II systems. Many products have lots of fancy 
glitter, but leave out essential functions. Not 
MICROCHECK-80! It gets the job done without unnecded 
gimmicks, using a minimum of hardware and human 
effort. The programs lead you step-by-step through each 
operation and supporting documentation is excellent. 

With MICROCHECK-80 your outstanding checks and 
deposits can be kept as current as desired, and month-end 
account balancing is a snap. Cancelled checks are stored on 
cassette, ready to be listed at any time on either video 
display or, if you have one, a line printer. A special feature 
allows each check to be given a code identifying the category 
of expense (e.g. food, medical, contributions, etc.), and the 
codes supplied with the system are easily tailored to 
individual requirements. Cancelled checks can be listed by 
expease category, by month, by any combination of the 
two, or in total. Also, a summary of expease categories is 
provided. Checks are normally maintained in check 
number order, but another special feature permits sorting 
and listing by any field in the cancelled check record; these 
include date, amount, payee, and expease category. 

Why not throw away your checkbook and let 
MICROCHECK-80 do the arithmetic and recordkeeping 
for you? $19. 95 postage paid. Send check or money order, or 
write for detailed information: 



SUMA MICROWARE *™ 
1110 WEST 41st STREET 
LA GRANGE, IL 60525 

*A trademark of Tandy Corporation. 



NIXON'S 

FAVORITE 

TAPES 



\l 



' j£<3*^^L 




BLANK CASSETTES 
PREMIUM GRADE C-20'S 
5 SCREW HOUSINGS 

QQCea.10/$8 a 100/$ 75^ 

w ^^ORDERS UNDER $20 

ADD $2- IN OHIO ADD5-1/2%TAX 



m 



m 



JQHNSQN 

DATA PRODUCTS 

P.O. BOX 17176 -226 
CLEVELAND, OHIO 44117 



* DMT NOON 



Turn your Micro into an 

electronic and security 

controller with our new... 

TRS-80 INTERFACE 




To Order: 

Send $59 .95 

plus $2.05 for 

shipping and 

handling 

Illinois 

Residents 

add 6% tax) 

TRS-80 Soft- 
ware (Specify 
Tape or Disk) 
$10 with 
purchase of 
Micro 
Commander 



SpMnr 90 Day Warranty 

jy 33 Assembled & Tested; 



COMPUTER CONTROLLED - REMOTE CONTROL 

Now an inexpensive and direct carrier current interlace between the 
TSR-80 and the 8SR XI remote control modules. The MICRO 
COMMANDER. X-IO modules and your computer can control your 
lights, appliances. motors. TV. stereo, heaters, alarms, lans. pumps, elc. 

COMPUTER CONTROLLED - SECURITY 
Add a new dimension to your security system. Place your home under 
control ol your computer real time clock while you are on vacation. Add 
an input port to your computer and intelligence looms. Wilhswilches on 
doors or windows your computer can welcome guests or Irighlen intruders. 

EASY TO USE - NO WIRES TO RUN 
Total control of all X 1 modules. Utilize all 256 house and unit code 
combinations. Direct interlace lo AC power line. No command console to 
purchase. No sonic link. Plugs directly into TRS-80 Model I {Level II or 
Disk) cassette jack or any I bit input and I bit output TTL port. 
MANUAL INCLUDES ALL SOFTWARE LISTINGS 
The 1 4K basic 4 in l program does the lollowing: 

Loads machine language driver. 

Simulates command console. 

Provides sequential operation. 

Utilizes real lime clock for control 
7 Complete documentation includes 



& 



source listing. 

INTERFACE TECHNOLOGY ^319 



I.T 



P.O.Box 383, Des Plaines, II 60017 



u&iiTfiS^ phone (312) 297-2265 
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I made the TRS-80* into a serious computer. 
Now I've made the Model II into a spectacular one. 



I'm Irwin Taranto, and I've helped almost a 
thousand businesses get their first computers up 
and running. 

I've done it primarily with the TRS-80, because it's 
a really elegant piece of hardware. Given the right 
programs, it can do substantially the same work as 
the traditional minicomputers that cost four times 
as much. 

I proved it with four on-line, interactive programs 
adapted from the genuine Osborne & Associates 
systems, originally designed for the $30,000 Wang 
computer. Then I added two of my own and made 
them all work on a $4000 TRS-80. 

Now I've done the same thing for the new TRS-80 
Model II. It's an $8000 computer that works twice as 
fast and has four times the memory— up to two 
million characters. 

My new systems are fully documented, and 
because I'm working with a much more powerful 
computer, they're a night-and-day advance over the 
Model I programs. They'll turn your Model II into a 
complete business computer, set up and ready to go. 



When I say set up and ready to go, I mean just 
that. If you're not quite sure on that point, call the 
number below and we'll give you the names of some 
of the people who've already bought all over the 
world. Call them up and hear what they have to say. 

These Model II programs are completely custom- 
tailored, which explains their $249.95 price. Before 
we'll send you a disk, you have to fill out a detailed 
questionnaire that tells us your precise business 
requirements. Then we send you the disk, all the 
instructions you need, and my phone number. If you 
call, we answer all your questions. If your questions 
are tough enough, I'll talk to you personally. 

Because that way I'll make sure that Model II of 
yours turns into a spectacular computer, just like 
I promised. 



I — 



THE TRS-80 MODEL II PROGRAMS 
General Ledger/Cash Journal: handles up to 7000 transactions 
on 500 different user-defined accounts. It keeps track of them by 
month, quarter and year, makes comparisons to the prior year, 
and does departmentalization. 

Accounts Payable/Purchase Order: generates the purchase order 
and posts the item to payables when the goods are received. 
Invoice-linked, it calculates and prints checks and aged ledger 
reports and links fully to the general ledger. 
Accounts Receivable/Invoicing: keeps track of billed and 
unbilled invoices, open and closed items, aging and service charge 
calculation. It prints statements, links to the general ledger, and 
can work within either an invoice-linked or balance-forward 
accounting system. 

Payroll/Job Costing: computes regular, overtime and piecework 
pay, keeps employee files, figures taxes and deductions, prints 
checks, journal, 941-A and W-2 forms, and breaks out individual 
job costs. 



Please send me the custom questionnaires for the following 
$249.95 Model II programs: 

□ General Ledger/Cash Journal 

D Accounts Payable/Purchase Order 

□ Accounts Receivable/Invoicing 

□ Payroll/Job Costing 

U Please send me information on the TRS-80 Model I programs at 
$99.95 each 

Li Please send me information on other Taranto business programs 



Your name . 



Company name_ 



Address. 



City/State/Zip . 



r Taranto 

& ASSOCIATES, INC. 

PO. Box 6073, 4136 Redwood Hwy, San Rafael CA 94903 • (415) 472-2670 



"A trademark of the Tandy Corporation. 
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GAME 



The presidential simulation they play in the White House. 



A Heartbeat Away 



Clinton Morey 

Box 534 

Peerless, MT 59253 



The President of the United 
' States receives a telegram 
from the U.S. Ambassador to 
Panama. Panamanians are riot- 
ing in the streets and throwing 
bombs at American citizens in 
the canal zone. The President's 
advisors are divided on what to 
do. Some suggest taking a hard 
line, condemning Panama and 
ordering U.S. troops into the 
streets. Others urge caution, 
putting the troops on alert, but 
taking no overt action to further 
worsen the situation. What will 
the President do? 

Computer Re-Creations 

Each student in my high 
school goverment class had to 
make that decision, as if he were 
the President. The U.S. -Panama 
crises of 1964 occurred when 
Lyndon Johnson was President 
of the United States. To give my 
students an understanding of 
the types of decisions a Presi- 
dent must make, I designed a 



computer program to recreate 
this minor crises in our nation's 
past. 

The program is not a simula- 
tion but a re-creation of an his- 
torical event, with some allow- 
ance for student interaction. It's 
run on a Level II, 16K. In this his- 
torical re-creation, the computer 
compares the student's re- 
sponses with those made by 
President Johnson, but follows 
closely the true course of events 
regardless of the student's deci- 
sions. This allows the student to 
learn about an historical inci- 
dent in a high interest situation, 
to compare his decisions with 
those of a real President and to 
evaluate the quality of the deci- 
sions made. 

The computer program gives 
information to the President in 
bits and pieces. Messages from 
the American ambassador or 
the senior military officer come 
to the desk of the President (Fig. 
1), requiring him to make some 
kind of decision. Later develop- 
ments often require the Presi- 
dent to alter his decisions as 
new facts are revealed. And, just 
as in real life, the President's 
advisors suggest alternate 
courses of action. 

This bit-by-bit acquisition of 
information is important in help- 



ing the student understand the 
decision making process. We 
could all be great presidents, if 
we had the gift of hindsight. 

Classroom Discussion 

There are no right or wrong 
answers in the course of this 
historical re-creation. Although 
some students make decisions 
that could possibly lead to war, 
the value of this computer pro- 
gram comes from an empathy 
for the tough decisions that a 
President must make. Thus, a 
very important part of the activi- 
ty takes place after each stu- 
dent has gone through the pro- 



gram, in the form of classroom 
discussion. 

The program is not a game- 
but it has proven to be fun for my 
students who have used it. From 
a teacher's standpoint, the val- 
ue of the program is not in the 
level of enjoyment, but in the 
changes that occur in the stu- 
dent. In my classes, I have seen 
significant changes in student's 
perceptions of the Presidency 
after working through this pro- 
gram. 

I believe there is a place in 
computer instruction for histori- 
cal re-creation, not just recre- 
ation. ■ 



DATE: JANUHRV 9, 1964 

TO PRESIDENT HOREY 

HOT: US E*8SSY TO PAW* 



LARGE CROWDS Of PfWHANIAN CITIZENS HAVE GAUGED ALOW THE CAW. 20NE BOUNDRY. SHOUTING. JEERING KD WOKING ROOKS 

AND ANYTHING THAT D« TO HAND 

RIOTING HAS BROKEN OUT IN COLON AN) PANAHA CITV. 

PfNWNIFH STUDENTS M CIVILIANS HW THRO* KIOTO COOTARS AT BUILDINGS W AUTOWILES. 

DKS KITH CAW ZONE LICENSE PLATES HAVE BEEN ATTACKED M) THEIR OCCLWITS PULED OUT M> SAVAGELV SEATEN. 

PANWWAN AUTHORITIES HAVE BEEN OF LITTLE HELP. PAWWIBH POLICE FORCE HAVE STCCO ASIDE PfNAJWIAK NATIONAL GUAJB UNITS 

HAVE RENAIHED IN THEIR BARRACKS 

OWL ZOE POLICE FORCE TOO SHALL (ONLV 89 IB) TO CONTSO. RIOTERS 

REOUEST U. S. HW TROOPS ES CALLED OUT TO FSOTECT OWL 20£ 



Fig. 1. 



Program Listing 



10 REM THE PRESIDENT DECIDES. . .PART 1 

15 DIM D?(14) 

20 CLS:PRINT@460,"THE PRESIDENT DECIDES. .. PARTI" :FORX=1TO80C 
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:NEXTX:CLS: PRINT "YOU ARE ABOUT TO BEGIN A SIMULATION CO 

NCERNING THE TYPES OF" :PRINT"DECISIONS THAT MUST BE MAD 

E BY AMERICAN PRESIDENTS." 
25 GOSUB10000 
30 PRINT"THE SITUATIONS YOU ARE GOING TO FACE ARE REAL. PRE 

SIDENTS IN THE PAST HAVE HAD TO DEAL WITH THESE ISSUE 

S." 
35 GOSUB10000 
40 PRINT"AS YOU STUDY THE EVENTS AND MAKE DECISIONS TRY TO E 

VALUATE":PRINT"NOT ONLY YOUR CHOICES BUT ALSO THOSE OF 

THE PRESIDENT WHO" : PRINT"MADE THE REAL LIFE DECISIONS." 
50 GOSUB10010 

60 INPUT"ENTER YOUR LAST NAME";NS 
70 CLS:PRINT"WELCOME TO THE HALLS OF POWER PRESIDENT ";N$;". 

80 PRINT: PRINT"YOU ARE GOING TO GO THROUGH A TIME OF TESTING 

SIMILIAR TO THAT":PRINT"FACED BY PRESIDENT LYNDON JOHN 

SON IN 1964.":GOSUB10000 

90 PRINT"THE DECISIONS YOU MAKE WILL BE COMPARED TO THE DECI 

SIONS MADE BY PRESIDENT JOHNSON DURING THAT PERIOD." :FO 

RX=1TO1200:NEXTX 

100 PRINT"FOR THE SAKE OF THE ENTIRE COUNTRY, I WISH YOU THE 

BEST OF":PRINT"LUCK IN YOUR IMPORTANT TASK PRESIDENT " 

;N$ 

110 GOSUB10010 

130 CLS: PRINT "DATE: JANUARY 7, 1964 ": PRINT: PRINT 

140 PRINT"PRESIDENT ";N$;" YOU HAVE BEGUN SERVING YOUR NEW T 
ERM AS" :PRINT"PRESIDENT ONLY SIX WEEKS AGO. A MESSAGE 
ARRIVES AT YOUR DESK. " :FORX=1TO1200 :NEXTX 

150 LPRINT"DATE: JANUARY 7, 1964" 

160 LPRINT"TO: PRESIDENT " ;N$ 

170 LPRINT"FROM: U.S. EMBASSY IN PANAMA" 

180 LPRINT" 

190 LPRINT"A GROUP OF AMERICAN HIGH SCHOOL STUDENTS AT BALBO 
A HIGH SCHOOL IN THE PANAMA CANAL ZONE HAVE RAISED THE 
AMERICAN FLAG IN" 

200 LPRINT"FRONT OF THE HIGH SCHOOL BUILDING. THE PEOPLE OF 
PANAMA ARE AWARE OF WHAT THE STUDENTS HAVE DONE . " 

210 LPRINT" 

220 PRINT@896,"READ THE MESSAGE AND PRESS ENTER TO CONTINUE. 

230 AS=INKEY$:IFA$="" THEN 230 

240 CLS: PRINT" ALTHOUGH ON THE SURFACE THIS SEEMS LIKE AN INO 

FFENSIVE ACT,": PRINT "YOU ARE AWARE THAT TROUBLE COULD R 
ESULT. " : FORX=1TO1200 :NEXTX 

241 PRINT"THE FLAG RAISING VIOLATED AN AGREEMENT PRESIDENT K 

ENNEDY HAD":PRINT"MADE WITH PANAMANIAN PRESIDENT ROBERT 
CHIARI IN 1962.":GOSUB10000 

242 PRINT"THE U.S. AND PANAMA HAVE BEEN TRYING TO REACH AN A 

GREEMENT":PRINT"REGARDING CHANGES IN THE 60 YEAR OLD TR 
EATY GOVERNING U.S." 

243 PRINT"CONTROL OVER THE CANAL AND THE SURROUNDING ZONE. 

NO BREAK-" :PRINT"THROUGHS HAD BEEN ACHIEVED IN THOSE TA 
LKS BUT THE TWO" : PRINT"PRESIDENTS HAD AGREED THAT THE F 
LAGS OF THEIR TWO COUNTRIES" 

244 PRINT"WOULD FLY SIDE BY SIDE. " :GOSUB10000 

245 GOSUB10010 

250 PRINT"SINCE THE SUMMER OF 1963 THE CIA HAS BEEN WARNING 
YOU THAT":PRINT"YOU SHOULD EXPECT DIFFICULTIES IN PANAM 
A IN LATE 1963 OR EARLY" : PRINT"1964 ." :GOSUB10000 

260 PRINT"THE CIA HAS SAID THAT FIDEL CASTRO, WORKING CLOSEL 
Y WITH THE": PRINT "PANAMANIAN COMMUNIST PARTY, HAS BEEN 
SENDING GUNS, MONEY AND" : PRINT"AGENTS INTO PANAMA. 

270 PRINT"THE CIA HAS SAID THAT DEMONSTRATIONS WERE LIKELY A 
ND AN" .-PRINT" ATTEMPTED COUP AGAINST THE LEGAL GOVERNMEN 
T WAS POSSIBLE." 

280 GOSUB10000 

290 PRINT"THE CIA ALSO WARNS THAT IF THAT DOES HAPPEN, THE C 
ANAL AND THE" :PRINT"CANAL ZONE WOULD BE SPECIAL TARGETS 
.":GOSUB10000 

300 GOSUB10010 

310 PRINT"JANUARY 9, 1964 ": PRINT: PRINT"PRESIDENT ";N$;". TW 
DAYS HAVE PASSED SINCE THE INCIDENT" :PRINT"AND THINGS 
IN PANAMA HAVE APPEARED STABLE. ": PRINT "TODAY , YOU HAVE 
RECEIVED THIS MESSAGE:" 

315 GOSUB10000 

320 LPRINT"DATE: JANUARY 9, 1964" 

330 LPRINT"TO: PRESIDENT ";NS 

340 LPRINT" 



350 LPRINT "PANAMANIAN STUDENTS HAVE ORGANIZED PROTEST MARCH. 
THEY ENTERED THE CANAL ZONE AND WENT TO BALBOA HIGH S 

CHOOL." 
360 LPRINT"THEY FOUGHT WITH CANAL ZONE POLICE AND AS THEY LE 

FT THE CANAL ZONE, THEY BROKE WINDOWS, BURNED AUTOMOBIL 

ES, AND CAUSED" 
370 LPRINT"EXTENSIVE PROPERTY DAMAGE. SEVERAL STUDENTS AND 

POLICEMEN WERE INJURED." 
380 GOSUB 10020 
390 GOSUB 10010 
400 PRINT"YOU MEET WITH YOUR ADVISORS AND THEY SUGGEST THE U 

.S.":PRINT"TAKE THE FOLLOWING ACTIONS: ": PRINTTAB ( 5) "( 1 ) 
SEND A PROTEST TO THE PANAMANIAN GOVERNMENT. ": PRINTTAB 

(5) "(2) ASK THE GOVERNMENT OF PANAMA TO HELP." 
PRINTTAB(5) " (3) ALERT U.S. ARMY TROOPS STATIONED IN THE 

CANAL ZONE.": PRINTTAB (5) " (4) ORDER U.S. ARMY TROOPS TO 

PROTECT THE CANAL ZONE." 



410 

420 PRINT 



":PRINT"CONSIDER THE SUGGESTIONS OF YOUR ADVISO 

RS. YOU WILL BE ASKED" :PRINT"MAKE A DECISION ON EACH 

NE.":GOSUB10010 
430 PRINT"PRESIDENT " ;N$ ; " : " :PRINTTAB( 5) "WOULD YOU PROTEST W 

HAT HAD HAPPENED TO THE GOVERNMENT OF" :PRINTTAB (5) "PANA 

MA (YES/NO) ":INPUTD$(1) 
440 PRINTTAB(5) "WOULD YOU ASK THE GOVERNMENT OF PANAMA FOR H 

ELP":INPUTD$(2) 
450 PRINTTAB(5) "WOULD YOU ALERT U.S. ARMY TROOPS STATIONED I 

N PANAMA" :INPUTD$ (3) 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





iso-i "-y iso-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
"ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets, 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $56.95 

•ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $56.95 

•SUPER ISOLATOR (ISO-3), similar to ISO-1 A 

except double filtering 8i Suppression .... $85.95 
•ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $96.95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 7.00 
•CKTBRKR/SWITCH/PILOTany model 

(CBS) Add $14.00 

PHONE ORDERS 1-617-655-1532 ■■■ 

IS? Electronic Specialists, Inc. ^ mt 
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171 South Main Street, Natick. Mass. 01760 



Dept.8M 



/TSHORT + 



THE MOST 
POWERFUL 
BASIC 

SHORTHAND 
EVER ! 



from WEB Associates^ 




TRS-80 Keyboard with decals installed 



j>" key substitutes for 



11 "SAVEABLE"KUSTOM keys. Ten 10-characterandone 
64-character. 

41 preprogrammed LV II and DOS statement keys. 

Complete decal set (see picture) included for both LV II 
and DOS systems. 

Includes DEBOUNCE and AUTO REPEAT 

Hold "SHIFT or CLEAR" and press desired key — entire 
statement is typed on screen. 

Includes LOWER CASE DRIVER. 
"SHIFT." 

Less than 1 K bytes machine language, relocatable in hi or 
low memory. 

Features self-entering commands. I.E. CONT; GOTO10; 
KUSTOM. 

Includes comprehensive instruction manual. 

TSHORT + (one cassette includes Level II & single drive 
DOS) $ 19.95 

TSHORT + on formatted diskette (DOS only, requires 2 or 
more drives) $ 24.95 



Send Check or Money Order to: 
Phone Orders: 



(714)494-2869 
Dealer Inquiries Invited 
UPS/COD -Add $3.00 

^ SEND FOR FULL LINE CATALOG 



WEB ASSOCIATES 

New Mail Order Address 

P.O. Box 96QH 

Corona Del Mar CA 92625 

(Calif. Residents add 6% tax 



^27 

92625 



s Reader Service index — see page 194 
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for the TRS-80 from Micro -IN/lega 



CASSETTE CONTROL UNIT 



• Speed up your cassette tape handling • Pinpoint program locations on tape with an auc 

Pie monitor • Gel protection from recording and playback glitches resulting from ground 

loops • Eliminate the tedious plugging and unplugging ol recorder caDies. 

The Micro-Mega Cassette Control Unit does all this and more You get instant manual con 

trot ol the recorder at the Hick of a switch. Want to find the beginning or end ol a program' 

Fhck another switch and you'll hear it AH cables remain plugged m ail ihe time. 

The Micro-Mega Cassette Control Unii does a lot io improve the appearance ol your TRS8\ 

system, too As shown, it's in a Vh " x 5" box which snuggles between the keyboard and 

your recorder There is no need to move the recorder, and all cables come neatly into the 

unit. The Cassette Control Unit Is tailored to the CTR4I recorder, but may be used with mt 

other recorders as well. 




CASSETTE CONTROL UNIT. 

Add $1.00 for postage and handling 



.$37.95 



CPU MONITOR 



recorder volume setting. It you 



Ever lind yoursell with a blank screen wondering what your computer is up io ? The Micro-Mega Monitor can tell you. for example 
• It your CPU is in a loop with noi exit • When a long sort is nearmg completion, or * if a key bounces during keyboard input. The 
CPU Monitor lets you listen lo all CSA VEs and CLOADs and will help you quickly find the 
have an expansion interlace, you will always know whether the realtime dock is on or off 
because you can hear it. 

The Micro-Mega CPU Monitor gives a voice to the 280 microprocessor in your TRSSO by us- 
ing AM radio circuitry to pick up the computational rhythms of the CPU. which are amplified 
and played through a loudspeaker The pickup unit ol the CPU Monitor, shown at left in the 
pholo. goes under your TRSSO keyboard It is connected by a 36" cable to the speaker and 
control unit, which includes an on.'otf volume control and an L ED "power-on " indicator. The 
Monitor is powered by an AC adapter, shown at right in the pholo No batteries are needed and no elec 
TRSSO are required. 

By listening lo the CPU Monitor, you will soon become familiar with the "personalities " of the programs you 
are executing in a normal way (See "Gaming Environment " below ) 




CPU MONITOR 

Add $2.00 for postage and handling 



.$47.95 




.$13.95 



' 



r -, 



THE ORIGINAL GREEN-SCREEN 



The eye pleasing Green-Screen tits over the CRT of your TRS-80 Video Display and gives you 
improved contrast with reduced glare You gel bright, luminous green characters and 
graphics like those featured by very expensive CR T units. 

The Green-Screen is closely matched to the color and texture ol the TRS-80 Video Display 
and improves the overall appearance of your system, it is attached with adhesive strips, 
which do not mar your display unit in any way The Micro-Mega Green-Screen gives improved 
video display visibility for all applications and is espdaiiy effective In creating dramatic, 
high-impact displays for computer games. (See "Gaming Environment" below.) 

THE GREEN-SCREEN 

Add $1.00 for postage and handling 

THE ULTIMATE STAR TREK PACKAGE 

Tired of trivial computer games'' This complete Star Trek package will provide you with endless fascination and challenge, in addi- 
tion to the program cassette, it includes comprehensive instructions, a pad ol "Voyage Log" record sheets, and a free-standing 
"Torpedo and Maneuvering Chart." 

The package is built around the latest version of Lance Mickius ' incomparable Star Trek III, a 
13,000 byte program with a host ol subtle and imaginative leatures. which include numerous 
dynamic and spectacular graphic displays. Star Trek III puts you m command ol the Enterprise 
cruising in a galaxy ol 192 quadrants titled with uncharted hazards, including hostile Klingons. 
pulsars, and black holes You have at your disposal scanners, various weapons and defense 
systems, onboard compuiers.'and a loyal crew. (You will need them all to survive the 
Klingons. I 

Your mission rs to rid the region of Klingons and to locate live inhabitable planets, all within 
300 stardays. before returning to Star Fleet Headquarters where your overall effectiveness as a 
starsnip commander will be scored High scroes are possible only with careful planning and ef- 
fective battle tactics. The "Voyage Log" sheets will guide your strategy, and the "Torpedo and Maneuvering Char/" will give you a 
vital edge in combat. (When you engage three Klingon ships you can't afford to miss.) 

STAR TREK PACKAGEffor Level II, WKonly) $22.95 

Add $1.00 for postage and handling 

CREATE YOUR OWN SPECTACULAR 
GAMING ENVIRONMENT (and save S5.00] 

The Enterprise is in battle trim with deflector shields at lull power. As her captain, you are taking her into combat. The battle- 
stations siren rings in your ears and "CONDI TION RED" flashes on your monitor screen You call for warp drive and key in the coor 
dmaies of the quadrant where your scanners have delected Klingon ships. As you select the warp factor, you hear the reassuring 
clicking of your navagational gear as it activates the warp drive. 

Suddenly, you break out of hyperspace and your monitor displays the chilling sight of three Klingon Battle Cruisers floating on your 
screen' Their evil shapes glow in luminous green againsi the black void of space. Moments later, you haer the characteristic rasp- 
ing sound of Klingon laser weapons, and, as you watch, high-energy beams come knifing toward the Enterprise in succession from 
each ol Ihe Klingon ships. 

You have been hit' You hear the dismal sound of the damage control alarm as "DAMAGE TO WARP DRIVE" and "DAMAGE TO 
PHASE RS" Hash on your screen The Klingons have stopped firing' The Enterprise is crippled, but your best weapon is still intact, 
and it's your turn now' You key m Ihe command lor photon torpedoes As your screen again displays the position of the Klingon 
ships, you select a firing vector Irom your torpedo chart and key it m Now you hear the buzz of your photon torpedo as you see it 
speeding towards Klingon ship It strikes him dead-center! As you watch, the Klingon Battle Cruiser disintegrates, accompanied 
by a satisfying crackling sound 

Does the vbove scenario sound farfetched? Not at all. It's a small sample ol what you will experience with Micro-Mega 's Gaming 
Environment, which consists of • The STAR TREK PACKAGE • The GREEN-SCREEN and The CPU MONITOR. The fast-paced 
and dynamic action reflects the superb Star Trek til program together with the Voyage Log " and "Torpedo Chart ol the Star Trek 
Package All of the unique graphic displays are greatly enhanced by Ihe Green Screen Finally, the uncanny sound effects are pro- 
duced by the CPU Monitor, which faithfully picks up the FOR. NEXT loops and other CPU patterns, which create the distinctive 
siren sounds that accompany the ALERT and DAMAGE messages along with the harsher noies of the weapons salvos. Once 
you've tried it. you won't any longer be satisfied with silent computer games. 

Remember lhai with the Gaming Environment you also get all of the other excellent leatures ol the CPU Monitor and the Green 
Screen for non-gaming applications. You also save S6.00 ott the combined cost ol the individual items. 



GAMING ENVIRONMENT. 

Add $3.50 for postage and handling 



.$79.85 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown for postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax. 
S29 



Micro- Mega • P.O. Box 6265 . Arlington, Va PPPQS 



460 PRINTTAB(5) "WOULD YOU ORDER U.S. ARMY TROOPS TO DEFEND T 

HE CANAL":INPUTD$(4) 
470 GOSUB10000 
480 CLS:FORZ=1TO10:FORX=1TO20:PRINT@465, "URGENT MESSAGE":NEX 

TX : FORY=1TO20 : CLS : NEXTY : NEXTZ 
490 LPRINT"DATE: JANUARY 9, 1964" 
500 LPRINT"TO: PRESIDENT ";N$ 
510 LPRINT"FROM: U.S. EMBASSY TO PANAMA" 
520 GOSUB10020 

530 LPRINT"LARGE CROWDS OF PANAMANIAN CITIZENS HAVE GATHERED 
ALONG THE CANAL ZONE BOUNDRY, SHOUTING, JEERING AND TH 

ROWING ROCKS" 
540 LPRINT"AND ANYTHING THAT CAME TO HAND. " :LPRINT"RIOTING H 

AS BROKEN OUT IN COLON AND PANAMA CITY . " : LPRINT"PANAMAN 

IAN STUDENTS AND CIVILIANS HAVE THROWN MOLOTOV COCKTAIL 

S AT BUILDINGS AND AUTOMOBILES." 
550 LPRINT"CARS WITH CANAL ZONE LICENSE PLATES HAVE BEEN ATT 

ACKED AND THEIR OCCUPANTS PULLED OUT AND SAVAGELY BEATE 

N." 
560 LPRINT"PANAMANIAN AUTHORITIES HAVE BEEN OF LITTLE HELP. 
PANAMANIAN POLICE FORCE HAVE STOOD ASIDE. PANAMANIAN 

NATIONAL GUARD UNITS" :LPRI NT "HAVE REMAINED IN THEIR BAR 

RACKS." 
57 LPRINT"CANAL ZONE POLICE FORCE TOO SMALL (ONLY 80 MEN) T 

CONTROL RIOTERS." 
580 LPRINT"REQUEST U.S. ARMY TROOPS BE CALLED OUT TO PROTECT 

CANAL ZONE." 
590 GOSUB 10020 
600 PRINT"YOUR ADVISORS HAVE SEEN THE MESSAGE. THEY SUGGEST 

:":PRINTTAB(5) " (1) YOU LODGE PROTEST WITH PANAMA GOVERN 

MENT.":PRINTTAB(5) "(2) YOU REQUEST AID FROM THE GOVERNM 

ENT OF PANAMA." 
610 PRINTTAB(5) "(3) YOU ORDER U.S. ARMY TROOPS TO STATION TH 

EMSELVES IN":PRINTTAB(5) "THE CANAL ZONE BUT HOLD THEIR 

FIRE.":PRINTTAB(5) "(4) YOU ORDER U.S. ARMY TROOPS TO PR 

OTECT CANAL ZONE AND" 
620 PRINTTAB(5) "FIRE ON PANAMANIAN IF NECESSARY .": PRINT" 

630 PRINT"DECIDE WHAT YOU WILL DO ON EACH OF THESE REQUESTS. 



641 
6 5t 



700 
705 

710 



731 



GOSUB10010 

PRINT"PRESIDENT ";N$;", PLEASE INDICATE YOUR DECISION ON 
THE FOLLOW-" :PRINT"ING SUGGESTIONS ." :GOSUB10000 

INPUT"LODGE A PROTEST WITH THE PANAMANIAN GOVERNMENT" ;D$ 
(5) :INPUT"REQUEST AID FROM THE GOVERNMENT OF PANAMA";D$ 
(6) : INPUT "ORDER US TROOPS INTO CANAL ZONE BUT NOT TO FI 
RE";D$(7) 

INPUT"ORDER US TROOPS TO FIRE ON PANAMANIANS IF NECESSAR 
Y";D$(8) 

GOSUB10000 

IF LEFT$(D$(7) ,1)="N" AND LEFTS (D$ (8) , 1 ) ="N" GOTO 720 

CLS:IF LEFT$( D$(7),l ) =LEFT$ ( D$(8),l ) PRINT"YOUR ANSW 

ERS ARE INCONSISTENT PRESIDENT " ;N$ : PRINT"YOU HAVE ORDE 

RED U.S. ARMY TROOPS INTO THE CANAL ZONE BUT CAN":PRINT 

"THEY FIRE ON PANAMANIANS?" : GOSUB10000 : GOTO650 

CLS:PRINT"EVALUATION OF DECISIONS. ..": PRINT"PRESIDENT JO 

HNSON DID NOT PROTEST TO THE GOVERNMENT OF" : PRINT"PANAM 

A. HE DID ASK FOR THEIR AID AND HE DID ORDER U.S. ARMY 

":PRINT"TROOPS TO BE CALLED OUT BUT THEY HAD ORDERS NOT 

TO FIRE." 

PRINT" 



740 IFLEFT$(D$(5) ,1 ) ="Y"PRINT"PRESIDENT ";N$;", YOUR DECISIO 
N TO PROTEST TO THE GOVERNMENT" : PRINT"OF PANAMA WAS DIF 
FERENT THAN THAT MADE BY PRESIDENT JOHNSON." 

750 IF LEFT$(DS(6) , 1 ) ="N"PRINT"YOUR DECISION NOT TO ASK THE 
GOVERNMENT OF PANAMA FOR AID IN" :PRINT"THIS CRISES DIFF 
ERED WITH THE DECISION MADE BY PRESIDENT" : PRINT" JOHNSON 

760 IFLEFT$(D$(8) , 1) ="Y"PRINT"UNLIKE YOU PRESIDENT ";N$;",PR 

ESIDENT JOHNSON DID NOT" : PRINT"WANT AMERICAN SOLDIERS T 

FIRE ON PANAMANIAN CIVILIANS." 
77 PRINT" ' 

":GOSUB10010 

780 PRINT"CONTINUING WITH OUR SIMULATION WE WILL FOLLOW EVEN 

TS AS THEY":PRINT"CONFRONTED PRESIDENT JOHNSON BASED ON 
HIS DECISIONS. ":GOSUB10000 
790 CLS:FORZ=1TO10:FORX=1TO20:PRINT@465, "URGENT MESSAGE":NEX 

TX : FORY=1TO20 : CLS : NEXTY : NEXTZ 
7 95 LPRINT"DATE: JANUARY 9, 1964" 
800 LPRINT"TO: PRESIDENT ";N$ 
810 LPRINT"FROM: COMMANDER OF AMERICAN TROOPS STATIONED IN T 

HE CANAL ZONE" 
820 GOSUB10020 
830 LPRINT"AMERICAN SOLDIERS ARE BEING SHOT AT BY SNIPERS. 

SEVERAL CASUALITES REPORTED. REQUEST PERMISSION TO FIR 

E ON SNIPERS." 
840 GOSUB10020 
850 CLS: PRINT" YOUR ADVISORS—THE SECRETARY OF STATE, THE SEC 

RETARY OF DEFENSE" : PRINT"THE DIRECTOR OF THE CIA, AND 

THER AREA SPECIALISTS ALL AGREE" : PRINT"YOU SHOULD ALLOW 
U.S. TROOPS TO PROTECT THEMSELVES." 
860 GOSUB10000 
870 PRINT" " : p 

RINT"PRESIDENT ";N$;", IT'S YOUR DECISION. WILL YOU AL 

LOW U.S. TROOPS TO RETURN FIRE IN THEIR EFFORTS TO PRO 

TECT AMERICANS?" :INPUTD$( 9) 
875 IFLEFT$(D$(9) ,1 ) ="N"PRINT" 

":FORX=1TO2000:NEXTX:GOTO 

920 
880 GOTO 1000 
900 GOSUB10000 
910 PRINT "ALTHOUGH PRESIDENT JOHNSON DID NOT CHOOSE TO AUTHO 

RIZE U.S.":PRINT"TROOPS TO FIRE AT PANAMANIANS AS YOU D 

ID, EVENTS SOON FORCED" : PRINT"HIM TO TAKE THAT STEP.":G 

OSUB10000 
920 PRINT"SNIPER FIRE FROM PANAMANIANS KILLED FOUR AMERICAN 

SOLDIERS AND":PRINT"WOUNDED SEVERAL. PRESIDENT JOHNSON 
FELT THIS REQUIRED AMERICAN" : PRINT "TROOPS TO RETURN FI 

RE." 
930 GOSUB10010 
1000 CLS:PRINT"WHILE YOU CONTINUE YOUR DUTIES ON JANUARY 9, 

YOUR ADVISORS" :PRINT"RECEIVE A MESSAGE FROM YOUR EMBASS 
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Y IN PANAMA AND ASK YOU TO" : PRINT "RETURN TO HANDLE SOME 
MORE DECISIONS. ":GOSUB10000 

1010 LPRINT"TO: PRESIDENT "NS 

1020 LPRINT"FROM: U.S. EMBASSY IN PANAMA" 

1030 GOSUB10020 

1040 LPRINT"PRESIDENT CHIARI HAS INDICATED TO US THAT HE WIL 

L BREAK DIPLOMATIC RELATIONS WITH THE UNITED STATES BEC 

AUSE OF THE AGRESSION" 
1050 LPRINT"OF THE U.S. ARMY TROOPS AGAINST PANAMANIAN CITIZ 

ENS. I TRIED TO MAKE CLEAR TO PRESIDENT CHIARI THAT WE 

WERE ONLY DEFENDING" 
106 LPRINT"OUR NATIONALS AND PROTECTING TERRITORY LEGALLY U 

NDER OUR CONTROL." :LPRINT"PRESIDENT CHIARI SAID THE U.S 

. WOULD RECEIVE FORMAL NOTICE OF THE BREAKING OF DIPLOM 

ATIC RELATIONS TOMORROW." 
1070 GOSUB10020 
1080 GOSUB10000 
1090 PRINT"WITH THIS NEWS, YOU GO TO BED. YOUR ADVISORS WIL 

L WAKE YOU IF":PRINT"IMPORTANT NEWS ARRIVES DURING THE 

NIGHT. ":PRINT:PRINT:PRINT"SLEEP TIGHT PRESIDENT ";N$;". 

":GOSUB10000 
1100 GOSUB10000 
1110 GOSUB10010 
1120 CLS: PRINT" JANUARY 10, 1964 ": PRINT: PRINT"THIS MORNING YO 

U MEET IN THE CABINET ROOM WITH YOUR ADVISORS" : PRINT"TO 
DETERMINE WHAT YOU SHOULD DO NEXT.": PRINT 
1130 PRINT"CIA DIRECTOR MC CONE POINTS OUT THAT TROUBLE HAS 

BEEN BREWING": PRINT" IN PANAMA FOR AT LEAST 6 MONTHS. H 

E SAYS PANAMA'S IRRITATION" : PRINT"OVER THE FLAG INCIDEN 

T IS UNDERSTANDABLE, BUT THAT THE" 
1140 PRINT"ACTIVITIES WHICH HAVE OCCURED SINCE THAT INCIDENT 
ARE PART":PRINT"OF A WELL-PLANNED ANTI-AMERICAN DEMONS 

TRATION.":PRINT"REVIEW THE REPORTS OF THE PREVIOUS DAY 

AND PRESS <ENTER> WHEN YOU WISH TO CONTINUE .": INPUTA 
1150 CLS:PRINT"YOUR ADVISORS RECOMMEND YOU TALK DIRECTLY WIT 

H PRESIDENT" :PRINT"CHIARI OF PANAMA. ": INPUT"WILL YOU AS 

K YOUR STAFF TO PLACE A CALL TO CHIARI (YES/NO) " ;D$ (10) 
1160 IFLEFT$(D$(10) ,1)="Y"GOTO1200 
1165 GOSUB10000 
1170 PRINT"UNLIKE YOU PRESIDENT ";N$;", PRESIDENT JOHNSON PL 

ACED THE":PRINT"CALL TO CHIARI. I'M NOT SURE I AGREE W 

ITH YOUR DECISION NOT" : PRINT"TO TALK DIRECTLY WITH THE 

PANAMANIAN PRESIDENT." 
1175 GOSUB10000 
1180 PRINT"BUT LET'S GO ON WITH THE PHONE CALL AS PLACED BY 

PRESIDENT": PRINT" JOHNSON. " 
1185 GOSUB10010 
1200 CLS:GOSUB10000 
1210 PRINT"FOR A TRANSCRIPT OF THE PHONE CALL SEE THE TELETY 

PE." 
1220 GOSUB10000 
1230 LPRINT"TRANSCRIPT OF TELEPHONE CONVERSATION BETWEEN PRE 

SIDENT LYNDON JOHNSON AND PRESIDENT CHIARI ." :LPRINT" JAN 

UARY 10, 1964" 
1240 GOSUB10020 
1250 LPRINTTAB( 10) "JOHNSON: HELLO, MR. PRESIDENT. MR. PRES 

IDENT i WANTED TO SAY TO YOU THAT WE DEEPLY REGRET THE 

SITUATION OF VIOLENCE" 
1260 LPRINT"THAT HAS DEVELOPED IN PANAMA. WE APPRECIATE VER 

Y MUCH YOUR CALL TO THE PANAMANIAN PEOPLE TO REMAIN CAL 
M. WE RECOGNIZE THAT" 

1270 LPRINT"YOU AND I SHOULD DO EVERYTHING WE CAN TO RESTORE 
QUIET, AND I HOPE THAT YOU'LL DO EVERYTHING POSSIBLE T 

QUIETEN THE SITUATION" 
1280 LPRINT"AND I WILL DO THE SAME. YOU AND I SHOULD BE AWA 

RE OF THE POSSIBILITY, AND THE LIKLIHOOD, THAT THERE AR 

E ELEMENTS UNFRIENDLY" 
1290 LPRINT"TO BOTH OF US WHO WILL EXPLOIT THIS SITUATION." 
1300 LPRINTTAB(10) "CHIARI: I FEEL, MR PRESIDENT, THAT WHAT 

WE NEED IS A COMPLETE REVISION OF ALL TREATIES WHICH AF 

FECT PANAMA-U.S. RELATIONS" 
1310 LPRINT"BECAUSE THAT WHICH WE HAVE AT THE PRESENT TIME I 

S NOTHING BUT A SOURCE OF DISSATISFACTION WHICH HAS REC 

ENTLY, OR JUST NOW" 
1320 LPRINT"EXPLODED INTO VIOLENCE WHICH WE ARE NOW WITNESSI 

NG." 
1330 LPRINTTAB( 10) "JOHNSON: MR. PSESIDENT, I AM SENDING TOM 
MANN, OUR ASSISTANT SECRETARY OF STATE, TO YOUR COUNTR 

Y AS MY PERSONAL" 

1340 LPRINT"REPRESENTATIVE. HE AND HIS GROUP WILL DO EVERYT 

HING IN THEIR POWER TO FIND A SOLUTION TO THE CURRENT P 

ROBLEMS." 
1350 LPRINTTAB(10) "CHIARI: I CAME TO WASHINGTON IN 1961 AND 
TALKED WITH PRESIDENT KENNEDY ABOUT TREATY REVISIONS. 
IN THREE YEARS, MR." 
1360 LPRINT"PRESIDENT, NOT A THING HAS BEEN 20NE TO ALLEVIAT 

E THE SITUATION." 
1370 LPRINTTAB (10) "JOHNSON: PRESIDENT CHIARI, WE MUST LOOK 

FORWARD AND NOT BACKWARD. VIOLENCE IS NO WAY TO SETTLE 
GRIEVANCES. FIRST, LET" 
1380 LPRINT"US END THE VIOLENCE; THEN WE CAN BEGIN TO TALK 

VER OUR DIFFERENCES AND FIND SOLUTIONS." 
1390 LPRINTTABQ0) "CHIARI: YOUR COUNTRY HAS OFTEN SHOWN IND 

IFFERENCE TO PANAMA'S PROBLEMS." 
1400 LPRINTTAB (10) "JOHNSON: OUR DELEGATION WILL BE ON A PLA 

NE IN 30 MINUTES AND WILL ARRIVE IN PANAMA IN 5 HOURS. 
I CANNOT ACT MUCH " 
1410 LPRINT"FASTER THAN THAT, MR. PRESIDENT." 
1420 LPRINTTAB(10) "CHIARI: I AM GRATEFUL FOR YOUR COOPERATI 

ON, MR. PRESIDENT. I AM GLAD YOU ARE A MAN OF ACTION A 

ND OF FEW WORDS. " 
1430 LPRINT"I AM SURE OUR DIFFICULTIES WILL BE IRONED OUT." 
1440 GOSUB10020 
1450 GOSUB10010 
1460 PRINT"AS YOUR DELEGATION GETS READY TO LEAVE, YOUR ADVI 

SORS SUGGEST": PRINT" YOU HAVE THEM. ..": PRINT" 

" ; PRINT" ( 1 ) AGREE 

TO EXPLORE NEW TREATY ARRANGEMENTS IF GOVERNMENT OF" 
1470 PRINT"PANAMA STOPS THE VIOLENCE. ": PRINT" ( 2) TELL PRESID 
ENT CHIARI HIS GOVERNMENT MUST RESTORE ORDER, ": PRINT "RE 
SUME DIPLOMATIC RECOGNITION AND AGREE TO A PLAN OF COOP 
ERA-": PRINT" ION IN STUDYING THE PROBLEM WITH NO PRIOR 
COMMITMENTS." 



1480 PRINT" (3) TELL PRESIDENT CHIARI THE US DOES NOT RESPOND 
TO BLACKMAIL": PRINT" AND WE WILL SEND IN ADDITIONAL TRO 

OPS IF NEEDED. ": PRINT" (4) AGREE TO ANY REASONABLE REQUE ' 

STS PANAMA WANTS IF THEY CAN" : PRINT"RESTORE PEACE." 
1485 PRINT" ":INPUT"ENTER THE NUMBER OF YOUR ORD 

ER TO THE U.S. DELEGATION" ;N 
1490 IFNO.GOTO1450 
1495 IFN>5GOTO1450 
1500 ONNGOTO1600, 1700, 1800, 1900 

1600 CLS:PRINT"PRESIDENT ";N$;", YOUR DECISION DIFFERED FROM 
THAT OF PRES." : PRINT" JOHNSON. PRESIDENT JOHNSON DECID 

ED IT WOULD NOT BE WISE TO" : PRINT"GIVE IN TO DEMANDS MA 

DE BY RIOTERS. ":GOTO2000 
1700 CLS:PRINT"PRESIDENT ";N$;", YOUR DECISION WAS THE SAME 

AS PRESIDENT" : PRI NT "JOHNSON'S. " :GOTO2000 
1800 CLS:PRINT"THIS IS A RATHER SERIOUS THREAT YOU ARE MAKIN 

G PRESIDENT" : PRINT N$;". PRESIDENT JOHNSON DID NOT CHO 

OSE TO MAKE THIS THREAT. ": PRINT"EVEN HAD IT BEEN SUCCES 

SFUL, THE U.S. WOULD HAVE LOST MANY" 
1810 PRINT"FRIENDS IN LATIN AMERICA." 
1820 GOSUB10010 
1830 GOTO2000 
1900 CLS:PRINT"PRESIDENT ";N$;", HOW COULD YOU! WILL YOU GI 

VE IN TO ANY": PRI NT "TERRORIST OR ANY GROUP OF PEOPLE WH 

WANT TO PUSH THE U .S. " : PRINT"AROUND FOR THEIR OWN ADV 

ANTAGE?" 
2000 GOSUB10010 
2010 PRINT"PRESIDENT JOHNSON LET THE GOVERNMENT OF PANAMA KN 

OW THE U.S." :PRINT"WOULD NOT CONSIDER REQUESTS FOR TREA 

TY NEGOTIATIONS" :PRINT"UNTIL THE VIOLENCE HAD STOPPED A 

ND PANAMA RESUMED DIPLOMATIC" : PRINT"RECOGNITION OF THE 

U.S." 
2020 GOSUB10000 
2030 PRINT"IT TOOK SEVERAL DAYS BEFORE PANAMA REALIZED THE U 

.S. WOULD" :PRINT"NOT BACK DOWN FROM ITS STAND. " :GOSUB10 

000 
2040 PRINT"PRESIDENT CHIARI, REALIZING NOTHING WAS TO BE GAI 

NED FROM":PRINT"FURTHER RIOTING ORDERED THE PANAMA NATI 

ONAL GUARD OUT OF ITS" : PRI NT "BARRACKS. ORDER WAS QUICK 

LY RESTORED. ":GOSUB10000 
2050 INPUT"PRESS ENTER TO CONTINUE" ;0:CLS : PRINT"THE CRISES W 

AS OVER. WITHING A FEW MONTHS PANAMA AND THE" : PRINT"U . 

S. WERE AGAIN ON FRIENDLY TERMS. " :GOSUB10000 
3000 PRINT"END OF SIMULATION." 

9999 END 

10000 FORX=lt01 200 :NEXTX: RETURN 

10010 PRINTS896, "PRESS <ENTER> TO CONTINUE." 

10015 A$=INKEY$:IFA$="" THEN 10015 

10016 CLS 

10017 RETURN 

10020 LPRINT" 
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• Built-in cooling Ian keeps disk drives, expansion interlace, and C PU/keyboard in optim.il temperature op- 
erating range 

• Built-m power outlet strip 1 10 grounded outlets. VI approved) leaves room lor complete expansion ol the 
IRS-80 computet. One AC power cord 1 10 teet) external to desk powers all components 

• Solid '/« " wood construction throughout with beautilul walnut-grain laminate resists burns, mars, etc 
white blending perlectly into any office or home decor. 

• All cables, power cords, and connections are completely hidden Irom view andm accessible to tamper 
mg. 

• Recessed and lowererJ keyboard lacitilates more relaxing land theretore more accurate! data entry 

• Holds the lull complement ot TRS-80 Model I components: 

— up to 4 mini-disk drives 

— expansion interlace 

— keyboard 
-CRI display 

— 2 cassette player/recorders 

— almost any printer 

• Built-in and recessed 'RESET' button extension eliminates tumbling with pens or pencils trying to "restart" 
your system yet does not attach to your JRfs-80 in any way 

• Absolutely no modification whatsoever to IRs-80 hardware, vour warranty remains intact 

• Two lull-size drawers provide plenty of storage space lop drawer is 5 Vi " high tor easy vertical storage of 
mini-diskettes and bottom drawer is perfect tor suspension tiling systems 

• forms maybe ted thru printer from bottom of desk lample slots ate provided) or rear ol punter. It printer rs 
nor used, a matching filler is provided tor slot in top ot desk. 

• Dimensions same as normal desk 60 ■ L x JO" W x 29" H 

• Removable top allows access to electrical connections and cables 

• PmCt-i399W 
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VISA 




COMPUTER BUSINESS SYSTEMS 



329 S. Highland Avenue 
Lombard, Illinois (312) 932-1344 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80 ™* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80'" 

OWNERS 



H 



CQMPUTRQNICS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 



i 

N 
C. 



MONTHLY 
NEWSMAGAZINE 



FOR TRS-80" 
OWNERS 



• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 






PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
INCLUDE THE FOLLOWING: 

A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 

INVENTORY CONTROL 

STOCK MARKET ANALYSIS 

WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM) 

EXTEND 16 DIGIT ACCURACY TO TRS-80'" FUNCTIONS (SUCH AS 

SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

NEW DISK DRIVES FOR YOUR TRS-80" 

PRINTER OPTIONS AVAILABLE FOR YOUR TRS-80™ 

A HORSE SELECTION SYSTEM***ARITHMETIC TEACHER 

COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 

SEQUENTIAL AND RANDOM ACCESS) 

RANDOM SAMPLING"*BAR GRAPH 

CHECKBOOK MAINTENANCE PROGRAM 

LEVEL II UPDATES***LEVEL II INDEX 

CREDIT CARD INFORMATION STORAGE FILE 

BEGINNER'S GUIDE TO MACHINE LANGUAGE AND ASSEMBLY 

LANGUAGE 

LINE RENUMBERING 

AND CASSETTE TIPS, PROGRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER. ACCOUNTS PAYABLE AND 

RECEIVABLE. FORTRAN 80. FINANCIAL APPLICATIONS PACKAGE. 

PROGRAMS FOR HOMEOWNERS. MERGE TWO PROGRAMS. 

STATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 

ELEMENTARY AND ADVANCED) . . AND 



WORD PROCESSING PROGRAM (Cassette or Disk) For writing letters, text, mailing lists, etc., with each new subscriptions or renewal. 
W^^m Lt V tL II RAM I tS I (Cassette or Disk) Checks random access memory to ensure that all memory locations are working properly. 

DATA MANAGEMENT SYSTEM (Cassette or Disk) Complete file management (or your TRS-80" JC*^> »-■ 



CLEANUP (Cassette or Disk) Fast action Maze Game 

ADVENTURE (Cassette or Disk) Adventure #0 by Scott Adams (From Adventureland International) 



IKS si)" IS A IHADI.MAKK C)l I ANDY COM' 



SEND FOR OUR NEW 48 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS •: 
CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE. 



PROGRAMS AVAILABLE ON 



ICQMPLITRQNXCS 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



$24 



■K\ ~ « HOUR 
®P>J\24 ORDER 
LINE 



ONE YEAR SUBSCRIPTION 
TWO YEAR SUBSCRIPTION $48 
SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

(#1 - July 1978 • #7 - January 1979 • #12 - June 1979 • #18 - January 1980) 




(914) 425-1535 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



NEW SUBSCRIPTION 



RENEWAL 



NEW!!! 

MOD-II NEWSLETTER 

SlZ/year Cor 1Z issues) 



CREDIT CARD NUMBER 



EXP. DATE. 



SIGNATURE- 



NAME 



ADDRESS. 



XITY. 



STATE. 



-ZIP. 



ADD $6/YEAR (CANADA, MEXICO) - ADD $12/YEAR AIR MAIL - OUTSIDE OF U.S.A., CANADA & MEXICO *** 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-80 Is a trademark of the Radio Shack Division of Tandy Corporation 



* All Orders processed within 24-Hours 

* 30-Day Money Back Guarantee on all Software (less a $3 penalty for handling) 

-k 10-Day Money Back Guarantee on Disk Drives and Printers PLUS 120-Days Free Service 



LEARNING LEVEL II By David Lien 

The Original Author Of The Level Manual 
A Step By Step approach to Learning Level II 
especially geared to new TRS-80'" Owners 

$15.95 



FROM RACET COMPUTES 
REMODEL-PROLOAD - Renumbers program 
lines, combines programs. The only renumber 
program that will renumber the middle of a 
program. Specify 16K, 32K or 48K. Works with 
Cassette or Disk $34.95 

GSF - Use in your Basic Programs for Instant 
Sorting (will sort 1000 items in 9 seconds). Other! 
commands include Compress and Uncompress ; 
Data. Duplicate Memory, Display Screen Controls ; 
and Fast Graphic Controls $24.95 

(For Cassette or Disk, specify 16K, 32K or 48K) 
DOSORT - All G.S.F. commands plus special 
Multiple Disk Sorting Routines $34.95 

(Specify 32K or 48K) 

INFINITE BASIC - Adds 70 commands to your 
TRS-80'" including Instant Sort, Matrix 
Commands, String Commands, Left and Right 
Justification, String Centering, Simultaneous 
Equations, Upper and Lower Case Reverse and 
more. (For Cassette or Disk) $49.95 

INFINITE BUSINESS (Requires Infinite Basic) 
Eliminate Round-off error, 127-Digit Calculation 
Accuracy, Insert New Elements in Sorted Arrays, 
Automatic Page Headings, Footings and 
Pagination, Multiple Precision Arithmetic and 
more. (For Cassette or Disk) $29.95 

COPSYS - Copy Machine Language Programs 
(For Cassette Only) $14.95 

DSM (Disk Sort Merge) $75.00 



<■»»»»%%»»»»»%»»%%* 
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TRS-80" DISK AND OTHER MYSTERIES 

Over 100 pages of indespensible information for 
disk owners. Learn to recover information from ■ 
bad disks, how to make Basic programs unlistableJ 
and 12 more chapters of never published tips and; 
information. Written by H.C. Pennington. 
(For all Disk Owners). $22.50i 



NEW SBSG BUSINESS SYSTEM FOR MODEL I 
OR MODEL II - IN STOCK 

- General Ledger 

- Accounts Receivable 

- Accounts Payable 

- Payroll 

- Inventory Control with Invoicing 

Each module can be operated individually or as a! 

coordinated SYSTEM. Turn-Key error catching 

operation for beginners. 

Complete manual and documentation 

accompany each program. 

Minimum System requirements 2-Disk Drives 

for Model I... 1-Disk Drive for Model II 

Each module can be formatted to span data 

on up to 4-Disk Drives 

Free 30-Day telephone consultation 

Call for complete specifications 

Model I Version $125.00 Per Module 

$495.00 Per System 
Model II Version $225.00 Per Module 

$995.00 Per System 



DATA MANAGEMENT SYSTEMS 

- DMS replace index cards or any data requiring 
long lists of information. 
TBS In-Memory Information System 
(For Cassette Systems) $39.95 

TBS Disk Data Manager (Requires 1 or more disk 
drives). ..Set up fast random access, files in 
minutes. Stores up to 320K of information on 4 
Drives. Up to 10 fields and 255 characters per 
record. Supports upper and lower case. RS-232 or 
TRS-232. ..Features complete editing $49.50 

Personal Software CCA Data Management 
System. Completely user oriented, menu drive, 
130 page Step By Step Manual. ..Capable of 
inventory control, sorting data, reporting data in/ 
nearly any form (for reports and mailing labels). ] 
Sorts data by up to 10 fields for zip code, balance; 
due, geographic location or whatever. Prints 
reports with subtotals and totals automatically 
calculated. Fast random access $75.00 



FROM SMALL SYSTEM SOFTWARE 
RSM-2 Machine Language Monitor $26.95 } 

RSM-2D Disk Version of RSM-2 $29.95 

DCV-1 Converts Machine Language Programs 
from tape to disk $9.95 

AIR RAID - The ultimate TRS-80'" game converts ; 
your TRS-80" into a real time shooting gallery 

$14.95 
BARRICADE - A fast pong style game $14.95 
CPM - (For Disk Only) $150.00 

TRS-232 INTERFACE - Interface with Software 
driver RS-232 printers to your TRS-80'" $49.95 
TRS-232 FORMATTER - Additional (optional) 
Software for TRS-232 owners. Adds many printer 
commands to your TRS-80" $14.95 

(With purchase of TRS-232) $9.95 

PENMOD - Use the Electric Pencil with RS's lower 
case modification $19.95 



FROM GALACTIC SOFTWARE 

MAIL PAC - For Model I Disk Systems 

only $99.95 

Quick-sorting full user control over mailing list 

from Galactic Software. 

STOCK MARKET PAC $99.95 



■CQMPJTRQNXCS! 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

HOURS: 9-5 

Monday thru Saturday 



--^ i _ M HOUR 
Q£ 24 ORDER 
LINE 




48-Page Catalog $2 FREE With Any Order 

Order By Phone Or Mail 
Add $1 Per Order For Shipping Within UPS Areas 

Add $3 For COD. 

Add $3 For All Foreign And Non-UPS Shipments 

Add $3 For UPS Blue Label 



(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



FROM APPARAT NEW DOS + $99.95 

35. 40 and 77 Track Versions available 

NEW DOS/80 (With variable record length files. 

chainings and many other features $149.95 



FROM THE BOTTOM SHELF 

CHECKBOOK II (For Cassette or Disk) $39.95 

SYSTEM DOCTOR (A complete diagnosisof your 

TRS-80'" Checks memory, video, cassette, disk. 

ROM, and all other parts of your system) 

For Cassette or Disk $28.50 

CHECKBOOK REGISTER ACCOUNTING 

SYSTEM (Requires 2 disk drives) $75.00 
LIBRARY 100 - 100 established business, game 
and educational programs plus FREE Tiny Pilot 
all for $49.50 

BASIC TOOL KIT - Lists all variables, GOTO's 
and GOSUB's in your program $19.80 



• SOUNDWARE - Adds sound to your TRS-80" 
Just plus it in $29.95 
Sample programs included 

• TING TONG - Can be used with Soundware for a 
Sound version of pong $9.95 



VIC - The Carta Visual Instructional 

Computer Program $19.95 

The Level II 16K Cassette is designed to teach 
beginners the Basics of Machine Language and 
Assembly Language Programming See every 
Machine Language Instruction Display on your 
video VIC includes Step By Step 55 page manna 



VISTA V80 DISK DRIVE - 

1 1 0K. ol Storage $395.00 

Add $29.95 for Cable (Free with purchase of 
2-Disk Drives). 10 day money back guarantee 



FROM HOWE SOFTWARE 
MON-3 - Machine Language Programming for 
beginners. MON-3 is a complete System Monitor 
with Users Manual $39.95 

MON-4 - Disk Version of MON-3 $49.95 



FROM MICROSOFT 

LEVEL III BASIC $49.95 

Now Cassette owners can add Disk Commands 
to their TRS-80" without owning a Disk Drive 
MICROSOFT DISK ADVENTURE $29.95 

TRSDOS BASIC COMPILER $195.00 

Run Basic Programs up to 15 times faster 



• NEC BUSINESS QUALITY PRINTERS 

(For MOD-I or MOD-II) $2,995.00 



THE ELECTRIC PENCIL 

Cassette 
Disk 

MOD-II Version 



$99.95 
$150.00 
$325.00 



• HORSE SELECTOR II By Dr. Hal Davis 

The TRS-80" version updated for the TRS-80" 
and originally reviewed in Systems and 
Methods $50.00 



SM 



everVtmihcT 
for mod-ii owners 



NEW MOD-II NEWSLETTER 

; MOD-II Catalog Free w/subscription $12/year 

MAIL PAC $199.95 

MICROSOFT BASIC COMPILER 

$395.00 
MICROSOFT BASIC $325.00 

GSF SORT ROUTINE $50.00 

CP/M $170.00 

PEACHTREE BUSINESS 

SOFTWARE Call 

WORD STAR $495.00 



a 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 

TRS-SO Is a trademark of the Radio Shack Division of Tandy Corporation 

COORDINATED BUSINESS SYSTEMS 




SMALL BUSINESS 
SYSTEMS GROUP 



• EACH MODULE CAN BE OPERATED INDIVIDUALLY OR AS A COORDINATED SYSTEM. 

• TURN-KEY ERROR CATCHING OPERATION FOR BEGINNERS 

• FREE 30-DAY TELEPHONE CONSULTATION WITH SBSG 

• EACH MODULE CAN BE FORMATTED TO SPAN DATA ON UPTO 4 DISK DRIVES. 

• COMPLETE MANUAL AND DOCUMENTATION ACCOMPANY EACH MANUAL 

• MINIMUM SYSTEM REQUIREMENTS - 2 DISK DRIVES FOR MODEL I...1-DISK DRIVE FOR MODEL II 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in tight 
financial control over all cash disbursements of the business. Several 
reports are available and supply information needed for the analysis of 
payments, expenses, purchases and cash requirements. All A/P data feeds 
General Ledger so that data is entered into the system just once. These 
programs were developed 5 years ago for the Wang micro-computer and 
have been tested in many environments since then. The package has been 
converted to the TRS-80'" and is now a well documented, on-line, inter- 
active micro-computer system with the capabilities of (or exceeding many 
larger systems. 



CAPABILITIES 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate «nd 
timeley monthly statements to credit customers. Management can gener- 
ate information required to control the amount of credit extended and the 
collection of money owed in order to maximize profitable credit sales 
while minimizing losses from bad debts. The programs composing this 
system were developed 5 years ago, especially for small businesses using 
the Wang Microcomputer. They have been tested in many environments 
since then. Each module can be used stand alone or can feed General 
Ledger for a fully integrated system. 



PAYROLL 

Payroll invoices many complex calculations and the production of reports 
and documents, many of which are required by government agencies. It is 
an ideal candidate for the computer. With this Payroll system in-house, 
you can promptly and accurately pay your employees and generate 
accruate documents/reports to management, employees, and appropriate 
government agencies concerning earnings, taxes, and other deductions. 
The package has been converted to the TRS-80'" and is now a well 
documented, on-line, interactive micro-computer system with the capa- 
bilities of (or exceeding) many larger systems. 

CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

(Continued on next page) 



* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles new 
invoice or credit memo or debit memo 

* invoice information recorded; invoice #, description, buyer, check 
register #, invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated for a 
set of vendors - or - for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed to as 
many as five (5) different GL accounts; sysem automatically posts to cash 
and A/P accounts 



CAPABILITIES 



* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, when 
ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/delete 
invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction 

• customer P.O. # 

• description of P.O. 

• billing date 

• general ledger account number 

• invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print and file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your company 
letterhead can be purchased from SBSG 

* reports include; (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts: debits A/R, 
credits account you specify 
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(PAYROLL CAPABILITIES CONTINUED) 

* employees can be paid using any combination of pay types (except, hourly 
cannot receive salary & salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or one time 
(bonus, reimbursements, etc) 

* health & welfare deductions can be automatically calculated for each 
employee 

* earnings-to-date are accumulated and added to permanent records; taxes 
are computed and deducted: US income tax, Social Security tax, state 
income tax, other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letterhead 
can be purchased from SBSG 

* calculations are accumulated for; employee pay history, 941 A report, W-2 
report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information can be 
distributed to as many as (12) twelve different GL accounts; system 
automatically posts to cash account. 



INVENTORY/CONTROL INVOICING 

• OVER 1000 ITEMS ON MODEL I 

• OVER 3000 ITEMS ON MODEL II 

• LOW STOCK ALARM 

• INVOICING DEDUCTS FROM INVENTORY 

• COMPLETE INVENTORY REPORTS 

• REORDER POINT REPORT 

• QUICK ITEM ACCESS 



CLIENT BILLING, STOCK CONTROL, DENTAL BILLING, COMMODITIES 
Medicare/Medicaid billing also available 



MODEL I 
MODEL I 



$125 Per Module 
$495 Complete System 
$225 Per Module 
$§95 Complete System 



WE ARE THE ONLY SOFTWARE COMPANY THAT OFFERS A REFUND 
WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPUTRONICS 
MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY).. WE DO 
CHARGE A $3 PENALTY TO COVER POSTAGE AND HANDLING. 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data from 
other accounting subsystems (A/R, A/P, Payroll, direct posting) in an 
accurate and timely manner. Major reports include the Income Statement 
and Balance Sheet and a "special" report designed by management. The 
beauty of this General Ledger system is that it is completely user formatted. 
You "customize" the account numbers, descriptions, and report formats to 
suit your particular business requirements. These programs were de- 
veloped 5 years ago for the Wang micro-computer and have been tested in 
many environments since then. The package has been converted to the 
TRS-80™ and is now a well documented, on-line, interactive micro- 
computer system with the capabilities of (or exceeding) many larger 
systems. 



CAPABILITIES 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R, A/P, Payroll or any other user 
source 

* data is maintained and reported by; 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more .... 

* user formats reports with the following designed as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 



•CQMPLITRQNXCS! 



•vVO>-^v\<XTKiAi 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



PLEASE SEND ME: 

MODEL I $125 PER MODULE 




HOUR 

24 ORDER 
" LINE 

(914) 425-1535 




$495 COMPLETE SYSTEM 

MODEL II $225 PER MODULE 

$995 COMPLETE SYSTEM 

CREDIT CARD NUMBER 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



.EXP. DATE_ 



SIGNATURE 



NAME 



ADDRESS 



XITY_ 



.STATE. 



_ZIP_ 



••■ ADD $6/YEAR (CANADA. MEXICO) - ADD S12/YEAR AIR MAIL - OUTSIDE OF USA. CANADA & MEXICO "" 
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GAME 



Not just another game — this one has real personality. 



Slot Machine 



Stewart E. Fason 
115 Via LaSilva 
Palm Beach, FL 33480 



(eople seem to have the 
erroneous idea that we 
computers are dumb machines. 
I deny the allegation (I also re- 
sent the alligators). It is the pro- 
grammers who are dumb. Oh 
sure, these pawky proponents 
of perspicacity do just fine with 
GOTO's, FORNEXT loops, in- 
tegers and cosines; but they 
seldom realize that we would 
like to establish some rapport 
with our operators. 

For almost two years, I slaved 
away doing fancy arithmetic, 
keeping records, sorting, adding 
and deleting ad nauseum. From 
time to time, I'd get to play 
Startreck (oh wow). My boss 
wouldn't even buy me a dust 
cover. The bum smoked and you 
know what ashes do to my kkey- 
bboardd. Suffice it to say that 
life had been a real drag. 

Hit of the Party 

Everything changed when my 
boss decided to throw a party 
for about 100 people. I sug- 
gested that he allow me to do a 
little showing off; something to 



make it easier for the guests and 
myself to get acquainted. After 
much arguing, he acquiesced, 
and, during a rare moment of 
creativity rewrote an old slot 
machine program. 

I was the hit of the party; peo- 
ple stood in line to get at me. 
Why? Because the program now 
had personality. Let's take a 
look at the program and I'll point 
out features that you can add to 
your programs to give your com- 
puter some personality. 

In line 10 multiple statements 
save memory. The DEFSTR 
function in line 20 defines 
s,x,y,z, and v as variables, which 
saves time and memory. Instead 
of having to type S$, you need 
only type S. I already know that 
S is a string variable. 

Lines 40-60 set the symbols 
on each wheel. As written, I pay 
a jackpot on the average of once 
every 200 plays. This is easily 
changed. See lines 90 and 100 
for keys to data numbers. 

The magic begins at line 200. 
The player gives me his name 
(v$). At 700 you'll find the power 
of IF-THEN-ELSE. If the player 
has less than $10 left, I keep 
quiet. However, if he has more 
than $10 and has lost $5-10 in a 
row, I get out the needle. At 710 1 
recognize when the player goes 
broke, and comment. 

If he is down to his last dollar, 
I let him know that I know, at 
720. When the player is down to 
two bucks, I am at line 730. I 
branch to the subroutine at 920 
where a random number genera- 
tor decides which remark I will 



make. 

Don't overlook the power of 
randomly generated remarks. 
They do away with predictibility. 

At line 790 the ubiquitous ran- 
dom number generator strikes 
again. Notice that if the player 
has increased his original $7 to 
over $25 I get mad and branch to 
980 where I really have some 
fun. 

When a player hits the jack- 
pot at line 890 1 get to show off in 
a dramatic way. Notice the 
OUT255.4. That turns on my cas- 
sette recorder. My boss had pre- 
viously recorded a John Phillips 
Sousa march which, when a 
jackpot was hit, played loudly 
for about 10 seconds. 

The OUT255,0 turns off my 
cassette. The GOTO 740 allows 
the player to continue. At the 
party, the GOTO 740 was 
changed to: 

PRINT'Tve had enough of you . . . you lucky 
rat.":PRINT"Next player please.":FOR 
l = 1tOl500:NEXT:GOTO10 

This reinitiates the program. 

Tacky Remarks 

The same night one of my col- 
leagues was set up with an 
astrology/advice program. In ad- 
dition to the frequent use of ran- 
domly generated tacky remarks, 
it had one item that really blew 
people's minds. Someone would 
walk up and see displayed the 
following: "Hello there. I am Dr. 
Himmelstein, the world re- 
nowned Psychiatrist/Astrolo- 
ger. I can cast your horoscope 
and help you with problems. 



Type in your name and we can 
begin the session." Who could 
resist such an invitation. 

A guy would type in JOHN 
JONES and my colleague would 
say, "Are you the John Jones 
from Virginia?" Jones is now 
thinking, "How the hell did this 
computer know that?". The com- 
puter knew because our boss 
had placed data in the program 
about John Jones. The subrou- 
tine that programs something 
unique about each guest looks 
like this: 



100 INPUT'tell me your name.";A$ 
110IF A$ = "JOHN JONES" THEN PRINT 
"AH YES, ONE OF THE JONES BOYS 
FROM PHILADELPHIA.":GOTO200 
120 IF A$ = "JOE SMITH" THEN PRINT 
"HOWS YOUR HAIR TRANSPLANT DO- 
ING?:GOTO 200 



The above can accommodate 
many guests (depending on 
your memory). In case someone 
shows up who is not on file, you 
could make your last statement 
of the routine look like this: 



150 PRINT'YOUR RECORDS HAVE BEEN 
TURNED OVER TO THE CIA ";A$;" AND I 
CANT COMMENT.": GOTO200 



This way you have all bases 
covered. 

Well friends, that is the story 
of how I got personality. Give 
some to your computer and it 
will thank you. I've gotta scram 
now because I see the boss 
coming with the .... oh no 
... the Electric Pencil. Rats! I 
was hoping for some more fun 
and games. ■ 
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Program Listing 



10 CLEAR :CLS:D=7 

20 DEFSTR S,X,Y,Z,V 

3 REM SET THE SYMBOLS ON EACH OF THE THREE WHEELS 

40 DATA 6,5,4,2,5,6,3,2,4,1,2,6,4,5,6,1,2,4,5,1 

50 DATA 4,5,3,2,4,6,4,5,6,1,5,4,5,6,1,5,6,3,4,5 

6 DATA5 ,1,6,5,6,5,5,4,6,5,1,1,4,5,6,1,5,6,5,1 

70 DIM S(6) ,R(3,20) ,X(8) ,Y(8) ,Z(8) 

80 ' DEFINE THE SYMBOLS 

90 S(1)="**BELL**":S(2)="*CHERRY*" : S (3 ) ="*LEMON**" 

100 S ( 4 ) = " * * BAR* * * " : S ( 5 ) = " * ORANGE * " : S (6 ) = " * * PLUM* * " 

110 FOR I=1T03:F0R J=1TO20:READ R( I, J) :NEXTJ :NEXT I 

120 PRINT: PRINT" WELCOME TO FASON ' S CASINO. 

130 PRINT: PRINT"STEP RIGHT UP STRANGER AND TRY YOUR LUC 

K." 
140 PRINT: PRINT"CHERRY **** **** PAYS 3, CHERRY CHERRY 

**** PAYS 5" 
150 PRINT"ORANGE ORANGE ORANGE OR ORANGE ORANGE BAR PA 

YS 10":PRINT"PLUM PLUM PLUM OR PLUM PLUM BAR WINS 
14 
160 PRINT"BELL BELL BELL OR BELL BELL BAR WINS 18 
180 PRINT: PRINT "BAR BAR BAR PAYS SUPER JACKPOT OF $500, 

000.00 
190 PRINT: PRINT"YOU HAVE $7.00 CREDIT. PLEASE TYPE YOU 

R FIRST NAME. 
200 INPUT"TO PULL MY ONE ARM, PRESS ' ENTER '." ;V:GOTO230 
220 INPUT 

230 ' WHEEL TIMING INSURES SEQUENTIAL STOPS 
240 Rl=RND(20)+5 : R2=RND ( 20 ) +R1 : R3=RND (30 ) +R2 : 1=1 
250 CLS 

260 IF I>R1THEN 290 
270 GOSUB 750 

280 A=A+l:B=B+l:C=C+l:GOTO 350 
290 IF I>R2 THEN 320 
300 GOSUB 750 
310 B=B+l:C=C+l:GOTO 350 
320 IF I>R3 THEN 430 
330 GOSUB 750 
340 C=C+1 
350 1=1+1 

360 IF A<21 THEN 380 
370 A=l 

380 IF B<21 THEN 400 
390 B=l 

400 IF C<21 THEN 420 
410 C=l 
420 GOTO 260 

430 X=S(R(1,A) ) :Y=S(R(2,B)) :IF COITHEN 450 
440 C=21 

450 C=C-1:Z=S(R(3,C) ) 

460 ' CHECK FOR WINNER AND DETERMINE PAYOFF 
470 IF XO"**BAR***"THEN 510 
480 IF YO"**BAR***"THEN 510 
490 IF ZO"**BAR***"THEN 510 
500 D=D+500000:GOTO 890 
510 IFXO"**BELL**"THEN 560 
520 IF YO"**BELL**"THEN 560 
530 IF ZO"**BELL**"THEN 550 
540 D=D+18:GOTO 790 
550 IF Z="**BAR***"THEN 540 
560 IF XO"**PLUM**"THEN 610 
570 IFYO"**PLUM**"THEN 610 
580 IFZO"**PLUM**"THEN 600 
590 D=D+13:GOTO 790 
600 IFZ="**BAR***"THEN 590 
610 IF XO"*ORANGE*"THEN 660 
620 IF YO"*ORANGE*"THEN 660 
630 IF ZO"*ORANGE*"THEN 650 
640 D=D+9:GOTO 790 
650 IF Z="**BAR***"THEN 640 
660 IF XO"*CHERRY*"THEN 700 
670 IF YO"*CHERRY*"THEN 690 
680 D=D+4:GOTO 790 
690 D=D+2:GOTO 790 
7 00 O=O+1:D=D-1:IFD<10THEN710ELSEIFO=5THENPRINT:PRINT"N 

OW THINGS ARE GOING MY WAY . "ELSEIFO=10THENPRINT: PR 

INT"WHOOPEE, I'VE GOTCHA NOW!":O=0 
710 IFD<1THENPRINT:PRINT"0H OH ";V;" YOU DID IT!":GOTO 

910 
720 IFD=1THENPRINT:PRINT"LAST CHANCE ";V;" GET LUCKY! 
730 IFD=2THENGOSUB 920 

740 PRINT:PRINT:PRINT:PRINT"$";D;"LEFT " ; : GOTO 220 
750 ' THE NEXT LINE MAKES THE WHEELS SPIN 
760 F0RU=1T02:NEXT:PRINTCHR$(23) : PRINT@390 , S (R(l ,A) ) ;S( 

R(2,B) ) ;S(R(3,C) ) : RETURN 
780 ' RANDOMLY GENERATED TACKY REMARKS 
790 IFD>25THEN 980 ELSEIFD<5THEN 1070 ELSEPRINT: PRINT"W 

INNER", "WINNER" : PRINT :Q=RND( 10) : IFQ=lTHENPRINT"HOW 

COME YOU'RE SO LUCKY?" ELSEIFQ=2THENPRINT"A TURKEY 

LIKE YOU SHOULDN'T BE SO LUCKY. "ELSEIFQ=3THENPRI 

NT"GOOD GRIEF! YOU DID IT AGAIN! 

800 IFQ=4THENPRINT"HOW CAN ANYBODY WHO LOOKS SO STUP 

ID BE SO LUCKY???? 
810 IFQ=5THENPRINT"YOU BETTER QUIT NOW! ";V 
820 IFQ=6THENPRINT"YOU HAVE THE MAGIC TOUCH. "ELSEIFQ=7T 

HENPRINT"THIS IS YOUR LUCKY DAY. 
830 IFQ=8THENPRINT"YOU LUCKY CREEP! ";V 
840 IFQ=9THENPRINT"OH NO ";V;" ANOTHER WINNER! 
850 IFQ=10THENPRINT"WITH YOUR LUCK, YOU SHOULD GO TO 
LAS VEGAS. 



860 GOTO 7 40 

870 PRINTCHR$(23) 

880 ' TURN ON CASSETTE RECORDER WHEN JACKPOT IS MADE 

890 FORI=1TO2000:NEXTI:OUT255,4:FORT=1TO300:PRINT" SUP 

ER JACKPOT SUPER JACKPOT" : NEXTT: OUT255 , :CLS : GOTO 

740 
900 ' EVEN THE COMPUTER HAS SOME COMPASSION. 
910 FORI=1TO1200:NEXT:CLS:PRINTCHR$(23) : PRINT: PRINT: PRI 

NT" TOO BAD ";V; n YOU LOSE" : PRINT: PRINT: PRINT: PRI 

NT"NEXT VICTIM PLEASE ": FORI=1TO1500 : NEXT: GOTO 10 
920 PRINT:A=RND(5) :IFA=1THENPRINT"WITH YOUR LUCK, IF YO 

UR BROTHER DIED THEY WOULD BURY YOU. 
930 IFA=2THENPRINT"YOU MUST BE LUCKY AT LOVE 'BUT" : FORI = 

1TO1500:NEXT:PRINT"CONSIDERING YOUR LOOKS " 

:FORI = 1TO1500:NEXT:PRINT" I DOUBT IT! 

940 IFA=3THENPRINT"ARE YOU ALWAYS SO LUCKY? ";V 

950 IFA=4THENPRINT"I DENY BEING RIGGED. 

960 IFA=5THENPRINT"YOU DON'T DESERVE SUCH LUCK! 

970 RETURN 

980 H=H+1:IFH>1THEN 1040 ELSEPRINT"NOW YOU'VE MADE ME M 

AD.":FORI=1TO1500:NEXTI:CLS:PRINT:PRINT:PRINT"I DO 

N'T LIKE GETTING BEATEN " ;V: PRINT: PRINT"KEEP IT UP 
AND I JUST MAY TURN MYSELF OFF !!!! 
990 PRINT:PRINT"IF YOU DON'T BELIEVE IT, JUST WATCH THI 

S 

1000 FORI=1TO3700:NEXT:FORI=1TO190:E=RND(1000) :PRINT@E, 

"HA" : NEXTI : CLS : F0RI = 1T037 00 : NEXT 
1010 CLS:PRINT:PRINT"DON'T WORRY ";V;" I'M NOT QUITTING 

1020 PRINT: PRINT"WE COMPUTERS GOTTA HAVE SOME FUN TOO Y 

OU KNOW! 
1030 PRINT: PRINT"NOW LET'S GET ON WITH THE GAME ";V:GOT 

740 
1040 PRINT:U=RND(8) : IFU=1THENPRINT" I ' M GETTING SICK OF 

THIS ";V ELSEIFU=2THENPRINTV:PRINT"I WISHED YOU HA 

D STAYED HOME. 
1050 IFO>4THENO=0 
106 GOTO7 40 
1070 PRINT: IFD=3THENPRINT"WHEW ! THAT WAS CLOSE. "ELSEI 

FD=4THENPRINT"JUST IN THE NICK OF TIME. 
1080 GOTO740 



BY THE 



TIME 
YOU 
READ 
THIS 



AD, 




dial (617) 373-1599 and order Insort-80, 
your TRS-80* microcomputer would 
have sorted 1,200 names and addresses, 
10,000 numbers, or any other Random 
Disk File from your Basic program... for 
only $49.95! 

"Let us sort things out for you!" 

SBm svsteftis, inc. 

P.O. Box 1225 

2 Washington Street 

Haverhill, Massachusetts 01830 

Approximate Sort Time for Insort 80 is eight minutes. 
TRS 80 is a registered trademark of the Tandy Corporation. 
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APPLICATION 



And now. . .a brief word from our computer. 



On the Radio 



Don Hastings 
Box 366 
Hemingway SC 29554 



A broadcast log is a listing of 
everything that will be 
broadcast in a day. It must meet 
strict FCC requirements and 
must be prepared with great 
care. It controls every event that 



must be aired, much as a com- 
puter program controls every ac- 
tion of a computer. Without the 
broadcast log, the broadcast 
engineer or announcer does not 
know what occurs next. 

A Broadcast Log Program 

The program we at WKYB 
have developed for our 32K 
Level II TRS-80 schedules all our 
programs, news, public-service 
and commercial announce- 
ments. It will do so within the 




Photo 1. Setting sign-on and sign-off times. Note use of military time 
and conversion of time to log positions. 



time limits we specify and at the 
specific spaces within our log 
we have set aside for each. Our 
next step is to couple the com- 
puter to a printer to actually 
print the log, but our program as 
it stands has cut log preparation 
time in half and produced a log 
far more consistent with what 
we want than any individual 
could do. 

It takes our logger about 30 
minutes to prepare the work- 
sheet for entering, about 15 
minutes for the computer to 
digest it all and less than ten to 
spit it all back out. It then takes 
another 15 minutes for the log- 
ger to copy the necessary infor- 
mation off the screen onto our 
log sheets. Presently the most 
time-consuming work is pre- 
typing the log sheets with our 
programs and headings and 
then filling in the commercial in- 
formation as it has been posi- 
tioned by the computer. We'll 
eliminate this when we add the 
printer and disks. 

Log preparation is tedious, 
yet extremely critical, in broad- 
casting; it can drive you batty, 
and often does. Now we can 
place all the seemingly impossi- 
ble requirements for each ac- 
count into the computer's mem- 
ory, and each is given its due 
consideration. 



I have modified our log pro- 
gram, which I wrote, into a 
general program that most radio 
stations can use with a mini- 
mum of modifications. I admit 
this is a cut-down version, but all 
you need is a TRS-80 Level II 
with 16K. The program has no 
hidden loops to mess you up, so 
it is just begging to be custom- 
ized for your particular require- 
ments after you've run it a cou- 
ple of times. Since no two radio 
stations will prepare their logs 
in exactly the same way, I 
recommend you first see what I 
have done and then tear into it at 
your pleasure. 

Please note that I have given 
you a detailed description of the 
main variables used in the pro- 
gram. The unused P in this pro- 
gram sets the priority of ac- 
counts. You may wish to add 
such a feature to your modifica- 
tion. We use two arrays: A for all 
accounts and carousel posi- 
tions, and L for the actual log 
positions. 

On the Radio 

All of our commercials are 
played from four carousels, so 
our program is written for use 
with up to four carousels (for all 
you non-broadcasters, a carou- 
sel is simply a drum holding up 
to 24 separate commercial 
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tapes; any one can be selected 
and played automatically). 
When entering an account, you 
will assign it a carousel and slot 
within that carousel. This 
becomes the account number 
for that log— the computer re- 
members an account placed in 
carousel #1 and in slot 12 as ac- 
count 112. 

If you have less than four car- 
ousels, simply load your com- 
mercials into the carousels you 
have. As far as the computer is 
concerned, you've just decided 
not to use the remaining carou- 
sels. If you use more than four 
carousels, have fun modifying 
the program — it isn't hard, just 
time consuming. If you use Go- 
carts, Instacarts or any device 
with more than 24 slot positions 
per source, you are in real trou- 
ble. You will have to confine 
yourself to 24 slots until you re- 
write the program with a dimen- 
sioned array for your sources. It 
will probably not run in 16K. We 
use dimensioned arrays for all 
our sources, but we also have 
32K memory. I modified the pro- 
gram so it would fit in 16K. 

The log array is dimensioned 
with the first number designat- 
ing the hour and the second 
number the log position within 
that hour. 1.(10,15) is the 10am 
hour and the 15th position 
within that hour. Note, it is not 
10:15! L(14,20) is the 20th posi- 
tion in the 2pm hour. Your logger 
must learn using military time if 
you want to use this program. 



Our log hour is divided into 
three commercial clusters every 
15 minutes, 12 per hour. A com- 
mercial cluster consists of one 
play of each of the four carou- 
sels. We can schedule 48 sepa- 
rate events in any one hour. It is 
improbable we'll have to do this, 
but the computer now has the 
flexibility to place an event 
precisely where it is needed 
from any one of the four carou- 
sels. If you use less than four 
carousels, your cluster will run 
as you have loaded the ma- 
chines. The computer cannot 
shift your loads. 

Before the computer starts 
logging your commercials, you 
may have some preference as to 
which clusters you want to use 
first in each hour. Line 300 is the 
place for this. Enter as a DATA 
statement the first log position 
of each cluster in the order you 
wish the clusters used. If you 
want the first cluster in each 
hour used first, enter your first 
data position as 1. 

Please note that regardless of 
how many carousels you use, 
this program is written for 
four— thus the first log position 
of the second cluster will be 
position 5, the first log position 
of the third cluster will be 9, etc. 
Once you learn this, the rest is a 
piece of cake. The chart should 
help you visualize cluster posi- 
tions. I have shown the clusters 
spread evenly around the hour. 
The computer doesn't care how 
your clusters are actually 




spread. Always remember that 
the computer considers a clus- 
ter as four events, regardless of 
how many you utilize, and it 
should present no problem. 

Set Q in line 310 to how many 
commercial minutes you allow 
per hour. Set I of line 310 to the 
maximum commercial time you 
allow in any one cluster. Set B to 
how many commercial clusters 
you allow in any one hour. I hope 
you got the implication of that 
last figure. When you enter your 
data statement in line 300, sim- 
ply skip any clusters you don't 
want to use. Then set B to equal 



the total number of entries in 
your data statement. 

The program still has 12 clus- 
ters, but you have placed the 
ones you do not want to use "off 
limits," so it can't place any- 
thing in those areas. If you run 
only six commercial breaks per 
hour, you will enter the first posi- 
tion of the six you wish to use in 
line 300. Set B = 6 in line 310 and 
your program schedules com- 
mercials only in those clusters 
you specified from the carou- 
sels you loaded. It does not ex- 
ceed the commercial minutes 
you selected. You are in control. 




Photo 2. Entering program minutes not logged through computer. 
Note incorrect entry for 9 am with prompt by computer. Example is 
declaring five commercial minutes during 9 am. 




Chart of cluster positions. 



Photo 3. Example of protected position where a special feature 
prevents these log positions from being used. Protected positions 
here are the second and third log positions of the noon hour. 
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Don't hoot-up 
without it! 



The 'Hotv To 9 book of 
TRSSO^data recovery 

• 130 page, SVz x 11 softcover 

• Actual memory maps, samples 

• Detailed recovery instructions 

• Recover lost programs, DOS errors 

• Fix parity, gat and hit errors 

• Recover from unreadable directory 

• Fix Electric Pencil file errors 

• Recover lost or killed files 

TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORP 

JUST $22.50 



Get it and unveil the many disk mysteries 



Gold plated 
contacts 



Disk-drive 

extender 

cables 



from UG 




Full 9 inches 

28 gage, 34 conductor 
standard computer 
grade, flat ribbon 
cable 

Completely assembled & 
thoroughly tested 

Get yours today . . . $16.95 ea 



Fits all mini-disk drives 



34 pin 
connectors 



2 piece high 

impact, molded 

plastic 
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New E'Z*L«video 
screen filter 



For TnssOvi&n 

from I*FG 



Eliminates fatigue due to eye strain 
Two colors: Green or Amber 
Increases visual legibility 
Minimizes operator errors 
No tools needed to install 
Does not effect warranty 
Vs inch cast acrylic 



• Priced at just $14.50 




Limits eye strain and reduces video glare 



PARTIAL LISTING OF PARTICIPATING IJG COMPUTER SERVICES RETAIL DEALERS 


LEVEL IV PRODUCTS, INC. 

32238 Schoolcraft 
Livonia, Ml 48154 
| (313)525-6200(800)521-3305 


THE DATA CONNECTION 

11818 Wilshire Blvd. 
Los Angeles, CA 90025 
(213) 479-1980 M. McCartney 


H & E COMPUTRONICS 

10 Drexel Court 

Spring Valley, NY 10977 

(914) 425-1 535 (800) 431-2818 


HOUSTON MICROCOMPUTER 

5313 Bissonnet 
Bellaire, Texas 77586 
(713)661-2005 


M M • COMPUTER 

Jahnstr. 17, 8210 Prien 

Germany 

Tel. (08051)4523 


BIAS, INC. 

49-A Cedar St. 
Manchester, CT 06040 
(203) 643-2544 


DATA FLOW CORPORATION 

24312 Via Viejo 
El Toro, CA 92630 
(714)768-7623 


QUALITY SOFTWARE DIST. 

11234-C Park Central PI. 
Dallas, Texas 75230 
(214)692-1055 


THE PROGRAM STORE 

4200 Wisconsin Ave. N/W 

Washington, D.C. 20016 

(202) 337-4691 | 


DC COMPUTER PRODUCTS 

596 Taylor Way 

Belmont, CA 94002 

(415) 592-4222 (800) 227-7362 


HEINZ WILGEN 

Tandy/Radio Shack Vertragshandler 
Im Handenhof 1 1 ■ 2900 Oldenburg 
Tel. 0441/3 68 22 Germany 


CALECTRON PVBA 

Vlaanderenstr 96 
9000 - Gent - Belgium 


COMPUTER BOOK SHOPS LTD. 

! Temple House 43-48 New St. 
i Birmingham, U.D. B24LH 
(21)643-4577 Telex 337045 


ADVENTURE INTERNATIONAL 

178 Okford Road 
Fern Park, Florida 
32730 (305)339-8914 


PRAIRIE DATA SYSTEMS 

306 Stone Place 
Saskatoon, Sask - Canada 
S7M4J4 (306)384-7110 j 


E'Z'I IS A TRADr.MARK OF IJG. INC. 

TRS-S0 IS A REGISTERED TRADEMARK OF TANDY CORP. 


"■■ ♦ IJG COMPUTER SERVICES " 37 


■ ■ ■ 569 N. Mountain Ave. • Suite B • Upland, CA 91786 U.S.A. (714) 946-5805 j 



*■ Reader Service Index— see page 194 
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Running the Program 

After you enter the program, 
make a copy of it immediately 
before you modify it. This can 
save you many pains later. Also, 
run it a couple of times before 
modifying it since strange 



things can happen to a modified 
program that hasn't been com- 
pletely debugged from keyboard 
errors. 

The first thing up on the 
screen is a request for your sign- 
on and sign-off times (military 



Log program. 



REM ** LOG 2.0 ** WRITTEN BY DON HASTINGS, HEMINGWAY, S.C. 
REM ** MEMORY REQUIRED TO RUN WITH REMARKS APP 15K 



REM ** A = ACCOUNT 

REM ** B - BREAKS 

REM ** C = LOGGING ADJUST 

REM ** D = TIME CONVERSION 

REM ** E = TIME CONVERSION 

REM ** F = SIGN ON TIME 

REM ** G = SIGN OFF TIME 

REM ** H = LOG HOUR 

REM ** I - MAX SEC PER BREAK 

REM ** J = ENTRY CONTROL RETURN 

REM ** K = LOGGING ATTEMPTS 

REM ** L ■ LOG POSITION 

REM ** M = CAROUSEL 



N = 1ST LOG ENTRY 

= MAX LOG ATTEMPTS 

P = 

Q = MAX SEC/HR 

R = LENGTH SPOT LOGGED 

S = SPOTS BEING LOGGED 

T = BREAK LENGTH SEC 

U = EVENT START 

V = EVENT END 
W = VARIABLE 
X = VARIABLE 

Y = VARIABLE 
Z = VARIABLE 



130 

140 
150 
160 
17 
199 
200 
210 
220 
230 



REM ** A ARRAY = ACCOUNTS & CAROUSELS 
REM ** L ARRAY = LOG 

CLS:PRINT:PRINT:PRINT TAB(18)"B ROADCAST LOG" 
PRINT:PRINT TAB(25)"L G 2.0" : PRINT: PRINT: PRINT TAB(20)"L E 

V E L II - 1 6 K":PRINT:PRINT 
PRINT" WRITTEN BY DON HASTINGS - HEMINGWAY, SOUTH CAROLINA 

PRINT:PRINT:PRINT TAB(8)" "j:FOR X-1T045:PRINT"*" ; :NEXT:PRINT@ 

1," " 
FOR X=1T0125:SET(X,1) :SET(X,16) :SET(X,45) :NEXT 
FOR Y«1T045:SET(1,Y):SET(125,Y) :NEXT 
DIM A(500) :DIM L(24,48) 
F=100:G=2500 



CLS:PRINT TAB(18)"S TOP 
PRINT:PRINT TAB(10)"U S E 
PRINT:PRINT TAB(20)"S E T 
O-(G-F)/100:O=INT(O*12)+10 



TAPE" 

MILITARY TIME" 
L G":GOSUB9000:F=U:G=V 
: REM ** PREVENT HANG-UP LATER DURI 




Have computer, will travel. 

Executive Computer System Carrying Cases. 

• Makes your microcomputer truly portable. 

• Protects your equipment: locking latches limit access. 

• Rugged black vinyl with metal corners outside. 

• Protective foam rubber, black velveteen covered, inside. 

• Computer can be operated without removing from case. 

• And cases are custom designed for full systems. 



Apple* Executive Case holds: 

• Apple microcomputer. 

• 9" Sanyo monitor. 

• 2 disk drives. 

• Power strip. 

• 2 boxes diskettes. 

• Manuals. 

• Dimensions: 28"x 2l"x 10 V4 ." 

• Weight: 17 pounds. 

• Price: $179 



TRS-80** Executive Case holds: 

• TRS-80 Microcomputer. 

• Expansion interface. 

• 2 disk drives. 

• Power strip. 

• 2 boxes diskettes. 

• Manuals. 

• Dimensions: 28"x 21% "x 8'/ 2 ." 

• Weight: 17 pounds. 

• Price: $179 



Terms: FOB Los Angeles — Master Charge, Visa or check 
with order. Allow 3-4 weeks for delivery. 

"Registered, Apple Computers, Inc. 
"Registered Trademark, Tandy Corporation. 

COMPUTER TEXTile 



10960 Wilshire Blvd. Suite 1504 
Los Angeles, CA 90024 



^-390 



(213) 477-2196 



NG LOGGING 

295 ' 

296 REM *** LINE 300 SETS ORDER CLUSTERS WILL BE FILLED 

297 REM *** Q = MAX COMMERCIAL MINUTES PER HOUR 

298 REM *** I = MAX COMMERCIAL SECONDS ANY CLUSTER 

299 REM *** B = COMMERCIAL CLUSTERS PER HOUR 

300 DATA 1,25,17,41,9,33,5,29,21,45,13,37 
310 Q=18:I=120:B=12 

320 Q=Q*60: : REM ** COMVERTS Q TO SECONDS 

499 ' 

500 CLS: PRINT TAB(10)"P ROGRAM MINUTES" 
510 PRINT:INPUT"HOUR";X:IF X=0 GOTO700 

520 IF X<F-1 OR X>G PRINT'ENTRY ERROR - REDO" :GOTO510 : REM ** TIM 

E ENTERED BEYOND LOG LIMITS 
530 X=INT(X/100) 

540 INPUT"MINUTES";Z:Z=Z*60:IF Z>Q GOTO540 
550 L(X,0)=L(X,0)+Z:GOTO510 
699 ' 

7 00 CLS: PRINT TAB(10)"P ROTECTED POSITION S" : PRINT 
710 INPUT"ENTER PROTECTED POSITION: ";Z:IF Z=0 GOTO1000 
7 20 IF Z<F OR Z>G GOTO 7 60 : REM ** TIME ENTERED BEYOND LOG LIMITS 
730 X=INT(Z/100) :Y=Z-(X*100) :IF Y>48 GOTO760 
740 L(X,Y)=100:GOTO 710 : REM ** LOG SPACE (HOUR, POSITION) SET ASI 

DE 
760 PRINT: PRINT "ERROR - REDO" :GOTO710 

999 ' 

1000 CLS:PRINTTAB(10)"S PECIAL LOGGIN G":J=2 
1010 GOSUB9400: PRINT: IF A=0 GOTO1100 

1020 INPUT"POSITION: ";Z:IF Z=0 GOTO1100 

1021 IF Z<F OR Z>G GOTO1090 : REM ** TIME ENTERED BEYOND LOG LIMIT 



ENTRY BROKEN DOWN INTO X,Y 



1022 X=INT(Z/100):Y=Z-(X*100) : REM 
ARRAY 

1023 PRINT: INPUT "CORRECT (Y/N) : ";X$:IF ASC(X$)=78 GOTO1060 
1030 IF L(X,Y)=0 GOTO1050 

1040 PRINT"OCCUPIED BY" ; A(L) ; : INPUT"SHALL I REMOVE (Y/N): ";X$:IF 

ASC(XS)=78GOTO1000 
1050 L(X,Y)=A:CLS:PRINT"NEXT POSITION - ACCOUNT »" ; A:GOTO1020 
1060 A(A+24)=0:A(A)=0:GOTO1000 
1090 PRINT" INCORRECT DATA - REDO" :GOTO1020 

1099 ' 

1100 CLS:PRINTTAB(10)"S PECIFIED TIMES" 
1110 J=3:GOSUB9400:J=1:IF A=0 GOTO2000 

1115 PRINT: INPUT'CORRECT (Y/N): ";X$:IF ASC(X$)=78 THEN A(A)=0:GOT 

O1100 
1117 A(A+72)=1 : REM ** CODES THIS ACCOUNT AS A SPECIFIED TIME ENT 

RY 
1120 CLS:PRINT"ACCOUNT";A;"","TIME PERIOD" ; J; "", " SPOTS LEFT";A(A 

+48) 
1130 GOSUB9000:N=1:IF V-U>800 THEN N=0 
1140 PRINT: INPUT"SPOTS = ";S:IF S>A(A+48) PRINT"ENTRY ERROR" :GOT011 

40 
1150 A ( A+48 ) =A (A+4 8 )-S: CLS: PRINT" LOGGING ":GOSUB9500 
1160 CLS:J=J+1:IF SOB PRINT:PRINT"UNABLE TO LOG" ;S: GOTO1190 
1170 IF A(A+48)<>0 GOTO1120 
1180 GOTO1100 
1190 A(A+48)=A(A+48)+S:INPUT"OTHER TIMES AVAILABLE" ; Z$: IF ASC(Z$)< 

>78 GOTO1120 
1195 IF S>A(A+48) GOTO1120 ELSE 1100 
1199 ' 

2000 CLS:PRINTTAB(15)"G ENERAL ACCOUNT S":J=3 
2010 GOSUB9400:IF A=0 GOTO2100 ELSE 2000 

2098 ' 

2099 REM *** ACCOUNT VERIFICATION *** 

2100 CLS:A=101:X=1 

2110 PRINT TAB(18) "CAROUSEL NUMBER" ; INT (A/100) 

2120 PRINT"ACCOUNT" , "CODE" , "LENGTH" , "SPOTS" 

2130 PRINTA.A(A) ,A(A+24) ,A(A+48) 

2140 A=A+1:IF X<12 THEN X=X+1 :GOTO2130 

2150 PRINT: INPUT"ALL CORRECT (Y/N): ";X$:IF ASC(X$)=78 GOTO2200 

2160 X=1:IF A=125 OR A=225 OR A=325 THEN A=A+76 

2170 IF A=425 GOTO4000 

2180 CLS:GOTO2110 

2200 Y=A-12:CLS:INPUT"INCORRECT ACCOUNT #" ;A:GOSUB9410 

2210 X=1:A=Y:GOTO2180 

3999 ' 

4000 CLS:PRINT"LOGGING GENERAL ACCOUNTS" :N=0 :U=F :V=G 
4020 A=101 

4030 IF A(A+72)=1 GOTO4050 

4040 S=A(A+48):IF S>=1 GOSUB9500 : A(A+48) =S 

4050 A=A+1:IF A=125 OR A=225 OR A=325 THEN A=A+76 :GOTO4030 

4060 IF A=425 GOTO4070 ELSE 4030 

4070 IF N=0 PRINT:N=1:PRINT"VERIFYING":GOTO4020 

4999 ' 

5000 CLS: PRINT "WHAT IS YOUR PLEASURE" : PRINT: PRINTTAB( 10) "1 . ACCOUN 
T LIST" 

5010 PRINTTAB(10) "2. ACCOUNT LOGGING" :PRINTTAB(10) "3 . LOG ANALYSIS 



5020 
5070 
5080 
5498 
5499 
5500 
5505 
5510 
5520 
5530 
5998 
5999 
6000 
6010 
6020 
6030 
6040 
6050 
6498 
6499 
6500 
6510 
6520 
6530 
6540 
6998 
6999 
7000 
7005 



PRINTTAB(10) "4. RE-LOG" : PRINTTAB (10 ) "5 . COMPLETED LOG" 

PRINT: INPUT"CHOICE";X 

ON X GOTO5500, 6000, 6500, 7000, 8000 

REM *** ACCOUNT LISTING *** 

X=101 

CLS:PRINT"ACCOUNT","NOT LOGGED" , "ACCOUNT" , "NOT LOGGED" 

FOR A=X TO X+11:PRINT A,A(A+48) ,A+12,A(A+60) :NEXT 

PRINT: INPUT'CONTINUE ";XS:IF ASC(X$)=78 GOTO5000 

X=X+100:IF X<500 GOTO5505 ELSE 5000 

•REM *** ACCOUNT DISPLAY *** 

W=0:PRINT:INPUT"WHICH ACCOUNT ";A:IF A=0 GOTO5000 
CLS: PRINT" ACCOUNT #" ; A:D=INT (F/100 ) 
F0RX=1T048:IF L(D,X)=A GOTO6050 
NEXT:D=D+1:IF(D*100)<G GOTO6020 
PRINTW; "LOGGED" :GOTO6000 
PRINT'LOGGED AT POSITION" ; (D*100) +X :W=W+1 :GOTO6030 

REM *** COMMERCIAL MINUTES *** 

CLS : PRINT" HOUR " , "MINUTES" , "HOUR" , "MINUTES" 

PRINT :F0RX«1T012 

PRINT X*100,L(X,0)/60; 

PRINT, (X+12)*100,L(X+12,0)/60:NEXT 

PRINT: INPUT"CONTINUE " ;XS:GOTO5000 



REM *** RE-LOG *** 

PRINT: INPUT'ACCOUNT #";A:IF A=0 GOTO5000 

IF A(A+72)=1 INPUT'SPECIFIED TIME ACCOUNT - SHALL WE CONTINUE 
";Z$:IF ASC(Z$)=78 GOTO5000 
7010 CLS:IF A(A)»0 INPUT'UNUSED POSITION - WILL YOU ADD";X$:IF ASC 
(X$)=78 GOTO7000 ELSE GOSUB9410:GOTO7050 
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/^PROGRAM STORE 



i7 (202) 337-4691 



4 20 Wisconsin Ave NW PQBox9609 Washington D.C. 20016 




SYSTEM 
SAVERS 



by Tom Stibolt from Acorn 

If you ever use the SYSTEM, 
command, you should buy this two 
program package. These programs 
allow you to save any system format 
tape on tape or disk, plus offer 
several features for machine 
language programmers. Many two 
part, protected system tapes like 
Sargon II are not system format. 

With FLEXL, which is one of the 
two programs, you can make back-up 
copies of any system format tape. 
Most often a cassette that you make 
will load easier than an original. 
Plus you can find the filename on 
any system tape because it is 
displayed on the screen. And at 
any time you can stop the reading 
of the tape by pressing <BREAK>. 

For any machine language 
programmer, FLEXL offers the 
advantage of producing more 
efficient tapes than the assembler. 
Also, it is written to interface 
directly with monitor programs. 
And you can merge machine language 
tapes into one file. 

Disk drive owners can use TDISK 
to save any system format tape onto 
disk. Adventure, Airaid, Ting- 
Tong, Editor Assembler and other 
programs cannot normally be loaded 
to disk using TRSDOS. Now, TDISK 
allows you to save these programs 
onto disk. After DOS READY you 
will be able to simply type the 
filename and be up and running. It 
even loads non-contiguous tapes. 
TDISK will greatly increase the 
benefit of owning a disk drive. 

And as a FREE BONUS, Acorn 
provides instructions on how to 
load MicroChess 1.5 onto disk. 

Complete your system with the 
routines not found in either Level 
II or DOS for only $14.95. Order 
your System Savers, today! 



All programs for TRS-80 
16k, Level II computer. 



•♦♦¥♦**»♦*« 



****♦***¥♦*¥♦**# 




PINBALL 

by John Allen from Acorn 
Get your flipper fingers ready for 
action in this real-time, machine 
language qame. Lots of sound and 
flashing graphics. There are five 
speeds so anyone can play. This 
version features the dreaded 
"Bermuda Square"! 
Protected tape $14.95 
Protected disk $20.95 



FLIGHT 
SIMULATION 

from Sub-Logic 

The wait is over. 3D graphics 
would seem impossible given the 
resolution of the TRS-80. But wait 
till you see this package. Even if 
you don't order it, try to see this 
one. 

First you must learn to fly 
using instruments, radar and the 
cockpit window view. While it is 
easy to take off, it is even easier 
to crash. 

Once you have some air time, 
bomb the enemy fuel depot. They'll 
send five war planes after you. 
Each one maneuvers differently in 
dogfights. Good luck. 

Level I and II $25.00 

DEATH 
DREADNAUGT 

from Programmer's Guild 
This machine language adventure is 
twisted! Around every turn death 
awaits. Be careful of what you 
touch. Disgusting room 

descriptions. For those who would 
like a ghoulish adventure. $14.95. 



Also available from 
Programmer's Guild are 



the 
two 



adventures written in BASIC: Spider 
Mountain and Lost Dutchman's Gold. 
$14.95 each. 
All three on disk for $35.00 

RESCUEdtRIGEL 

from Automated Simulations 
In this first Starquest you must 
save the prisoners of the evil High 
Tollah. There are both a different 
style of play and features than 
Dunjonquest, but similar floor 
graphics . 

Tape Disk 
Rescue at Rigel $14.95 $19.95 
Temple of Apshai 24.95 29.95 
Datestones of Ryn 14.95 19.95 
Morloc's Tower 14.95 19.95 



X X X X X X X 
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INVADERS 
FROM SPACE 

by Carl Miller from Acorn 

"Maybe it's too fast!" Perf erred 

by all the local arcade addicts, 

this machine language game has 

great sound. Alien Invasion, 

Invaders, and Invaders Plus just 

can't compete. You can adjust six 

parameters including the speed, if 

you think it's too fast. Only a 

few heros will be able to save 

earth. 

Protected tape $14.95 

Protected disk $20.95 



THE 
BCZXDK 

ACCESSING 
THE TRS-80* ROM 




from Insiders Software Consultants 

For the learner or expert! This 
first of three volumes gives you access 
to over firy arithmetic, mathematical, 
and data conversion routines. Includes 
from Insiders Software Consultants 

For the beginner or expert! This 
first of three volumes gives you access 
to over fifty arithmetic, mathematical, 
and data conversion routines. Includes 
sample programs, a disassembler program, 
and a commented listing of these ROM 
routines. 

A memory map noting over 500 



addresses is included. 



136 



pages. 



fis&IDE LEVEL II 

by John Blattner, PhD from Mumford 

Much to our surprise, this book and 
THE B00K are complimentary. The style 
is easy but packed with information, 
though there is no commented listing of 
the ROM. For both Disk and Level II, 
complete entry and exit information is 
included for conversion, arithmetic, 
mathematical, keyboard, cassette and 
video routines. Part two describes how 
to link assembly language with BASIC. 

DISASSEMBLER 

by Roy Soltoff from Misosys & Acorn 

This two pass, machine language, Z-80 
disassembler produces symbolic labels 
with output to either the video monitor, 
printer or tape. Radio Shack's Editor 
Assembler can load the tapes. If you 
own the Editor/Assembler, complete the 
package with this program. Program on 
tape for two different memory locations. 
Cassette version NOW only $14.95 



aoaoaaaaooouaoDaanaoaanDnaaooaanaonnnDan 

THE PROGRAM STORE 
4200 Wisconsin Ave NW 
P.O. Box 9609 
Washington DC 20007 



VISA AND ^ mm 

MASTERCARD i &* 



TO ORDER 

TOLL FREE 

800-424-2738 



For program information call 
(202) 337-4691 



Mail orders : Send check or 
money order for total purchase 
price, plus $1.00 for shipping 
& handling. Charge card cus- 
tomers, please include card 
number, expiration date, and 
your name as it appears on the 
card. 



7020 PRINT: PRINT"LOG ADJUSTMENT" :D=INT (F/100 ) 

7030 FOR X=1T048:IF L(D,X)=A THEN L (D,X) =1:GOTO7070 

7040 NEXT X:D=D+1:IF(D*100)<G GOTO7030 

7050 PRINT"RELOGGING":S=A(A+48) :U=F :V=G:GOSUB9500 

706 PRINT"LOGGED";A(A+48)-S:A(A+48)=S:GOTO7100 

7070 A(A+48)=A(A+48)+l 

7080 L(D,0)=L(D,0)-A(A+24) :GOTO7040 

7100 D=INT (F/100) : PRINT :PRINT"WORKING" 

7110 FOR X=1T048:IF L(D,X)=1 THEN L(D,X)=0 

7120 NEXT:D=D+1:IF(D*100)<G GOTO7110 ELSE 5000 

7998 ' 

7999 REM *** COMPLETED LOG *** 

8000 PRINT: INPUT"WHICH HOUR" ;H : Y=INT (H/100) : IF H+48<F OR H>2400 GO 
TO8000 

CLS:U=1:V=13:W=25:Z=37 
PRINTH+U;"=";L(Y,U) , 
PRINTH+V; "=";L(Y,V) , 
PRINTH+W;"=";L(Y,W) , 
PRINTH+Z;"=";L(Y,Z) 
U=U+1 : V=V+1 :W=W+1 : Z=Z+1 
IF U=5 OR U=9 PRINT 
IF U<13 GOTO8020 

PRINT: INPUT"CONTINUE (Y/N) : ";XS:IF ASC(XS)=78 GOTO5000 
H=H+100:Y=Y+1:IF H>=G GOTO5000 ELSE 8005 

REM ** TIME TO EVENT CONVERSION *** 

PRINT: INPUT"ENTER BEGINNING TIME: ";U:IF U=0 RETURN 

INPUT"ENTER ENDING TIME: ";V 

D=INT(U/100)*100:U=(D+1)+(U-D)*.8 

E=INT(V/100)*100:V=E+(V-E)*.8 

U=INT{U+.01) :V=INT(V+.01) :IF U<F OR V<U OR V>G GOTO9090 

PRINT: PRINT"FIRST POSITION = " ;U : PRINT "LAST POSITION = ";V 

PRINT: INPUT"CORRECT ";XS:IF ASC(XS)=78 GOTO9000 

RETURN 

PRINT: PRINT"ERROR - REDO" :GOTO9000 



8005 
8020 
8030 
8040 
8045 
8050 
8055 
8060 
8070 
8080 
8998 
8999 
9000 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9410 
9420 
9430 
9450 
9460 
9498 
9499 
9500 
9505 
9507 
9510 
9520 

9530 
9540 
9550 
9560 
9570 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9700 
9710 
9720 
9800 
9810 



REM *** ACCOUNT ENTRY *** 

PRINT: INPUT" ACCOUNT #";A:IF A=0 RETURN 



TESTS ACCOUNT NUMBER 
IS ACTUALLY A CAROUSEL 
AND SLOT POSITION 



IF A>124 AND A<201 GOTO9450 : REM 
IF A>224 AND A<301 GOTO9450 : REM 
IF A>324 AND A<401 GOTO9450 : REM 
IF A<101 OR A>424 GOTO9450 
IF A(A)<>0 GOTO9460 

PRINT: INPUT"PRODUCT CODE ";A(A):IF J=l RETURN 

INPUT"SPOT LENGTH " ; A ( A+24 ) : IF J=2 RETURN 

INPUT'NUMBER SPOTS " ; A (A+48 ): RETURN 

PRINT" INCORRECT ENTRY - REDO" : GOTO9400 
PRINT"NUMBER ALREADY IN USE" :GOTO9400 

REM *** LOGGING *** 

R=A(A+24) :K=0:RESTORE:Z=0 

M=INT(A/100) :C=N:IF C=l GOTO9510 

C=INT(10/S) :IF C<1 THEN C=l : REM ** ESTABLISHES SPREAD 

H=INT(U/100) 

READ L:L=L+M-1:Z=Z+1:IF Z=B RESTORE:Z=0 : REM ** FILL CLUSTER 

S IN ORDER SPECIFIED 

D=H*100:IF D+L<U THEN H=H+1 : GOTO9530 

IF D+L>V GOTO9510 

IF L>H+48 THEN H=H+1 :GOTO9520 

IF L(H,L)<>0 GOTO9800 : REM ** DESIRED SPACE NOT EMPTY 

IF L(H,0)+R>Q THEN H=H+1 :GOTO9530 

T=0:X=1 : REM ** NEXT LINES CHECK FOR PRODUCT CONFLICT 

IF M<3 THEN W=L(H,L+X) :T=A (W+24 ) +T: IF A(A)=A(W) GOTO9800 

IF M+X<3 THEN X=X+1 :GOTO9610 

X=1:IF M=l GOTO9660 

W=L(H,L-X) :T=A(W+24)+T:IF A(A)=A(W) GOTO9800 

IF X<M-1 THEN X=X+1:GOTO9640 

IF T+R>I GOTO9800 : REM ** CHECK CLUSTER LENGTH 

PRINTA; "LOGGED AT";D+L:K=0 

L(H,L)=A:L(H,0)=L(H,0)+R:S=S-1:IF S=0 RETURN 

H=H+C:GOTO9530 : REM ** NEXT ATTEMPTED HOUR 

K=K+1:IF K>0 RETURN : REM ** NUMBER OF ATTEMPTS TO LOG 

H=H+1:GOTO9530 





Photo 5. All account entries displayed before final logging for any 
corrections to the general account entries. It's too late to correct the 
specified time accounts as they are already logged. 



Photo 4. Special logging of an account that must be logged manual- 
ly at a specific log position. In this case account 101 will be logged at 
position 1204. 



time, remember). The computer 
immediately converts these to 
log positions. The computer will 
still have 48 positions per hour 
whether you are using all of 
them or not. As with most en- 
tries in this program, the com- 
puter will feed it back to you and 
give you the opportunity to re- 
consider. 

Next comes a request for pro- 
gram minutes. If you have any 
commercial time within an hour 
that you won't log through the 
computer, you enter it so the 
computer will keep an accurate 
record of your total commercial 
time each hour. Simply enterthe 
hour, then the minutes within 
that hour. When you're finished, 
enter a zero for the hour and the 
program will move on to the next 
segment. If you seldom ap- 
proach the maximum commer- 
cial time you accept, you may 
wish to eliminate this section. 

To help you in program modi- 
fication, I have spaced the print- 
out between sections of the pro- 
gram and placed a heading on 
each. 

The next section allows you 
to protect one or more specific 
log positions from being used 
by the computer. To protect the 
noon hour, fifth position, from 
any entry by the computer, enter 
1205. You may protect as many 
positions as you wish; enter a 
zero when you're done. If you 
have little need for this section, 



eliminate it. Conversely, you 
may wish to expand this section 
so that instead of protecting an 
individual log position it sets 
aside the entire cluster. To do 
this you might enter the first 
position of the cluster to be pro- 
tected and change line 740 to 
that in Example 1. 



740 L(X,Y) = 100:L(X.Y + 1) = 100:L(X,- 
Y + 2) = 100:L(X,Y + 3 = 100:GOTO710 

Example 1. 

Beginning with the next sec- 
tion, enter your first account 
numbers. These always consti- 
tute a three-digit number with 
the first digit indicating the car- 
ousel (1-4) and the next two 
digits the slot within that carou- 
sel (01-24). A commercial load- 
ed in carousel #2, slot 4, is 
entered as account 204. 

You also have to supply perti- 
nent data, such as the product 
code, commercial length and 
number of commercials, about 
each account. You must know 
which commercials have specif- 
ic logging requirements such as 
time and product protection. 
This program gives product pro- 
tection only within the cluster in 
which the account is logged. 

If you wish to increase prod- 
uct protection beyond one 
cluster, you must modify lines 
9620, 9630 and 9650 of the log- 
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UTILITY PACK 



CPU: Compress Program Utility. Removes all unnecessaryspaces and remarks 
from a Basic program, and will compress lines if specified. Complete regard 
for unclosed strings and unusual commands. Fast 2-80 speedlLevel II or DOS. 
S19.95/S21.95 

SEARCH: Lists any Basic program lines containing any occurance you select. 
Break at any time to make changes, or continue. Option allows for LPRINTerJ 
listing. Written in Z-80! Level II or DOS. S19.95/S21.95 

SPECIAL DOS OFFER: All of these utilities, on one diskette, can be purchased 
for just $49.95! THAT'S HALF PRICE! 



BTRACE: Makes the TRON command easier to utilize by placing the current 
line being executed in one convenient location. Preserves your screen display. 
Level II or DOS. Written in Z-80. $19.95/321.95 

CHANGES: Generates a screen or printed listing of differences between vers- 
ions of programs you are developing. DOS only. $14.95/$16.95 

REPLACE: Allows you to search and replace occurances in your Basic pro- 
grams (saved in ASCII format). DOS ONLY. $14.95/$16.95 

SPECIAL LEVEL II OFFER: CPU, SEARCH, and BTRACE, together on one 
cassette, can be purchased for just $29.95 THAT'S HALF PRICE! 



NEWEST PRODUCTS! 

Microsoft's Basic Compiler $175.00 

Apparatus NEWDOS-80 149.00 

Six Micro Stories (disk) 19.95 

Local Call To Death (disk) 19.95 

Two Heads Of A Coin (disk) 19.95 



BOOKS 

The Book, Vol. 1 $14.95 

Supermap 8.95 

Disk & Other Mysteries 19.95 

Disassembled Handbook, Vol. 1 10.00 

Disassembled Handbook, Vol. 2 15.00 

Inside Level II 15.95 



MEDIA 

Nashua diskettes $24.95/10 

Verbatim diskettes '. 26.50/10 

C-10 Agfa cassettes (5 screw) 10.95/13 

Storage boxes 3.00/ 1 



BEST SELLING GAMES 

MENTAL LAPSE — by Brandon Rigney III. A 
graphic lovers delight, with action to tax your 
abilities to the limit! $12.95/$15.95 

JUNGLE — by Brandon Rigney III Getting back 
to camp may not be as easy as you think! Six 
different levels of complexity make this a game 
for the entire family. $9.95/$12.95 

CURTAINS — by Brandon Rigney III. A con- 
centration game with several unique twists: great 
graphics, too! $9.95/$12.95 
GOMOKU — by Peter Lewis. Can you beat the 
computer at this one? Similar to tic-tac-toe, only 
you need five in a row to win. The rules are simple, 
but there is a strategy! $9.95/$12.95 

OTHELLO — by Jack Decker. An excellent 
implementation of the popular board game. One 
or two players, different skill levels Option for 
keeping score thru the game. $9.95/$12.95 

CRIBBAGE — by Richard Vossel. Plays by Hoyle. 
Fast response times. Guaranteed debugged. 
Excellent for learning (use the HELP function), 
or for the expert. Satisfaction guaranteed! 
$16.95/$19.95 (versions are different) 
Specify Level II or DOS. 
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Know what the three T's of computing 
are? Tips, Tutorials, and Techniques. 
That's what The Alternate Source News 
is all about. Teaching you to become a 
better programmer, both in Basic and 
Assembly Language. Published bi-monthly, 
six issues are just $9.00. 

TRS-80 Is a trademark ol Ihe Radio Shack Division ol Tandy Corporation. 



QUILL DRIVER & DVR 

Quill Driver is an extremely versatile text for 
matter which includes several valuable 'extras'. 
QD will interface with alternate input files to 
allow user creation of form letters, yet with a 
personal touch. QD features over 30 commands 
to handle even the most difficult problem for- 
mats. QD has embedded machine language 
routines to provide speedy output. QD will allow 
output to be directed to screen, printer or disk 
files. QD text files may be Basic remark state- 
ments.EDTASM files, or EDIT80 files. Certain 
Pencil and Scripsit files are even compatible! 
Quill Driver comes with a driver (DVR) to allow 
lower-case/shifted-upper-case input, and fea- 
tures a simulated shift-lock! DVR allows lower 
case input even without a lower case mod, 
although it isn't visible on screen and also fea- 
tures a 'route-to-the-printer' control key func- 
tion. The Quill Driver manual is extensive and 
very well written. Sample files are included. 
$39.95 complete. 

DVR is available separately, with a relocating 
module to allow users to dump the program in 
a specified memory location, for $9.95 on 
cassette or $12.95 on diskette. LEVEL II and 
DOS versions on the same cassette. 



ABSOLUTELY FREE! 

For every single item over $15.00 that you order, select one of the FREE programs 
below! (Available separately for $5.95 each.) 

KILLER: A DOS utility that allows 
you to KILL more than one file at a 
time! By Allan Moluf. 
PEN RAM : A utility which allows RAM 
manipulation never before possible! 
By Roxton Baker. 

FILEFIX: Direct statement in file? Fix 
it the easy way. with this short pro- 
gram! By Ken Edwards. 
PERSONAL PAYABLES: A DOS 
personal finance management system, 
using random files. By Charles Butler. 
CONVERT: Basic programs to Pencil 
files and back. Basic remark state- 
ments to either Pencil or EDTASM for- 
mat and back. And more. By Bruce 
Hansen. 



SYSLOAD: A patch to DOS to allow 
/CMD file execution via the Basic 
SYSTEM command. By Jesse Bob 
Overholt 

RAMTEST: Level II or DOS. In Z-80 
using reliable techniques. By Allan 
Moluf. 

SUPERKEY: A graphics typewriter 
like you've never seen before! By 
Brandon Rigney III 

BILLBOARD: Generate posters for 
social occasions and friends. By 
Brandon Rigney III. 

WORKING: Never have you seen a 
program work so hard and get so 
little done! By Bill Brown. 



VERSATILE UTILITIES 

OS/80 PATCH: Just released! A limitation of OS/80 (formerly known as 
Microdos) has been its lack of ability to handle machine language programs. 
With this utility, you can now save, load, copy, read as data and otherwise 
manipulate such programs. OS/80 is $29.95. OS/80 PATCH is $14.95. 
COPYDISK: Allows you to copy one or several disk files at one time from DOS 
Drive does not have to contain a system diskette once program is loaded. 
Ideal for single drive owners, great for dual drive owners! $11.95/$15.95. 

SPOOL80: Spool your output to disk, then use the PRINT command in DOS 
for maximum printer efficiency! Includes source code. $16.95 on diskette only. 

DISKLIB: Allows you to automatically read diskette directories and store 
all entries in a master file. Will sort, edit or LPRINT in the format you desire. 
$9.95/$12.95 



ORDER BLANK 



Please send: 



D Ship UPS 



□ Ship First Class Mai 



Also applies to other vendors products! See below. 



AND LAST BUT NOT LEAST . . . 

The Alternate Source distributes products from over 30 different vendors. Call 
or write for products that you desire. 



Automated Simulations 
Racet Computes 
MISOSYS 
Fuller Software 
Richcraft Engineering 
Webb Products 
ABS Suppliers 



Instant Software 

Microsoft 

Apparat 

Cottage Software 

Percom 

Meta Technologies 

Acorn Software 



International Data 

Mumford Micro 

IJG International 

SubLogic 

80 U.S. 

And others . . . 



When placing your order, feel free to include any product from the above 
companies. We appreciate the opportunity to service your software needs! 



Address 

City 



Shipping 
Total _ 



S2.00 



Mail To: The Alternate Source 
1806 Ada Street 
Lansing. Ml 48910 

We will ship C.O.D. 
(add $1.25 please) 

trademark of the Tandy Corporation 



Master Charge/VISA 
517-485-0344 
517-487-3358 TRS-8 

D Check here for FREE issue of The Alternate Source with any order. 
□ Enclosed is $9.00 Begin my subscription with issue » . 

Michigan residents add 4% sales tax. Foreign, please send U S. funds. Foreign orders 
welcome but please include additional postage 



s Reader Service index— see page 194 
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Pfrofo 6. Logging completed, you can now choose the displays as 
you need them. 



ging subroutine. This program 
thinks in terms of log position 
only, never time. 

The product code identifies 
the product type being promot- 
ed to avoid conflicts within the 
same cluster. The product code 



is always numeric, never alpha- 
numeric. Any number of product 
codes may be used; however, 
the more is not the merrier ... it 
becomes confusing. Thirty 
numbers or less should provide 
sufficient categories for most 



stations; we use 14. Your ex- 
perience in your own station 
should dictate how many are 
best for you. 

All commercial length must 
be entered in seconds. If the 
same account is running more 
than one length commercial, 
you must load each as a sepa- 
rateaccount. Remember, the ac- 
count number really only iden- 
tifies a specific cartridge play- 
ing in a carousel. It is not good 
scheduling to have commercials 
of differing length on the same 
cartridge, even for the same 
client, since one miscue can 
throw the whole rotation off. 

Generally, entering a zero ex- 
its you from most routines. If 
you attempt in this section to 
place on account in a space 
already filled, the computer 
asks permission before remov- 
ing it. The program generally is 
built around double checks 
such as this to avoid simple en- 
try errors that can wreck a log. 

Computer Logging of Accounts 

The "specified times" section 



is only for accounts that must 
be logged within specified time 
periods, as opposed to the previ- 
ous section where the account 
had to be aired at a specific 
time. Any number of time 
periods can be required for any 
one account, but one time 
period for one account must be 
finished before you proceed to 
the next. 

The computer will guide you 
step by step through this sec- 
tion by asking you the beginning 
and ending of one time period 
and the number of commercials 
for that client to be logged 
within that period. The time 
period will be converted to log 
positions, and the computer will 
still have 48 positions per hour, 
even if you "locked out" some or 
most of these positions. 

When you have entered all ac- 
counts that must be logged 
within specific time periods, 
enter a zero for the next account 
number. If a particular time 
period becomes crowded, you 
can run out of log positions for 
individual carousels within that 
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MOD II UTILITY PACKAGE 

Replacement Debug (DEBUG) 

35 basic functions + 8 edit commands! Single step or Multiple 
step. Automatic trace of logic flow with printing of trace, trace of 
instructions greater than stack pointer values, and rapid trace. 
Subroutine calling. Automatic program looping. Dynamic 
disassembly of instructions!!! 
Directory Catalog System (XDIR) 

Build directory of directories!! Sorts by disk or by program. 
Abbreviated or full form — full form includes dates of creation 

and last update, and other directory data. 
Wild card select options with masks. Build consolidated 

directory of all GL#?/BAS files. Select on filename and extension. 
Save or load XDIR catalog files. 
Concatenate new data with loaded file. 
Extended Copy (XCOPY) 

Copies multiple files with a single command using masked select 
options! Source disk may be non-operating system disk. Single 
drive capability. Recover bad files — invalid sectors itemized but 
copy continues. 

Merge files with or without replacement. 
Superzap (SZAP) 

Display or print and modify standard TRSDOS diskette track and 
sector data. Full screen edit mode. Automatic repeat scan and 
print. Copy disk sectors — any number of sectors to same or 
other drive. 

Directory Fix (DFIX) 

Automatic repair of HIT tables! List and flag directory errors. 
Disk Identification (DISKID) Change diskette names! 
Extended Create (XCREATE) Creates and initializes file to end. 
DOCUMENTATION 

Complete documentation of above utilities including a full dis- 
cussion on recovery of lost data on diskettes! ! ! 

Mod II Utility Package $150 Manual only $20 refundable 



MOD II BASIC CROSS REFERENCE UTILITY 

SEEK and FIND functions for: 

Variables, Line Numbers, Strings, Keywords 

'AM' options available for line numbers and variables. 

Load from BASIC - Call with <CTRL> R 

Output to screen or printer. 

BASIC CROSS REFERENCE UTILITY $50 

INFINITE BASIC for MOD I TRS-80™Tape and Disk System 
Extensions to Level II and Disk BASIC $49.95 

Full MATRIX functions — 30 BASIC commands! 
50 more STRING functions as BASIC commands! 
Includes RACET in-memory sorts. Load only functions you want — 
where you want in memory! More than you expect! 

oo BUSINESS (Requires infinite BASIC) $29.95 

Automatic printer pagination. Packed decimal arithmetic - 127 digit 

accuracy. Binary array searches. Hash code. 
COMPROC Command Processor for Disk Systems $19.95 
Auto your disk to perform any sequence of commands. 
GSF (Specify 1 6, 32 or 48K Memory) $24.95 
18 machine language routines including RACET sorts. 

DISK SORT MERGE (DSM) for MOD I and MOD II 

Random file disk sort merge — multi-diskette files. All machine 
language stand alone package. Sort on up to 15 fields — ascending 
or descending. Provides optional output field deletion, rearrange- 
ment, and padding. Sort an 85K diskette in less than 3 minutes! 
DSM for Mod I (Minimum 32K, 2-drives) $75 on Disk 
DSM for Mod II (Minimum 64K, 1 drive) $150 on Disk 
Mod II Development Package $100 

Machine language Superzap — Editor Assembler, Disassembler 

Patches. 
Mod II Generalized Subroutine Facility $50 
Sort 1000 elements in 6 seconds! 

• 41 



CHECK, VISA, M/C, CO. D. 
Calif. Residents add 6% 
when ordering please Telephone Orders Accepted (714)637-5016 

ADVISE PUBLICATION SOURCE TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORPORATION 702 PallTldale, Orange, CA 92665 
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IX 






,1 have a stand to sit on. 



Trimm's universal printer stand can 
get you up and running for just $94.95. 
Our stand is as rugged as they come 
and as attractive as you want. It has 
a large chrome rear-mounted paper 
basket, plastic cushioned leveler feet 
and textured black baked enamel finish. 

Take delivery within days of your 
order. Trimm ships immediately. 

The Trimm stand comes packaged 
and ready for immediate assembly and 
mounting of your printer. Please specify 
your printer model when ordering. 




Trimm stand fits: 
TRS-80 Line Printer III 
DEC LA34 

Most Centronics 700 series 
Texas Instruments 810-820 
NEC Spinwriter series 
Okidata Slimline series 
Lear Siegler 300 
Diablo 1600 & 2300 series 

irtimm 

Enclosure Products 

Computer and Peripheral Desks, 
Tables, Vertical Enclosures, Printer 
Stands, Accessories. 



^385 



$94.95 (or less, when you want more. 
Distributor inquiries invited.) 



Trimm Enclosure Products 11939 Sherman Road, No. Hollywood, CA (213) 982-0400 



^Reader Service index — see page 194 
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This Weekend: 

STIK 

IT.... 
••to your 



That's right! Esmark's VIDIET-STIK light pen has the TRS-80 CONNECTION 
for LEVEL I & II. Your 4K to 48K TRS-80 System will come alive under your 
VIDIET-STIK within mi nutesot its arrival. That's because there are no wires to 
solder or traces to cut. You're up and running as fast as you can plug the 
interface into your system's cassette EAR-jack, CLOAD our custom LIGHT- 
WAVE demonstration software and RUN. And because the interface has a 
plug for your recorder, you won't have to unplug it again when loading your 
other software tapes. The interface allows them to pass right thru whenever 
you're not using the pen. It's exclusive "switched tip" design means the pen's 
electrically isolated from your system when it's not in use. Just point & press! 
It's that simple... Plug, CLOAD and RUN. And have we got the software for you 
to RUN with! Our demonstration tape includes a calibration program (used to 
adjust the CRT's brightness and contrast) plus STIK-TAC-TOE, AWARI and 
TOWERS. Two challanging games and a puzzle that will keep grownups and 
children Stik'ing it to your TRS-80 for hours. And there are instructions 
provided so you can begin writing your own light pen programs (lightware) 
for fun or profit (Level II). Or, just sit back and enjoy our LIGHT-WAVE tapes 
each month. Esmark's unmatched commitment to lightware can bring you up 
to five new games, puzzles, drills&educational quizes or simulations each 
month. Our current LIGHT-WAVE releases are: 



LIGHT-PAK2 — LIGHTPEG (4 peg-jump puzzles) 

ENDRUN (Othello with a 'twist') 
(LEVEL II) LIFE9 (Conway's LIFE with mutations) 

Price: $19.95 (including postages handling) 
LIGHT-PAK3 — LITEGAMMON (Backgammon you'll Stik with) 
(LEVEL II) STIKWUMPUS (Caves with a little 'lite') 

MAZEMASTER (Maze after maze to poke thru) 

PRICE $19.95 (including postage & handling) 

Order yours now and we'll include a free copy of FLASHBACK, Esmark's 
newsletter dedicated to the latest news in lightware applications. And, don't 
forget to tell your friends. The VIDIET-STIK can also be ordered for use on 
most other micro systems using the following processor chips: 



T 
R 

S 

8 
O 



8080 



280 



6800 



6502 



All that's required is a standard cassette jack leading to Ground and a 
readable single bit input port. Driver software is provided along with 
instructions for writing lightware applications. And tell your local Dealer that 
Esmark's got a Dealer package he won't want to miss out on. Delivery is 3 to 6 
weeks from receipt of your order. CO.D.'s are $3.00 extra but will be shipped 
within two weeks. All prices are F.O.B. Mishawaka, Indiana. Indiana residents 
add 4% state sales tax. 



ALSO COMING FROM ESMARK: 

[ ] TRS-80 Printer Interface (Cassette AUX-jack interface for all RS232 
printers. Includes LLIST& LPRINT software) 

[ ] TRS-80 RS232 Communications Interface (Makes your TRS-80 a full 
I/O terminal to timesharing systems the world over. Gives you 
intelligent or dumb terminal capabilities at 110 or 300 BAUD. Also 
includes Printer Interface above with 20 mA current loop & TTL level 
I/O options.) 

— TRS-80 is a trademark of the Tandy Corporation — 
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507V2 E. McKINLEY HWY. MISHAWAKA, IN 46544 
(219) 255-3035 
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period. The computer informs 
you of the lack of available posi- 
tions within that period with a 
query if other periods are avail- 
able. If you can expand the time 
period for that account to in- 
clude even one more cluster, 
answer "yes," and you will be 
given the opportunity to do so. 

All remaining accounts will be 
entered under "general ac- 
counts." Everything entered in 
this section spreads throughout 
the broadcast day on a more-or- 
less even basis. The major dif- 
ference in this routine and 
previous ones is that you were 
asked immediately if the entry 
was correct; now you conclude 
all entries before you get a 
chance for corrections. The 
reason for this is that in all 
routines prior to this the ac- 
counts were actually logged as 
you fed them into the computer. 
All remaining accounts are log- 
ged as a group. 

When you have entered the 
last account, enterazero. All the 
accounts are now displayed for 
you for individual correction. All 
accounts entered under the 
"specified" routines show a 
zero for number of spots. This 
means they are logged and 
don't need corrections. 

To correct an entry, state 
"no"— the entries as they stand 
are not correct. Enter the ac- 
count number of the incorrect 
entry, and you get an opportuni- 
ty to reenter all the data. The 



display then begins again at 
that account. Once you verify 
that all entries are correct, the 
final logging process begins. It 
should conclude in a matter of 
minutes. 

During the logging process 
you get "comfort" displays of 
what the computer is doing to 
assure that it is doing some- 
thing. 

This is important in initial 
runs or after modifications to 
see if some program error has 
caused you to "hang up." If 
entered correctly, the program 
cannot hang up during the log- 
ging process. During logging 
the display informs you which 
carousel is being logged and 
where each account is being 
placed. The computer does not 
require your attention during 
this process. 

At the conclusion of the log- 
ging process you get a choice of 
five displays: 

Account List 

Account Logging 

Log Analysis 

Re-log 

Completed Log 

Account List merely displays 
each account number and any 
commercials that can't be 
logged. If any were not logged, 
you might be oversold for the 
commercial minutes you al- 
lowed, or had more of one prod- 
uct code than you had clusters. 

Account Logging shows you 
where any account you select is 



PLUS $1.50 
•ELECTRONIC SYSTEMS MARKETING POSTAGE & 

HANDLING 




Photo 7. Account List display indicates that all accounts in this car- 
ousel are logged. 
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logged. This is good for spot- 
checking the spread of the 
general accounts or that a 
specified time account is 
logged within the time periods 
specified. 

Log Analysis merely displays 
the total commercial minutes 
logged within each hour of the 
broadcast day. If you declared 
any minutes at the beginning of 
the program not logged through 
the computer, these would be in- 
cluded in this display. 

The Re-log program is your 
opportunity to tell the computer 
you do not like the log positions 
selected for any given account 
and to do that account over 
again with new positions. You 
cannot specify the time periods 
of a re-logged account. If you tell 
the computer to re-log an ac- 
count you logged within speci- 
fied time periods, the computer 
will warn you and give you an op- 
portunity to reconsider. If you 
continue, that account may be 
placed anywhere on the log 
where vacancies occur. You 
may re-log an account any num- 
ber of times. 

The final display, Completed 
Log, shows you one hour of the 
log at a time beginning with the 
hour you specify. If you specify 
an hour before sign-on or after 
sign-off, your request is ignored. 
The display moves in sequence 
through each hour as long as 
you tell it to continue until it 
reaches sign-off. If you wish to 



look only at a specific hour and 
return to the menu, you may. 

Each log position (1-48) for 
the hour is shown with the ac- 
count number logged at that 
position. Where no account is 
logged a zero is displayed. We 
tried the display with simply a 
blank space when no account 
was logged; but for some 
reason, our logger found it 
easier to copy with the zeros 
present. 

Program Embellishments 

Naturally there are error traps 
throughout the program to 
catch the most obvious entry er- 
rors. I don't claim perfection, 
just reasonable performance. 

Remarks spaced throughout 
the program aid you in under- 
standing points that are most 
likely candidates for mod- 
ification of confusion. I added 
these remarks specifically for 
this article, they are not a part of 
our running program. You will 
have memory available for many 
more routines if you eliminate 
these remarks from your run- 
ning program. 

The account arrays for prod- 
uct codes, length and number of 
commercials are identified for 
you in lines 9410-9430. 

For 24-hour stations, the com- 
puter must have a sign-on and 
and sign-off time. Enter 100 for 
sign-on, 2500 for sign-off. 

If you have sign-on and sign- 
off times that never vary, you 




Photo 8. The commercial time logged in each hour of the broadcast 
day including any minutes declared at the beginning of the program. 



THE LOWEST 

prices on this high-quality software. Buy direct and save 50%. Now, also 
available for CBASIC on CP/M and MBASIC on HEATH HD0S. 

DATA BASE MANAGER Mod I $69 Morj-ll $199 

You can use it to maintain a data base & produce reports without any user 
programming. Define file parameters & report formats on-line. Key 
random access, fast multi-key sort, field arith., label, audit log. No time- 
consuming overlays. 500 happy users in a year. Mod-ll version with over 
50 enhancements. 

A/R Modi $69 Mod-ll $149 

Invoices, statements, aging, sales analysis, credit checking, form input, 
order entry. As opposed to most other A/R, ours can be used by doctors, 
store managers, etc. 

WORD PROCESSOR Modi $49 Mod-ll $49 

Center, justification, page numbering... Used for letters, manuals, and 
reports. Mod-I version features upper/lower case without hardware 
change! 

MAILING LIST Mod-I $59 Mod-ll $99 

The best! Compare and be selective. Form input, 5-digit selection code, zip 
code ext., sort any field, multiple labels. Who else offers a report writer? 

INVENTORY Mod-I $99 Mod-ll $149 

Fast, key random access. Reports include order info, performance 
summary, E.O.Q., and user-specified reports. Many converted their 
inventory to ours! 

PAYROLL, A/R, A/P, and GL available for the Mod-ll DOS and CP/M. 

L216. a cassette package of 10 business programs for Level II 16K 
systems, S59. 

All programs are on-line, interactive, random access, virtually bug free, 
documented and delivered on disks. Mod-I programs require 32KTRSD0S, 
and credit is allowed when you upgrade to Mod-ll. We challenge all 
software vendors to offer low cost manuals so you can compare and 
avoid those high-priced, undocumented, 'on-memory' programs. 
Manuals alone $5 for Mod-I, $10 for Mod-ll. Don't let our low prices fool 
you! 

Mod-ll programs are extensively modified, guaranteed to run with 1 year 
newsletter and updates. 10% off for ordering more than 1 Mod-ll program. 

MICRO ARCHITECT, INC., ^ 

96 Dothan St., Arlington, MA 02174 



TRS-80 is a registered trademark of TANDY CORP. 




USYSTEM 
EXPANSION 

FOR THE 

TRS-80 M 



b$69 ,s [ 



PC BOARD & 
USER MANUAL 



] 



O 



• .;.if.»k- •.-,• .' • ';., «•' "' " •" Ji 



WIUMI 

:::k.:, ;ii 



1 Juvt**£E 




• SERIAL RS232C 20mA I 

• FLOPPY CONTROLLER 

• 32K BYTES MEMORY 

• PARALLEL PRINTER PORT 

• DUAL CASSETTE PORT 

• REAL-TIME CLOCK 

• SCREEN PRINTER BUS 

• ONBOARD POWER SUPPLY 

• SOFTWARE COMPATIBLE 

• SOLDER MASK,SILK SCREEN 

LNW 
RESEARCH „» 

8 Hollowglen St. Irvine CA 
714-552-8946 92714 



P.O 



TO ORDER 

Box 16216 Irvine CA 92713 



Add S3 for postage and handling. 
CA residents add 6% sales tax 




^Reader Service index— see page 194 
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may prefer to eliminate the first 
section altogether and just 
enter a line in the program that 
sets F (sign-on) to your first log 
position and G (sign-off) to your 



last log position. A good line is 
170. I used this to establish a 
basic parameter to give the sub- 
routine a place to start. You can 
then simply eliminate lines 




Photo 9. Sample log page. This is the 7 am log. Note 12 clusters with 
(our events in each, 48 events total. The events do not describe the 
broadcast time but represent only the commercial position within an 
hour. Commercial positions are determined by your programming. 



200-220. 

On the same order, if you have 
the same commercial minutes 
to declare during the same 
hours over a long period of time 
you can include some lines be- 
tween 500 and 510 that automat- 
ically declare these commercial 
minutes without your having to 
enter them. 

You can handle protected 
positions the same way in lines 
700-760 if you have certain posi- 
tions within an hour on every 
log. I suggest you place your line 
between 700 and 710. In each 
case, simply remember to use 
the L array and the first figure 
for the hour, the second figure 
for the log position within the 
hour. In keeping track of the 
commercial minutes for each 
hour, we use log position zero 
since it is a valid array but not a 
valid actual log position. 

Similarly, in the "special log- 
ging" section you can add a 
fixed line for fixed events on 
every log. We use such a feature 
to automatically log all of our 
weather, headlines and news- 



casts. During periods of auto- 
mation we also use it for sched- 
uling our announce carts, 
jingles and station promos. 

A further word about the sign- 
on/sign-off conversion to log 
position and within the speci- 
fied time routine. These assume 
the clusters are spread evenly 
around the hour. If your clusters 
do not, you will be forced to 
rewrite the time-to-event sub- 
routine in lines 9000-9070- Don't 
bother. Simply changethe entire 
routine so that instead of enter- 
ing the times you actually enter 
the log positions. The computer 
operator can simply have a time 
wheel in front of the operating 
position with the clusters clear- 
ly outlined as to their occur- 
rence within each hour. This 
also provides more flexibility in 
changing your format, or if you 
use a variety of formats on dif- 
fering hours. 

As for the rest of the program, 
I am sure you will have little dif- 
ficulty figuring out what I did, 
using your list of variables sup- 
plied at the beginning. ■ 



LYISTC 

makes your T 
a whole new 
animal. 



LYNX isn't just a telephone coupler. 

LYNX is a one-piece total telephone linkage 

system forTRS-80 Level I and II computers. It 

contains all the functions you need to tap The 

Source. Engage your business computer. Play 

games with a computer friend. Or do nearly 

anything you wish. 

Best of all . . . LYNX costs only $239.95*. A mere 

fraction of what you used to have to pay for 

equipment to do the same job. 

LYNX. To get your paws on one, call or write: 



EMTROL 
SYSTEMS, INC. ^ 

1262 LOOP ROAD LANCASTER, PENNSYLVANIA 17601 
Phone 717/291-1116 

VISA or Master Card Welcome 
Q 




'Add $2. 50 tor shipping and handling 

Ftt residents add 6% sales tax. 

Indudes "Terminal" pronram on cassette, instruction manual 




"TRS-80 is a trademark ol the Radio Shack Division ol Tanrjy Corporation.' 



98 • 80 Microcomputing, August 1980 



PROGRAMMING TOOLS FOR YOUR 

TRS-80® 



INSIDE LEVEL II 

The Programmers Guide to The Level II ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Level II 
ROMs which allows the machine language or Basic programmer to 
easily utilize the sophisticated routines they contain. Concisely exp- 
lains set-ups, calling sequences, and variable passage for number 
conversion, arithmetic operations, and mathematical functions, as 
well as keyboard, tape, and video routines. Part II presents an entirely 
new composite program structure which loads under the SYSTEM 
command and executes in both Basic and machine code with the 
speed and efficiency of a compiler. In addition, the 18 chapters 
include a large body of other information useful to the programmer 
including tape formats, RAM useage, relocation of Basic programs, 
USR call expansion, creating SYSTEM tapes of your own programs, 
interfacing of Basic variables directly with machine code, a method of 
greatly increasing the speed at which data elements are stored on 
tape, and special precautions for disk systems. INSIDE LEVEL II is a 
clearly organized reference manual. It is fully typeset and packed with 
nothing but useful information. It does not contain questions and 
answers, ROM dumps, or cartoons. INSIDE LEVEL II $15.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized index of your entire program library from 
disk directories. Program names and free space are read automati- 
cally (need not be typed in) and may be alphabetized with a fast 
Shell/Metzner sort by disk or program. The list may also be searched 
for any disk, program, or extension; disks or programs added or 
deleted; and the whole list or any part sent to the printer. Finally, the 
list itself may be stored on disk for future access and update. "The 
best thing since sliced bread" (January issue of '80 Microcomputing). 
One drive and 32K required. INDEX $19.95 

SINGLE STEP THROUGH RAM OR ROM WITH STEP80 

STEP80 allows you to step through any Basic or machine language 
program one instruction at a time, and see the address, hexadecimal 
value, Zilog mnemonic, register contents, and step count for each 
instruction. The top 14 lines of the video screen are left unaltered so 
that the "target program" may perform its display functions un- 
obstructed. STEP80 will follow program flow right into the ROMs, and 
is an invaluable aid in learning how the ROM routines function. 
Commands include step (trace), disassemble, run in step mode at 
variable step rate, display or alter memory or CPU registers, jump to 
memory location, execute a CALL, set breakpoints in RAM or ROM, 
and relocate to any page in RAM. The display may also be routed to 
your line printer through the device control block so custom print 
drivers are automatically supported. STEP80 $16.95 

MACHINE LANGUAGE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language 
FFTASM routine assembled for 16, 32, and 48K machines, a short 
sample Basic program to access them, a 10K Basic program which 
includes sophisticated interactive graphing and data manipulation, 
and a manual of instructions and examples. The machine language 
subroutines use variables defined by a supporting Basic program to 
make data entry and retrieval extremely fast and easy for custom 
implementation. They perform 20 to 40 times faster than their Basic 
equivalent (256 points in 12.5 seconds), and require less than 1550 
bytes of memory. FFTASM $49.95 



4 SPEED OPTIONS FOR YOUR TRS-80! 

The SK-2 is the most versatile clock modification available for the 
TRS-80. Speeds may be switched between normal, an increase of 
50%, or a 50% reduction; selectable at any time without interrupting 
execution or crashing the program. Instructions are also given for a 
100% increase to 3.54 MHz, though the TRS-80 is not reliable at this 
speed. The SK-2 may be configured by the user to change speed with 
a toggle switch or on software command. It will automatically return to 
normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate 
when the computer is not at normal speed. It mounts inside the 
keyboard unit with only 4 necessary connections for the switch option 
(switch not included), and is easily removed if the computer ever 
needs service. The SK-2 comes fully assembled with socketed IC's 
and illustrated instructions. SK-2 $24.95 

RAM SPOOLER FOR PARALLEL OR SERIAL PRINTERS 

This program is a full feature print formatting package featuring user 
defineable line and page length (with line feeds inserted between 
words or after punctuation), screen dump, and printer pause control. 
The serial version allows baud rate selection from the keyboard. In 
addition, printing is done from a 4K expandable buffer area so that the 
LPRINT or LLIST command returns control to the user while printing 
is being done. Ideal for Selectric or other slow printers. Allows printing 
and processing to run concurrently. Please specify PARALLEL or 
SERIAL (RS-232 interface) version. SPOOLER $16.95 

DUPLICATE SYSTEM TAPES WITH "CLONE" 

Make duplicate copies of ANY tape written for Level II. They may be 
SYSTEM tapes (continuous or not) or data lists. The file name, load 
address, entry point, and every byte (in ASCII format) are displayed 
on the video screen. CLONE $16.95 

RAM TEST FOR LEVEL II 

This machine language program is a very thorough test for several 
types of RAM errors. A complete test of each individual bit in a 48K 
machine takes just 14 seconds. Includes a separate test for power 
line glitches. RAMTEST.....$9.95 



FOR THE MODEL II 

LYNC 

from Midnight Software 

High level data communications for Model lis with CP/M. LYNC will 
send and receive any file with automatic error checking and retries. 
Either end may initiate transfers, and multiple files may be sent with 
wildcard filenames and direct or indirect listing. Remote or local di- 
rectories may be called from within the program. Features full pro- 
tocol, non-protocol file transfer, and real-time conversation modes. 
May be used over phone lines at 300 baud or direct to another 
computer at up to 9600 baud. Also available for other CP/M comput- 
ers. LYNC. ...$95.00 



MUMFORD 

MICRO 

SYSTEMS 



1^144 



ORDERING: Complete satisfaction is guaranteed or a full refund will be made. All programs 
are shipped on cassette unless $5 is included for a formatted (no system) disk. Include $1 
postage and handling. California residents add 6% sales tax. Visa, Mastercharge and COD 
orders accepted. 

Box 435-E Summerland, California 93067 (805) 969-4557 
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UTILITY 



Use this program to keep track of your tapes. 



Tape Librarian 



Raymond J. Herold 
8363 Shady Grove Drive 
Manassas, VA 22110 

Computer tape libraries are 
born in a black hole of 
chaos. 

You start your collection 
simply, with perhaps a Radio 
Shack Blackjack/Backgammon 
tape. Then, you buy a few pro- 
grams from ISI. Once you learn 
the ropes, you write some of 
your own. Other tapes come to 
you from friends and neighbors. 

Before you know it, you've 



begged, borrowed, bought or 
stolen several dozen tapes — 
and they're laying around in dis- 
array. 

Some tapes probably don't 
have labels. Others probably 
have several programs back-to- 
back. Where's the data file you 
were working on last month? 
Sound familiar? You need help. 
You need a tape library manage- 
ment system. 

Little Maintenance 

Tape management systems 
range in complexity from the 



3 - 

4 - 



TAPE MANAGEMENT SYSTEM 

— MENU — 

LIST FILE ENTRIES 

ADD TAPE * ENTRY(S> TO FILE 

UPDATE SELECTED TAPE * 

DELETE TAPE * ENTRYt S > 

LIST FILE ENTRIES ON LINE PRINTER 

SAVE FILE ON CASSETTE 



ENTER FUNCTION'? 



Fig. 1. Options available once a TLMS file is established. 



FILE ENTRIES 



GAME »! 

EDTrtSM 

F'ROGCONV 

STARTREK 

MICROCHESS 

GAMLS *2 



7 LEVEL1 

8 MORTGAGE 
? HOMEAPPL 

10 ISI GAMES 

11 TUTOR1 

12 TUT0R2 



13 ADVENTURES 

14 DATAMAN 

15 GAMES #3 
14 TAPMGT 

17 TAPMGTFILE 

18 PRINTMOH 



1? DMSBKUP 

20 GAMES #4 

21 SARGON 

22 CROSSREF 

23 LOADMOD 

24 RENUM 



+4++++++++++ ++++ + ++ + ++++++++++ + + + ++++++ ++++++ + ++++++++-H- +++ + + + + 

— OPTIONS — 

1 - LIST MORE ENTRIES 

2 - LIST DATA FOR SPECIFIC ENTRY # 

3 - RETURN TO MENU 
? <■• 



Fig. 2. Tape Numbers and Names. 



hand-entered log records of con- 
trol clerks to sophisticated on- 
line cataloging modules. The 
one I describe here is specifical- 
ly for the microcomputer owner. 
Fifteen minutes of file main- 
tenance every several weeks will 
index all of your programs and 
data files. 

The system stores up to 48 
tape entries on a TRS-80 Level II 



with 16K and allows up to five 
file entries for each tape. You 
can index up to 240 programs 
and files. 

The information stored for 
each tape consists of its num- 
ber, its name and a description. 
Data stored for each file com- 
prises its name, date created, 
type of file and tape counter 
position. 



Program Listing. Tape Library Management System. 

10 CLEAR0: CLEAR MEM-467 6 

20 DIM NU(48) ,NMS(48) ,DE$(48) ,F$(48,5) ,DS(48,5) ,T$(48,5 

) ,C${48,5) 
25 F0RZ=1T07:READPL$(Z) :NEXTZ 
40 CLS:PRINT:PRINT"DO YOU WISH TO CREATE A NEW TAPE HAN 

AGEMENT DATA FILE" 
50 PRINT"OR LIST/UPDATE AN EXISTING ONE?" : PRINT: INPUT"R 

EPLY: NEW OR OLD";A$ 
60 IFLEFT$(A$,1)="N"THENSW=1:GOSUB1000:GOTO100 
7 IFLEFT$(A$,1)="O"THENGOSUB8000:GOTO100 
80 GOTO40 

100 CLS : PRINT: PRINTTABf 15) "TAPE MANAGEMENT SYSTEM ":F=0 
110 PRINT:PRINTTAB(5) "— MENU — ": PRINT 
120 PRINT"1 - LIST FILE ENTRIES" 
130 PRINT"2 - ADD TAPE ft ENTRY(S) TO FILE" 
140 PRINT"3 - UPDATE SELECTED TAPE #" 
150 PRINT"4 - DELETE TAPE # ENTRY(S)" 
170 PRINT"5 - LIST FILE ENTRIES ON LINE PRINTER" 
180 PRINT"6 - SAVE PILE ON- CASSETTE" 
190 PRINT: INPUT"ENTER FUNCTION" ;F 

195 ONFGOSUB2000,10 00,30 00,4000,6000,7 00:GOTO100 
1000 ' ADD TAPE 
1005 IFSWO1THEN8000 
1010 CLS 

1020 PRINTTAB(3) "— TAPE INFORMATION — ": PRINT 
1030 PRINTPLS(l) :PRINTPL$(2) :PRINTPL$(3) : PRINT: PRINT 
1040 PRINTSTRING$(63,"-") :PRINTTAB(3) "-- - FILE INFORMATI 

ON — " 
1050 PRINT:PRINTPL$(4) :PRINTPL$(5) :PRINTPLS(6) :PRINTPL$ 

(7) 
1160 F0RA=1T04:PRINTP147, "*" ; : FORB=1TO10 :NEXTB: PRINT01 

47," ";:FORB=1TO100:NEXTB:NEXTA 
1200 Y=0:PRINT@145,"";: INPUTX 
1203 IFX<10RX>48THENPRINT@192,PL$(2) ; :PRINTP14 5, " " ; : 

GOTO1200 
1205 IFNU(X) >0ORLEN(NM$ (X) ) >0THENPRINT@192 , PL$ ( 2) ; :PRIN 

T@150,"** TAPE # ";NU (X) ; "ALREADY ON FILE **";:FOR 
Z = lTO800:NEXTZ:PRINTiai45,STRING$(42, " ") ; :GOTO1200 
1207 NU(X)=X 

1210 PRINT@192,PLS(2) ; : INPUTNMS(X) 
1215 IF(LEN(NM$(X) ) >10)THENPRINT@218, STRINGS (15," ");:P 

RINT@256,PL$(3) ; :GOTO1210 
1230 PRINT@256,PLS(3) ; : INPUTDES(X) 
1235 IF(LEN(DE$(X) ) >24 ) THENPRINT9290 , STRINGS (31 , " ");:G 
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WE WILL NOT BE UNDERSOLD 



16K MEMORY UPGRADE KITS 

for TRS-80*, Apple II, Sorcerer (specify) 

PRINTERS 




NEC Spinwriter 

Letter Quality High Speed Printer 

Includes TRS-80* interface software, quick 
change print fonts, 55 cps, bidirectional, 
high resolution plotting, graphing, propor- 
tional spacing $2689 
With Tractor Feed 

DIABL0 1650 R.O.$2890 

779 CENTRONICS TRACTOR FEED PRINTER 

Same as Radio Shack line printer I 
737 CENTRONICS FRICTION & PIN FEED PRINTER 

9x7 matrix 
730 CENTRONICS FRICTION & PIN FEED PRINTER 

7x7 matrix Same as Radio Shack line printer II 
P1 CENTRONICS PRINTER 

Same as Radio Shack quick printer 
PAPER TIGER (IP440) 

Includes 2K buffer and graphics option 
TI-810 Faster than Radio Shack line printer III 

Parallel and serial w/TRS-80* interface software 
with upper and lower case and paper tray 
OKIDATA Microline 80 Friction and pin feed 

Tractor Feed, friction, and pin feed 
EATON LRC 7000 + 64 columns, plain paper 
ANADEX DP-9500 



$54 1^_ DISK DRIVES $314 

More capacity than Radio Shack 35 Track (80 K 
Bytes) drives. Fully assembled and tested. 
Ready to plug-in and run the moment you 
receive it. Can be intermixed with each other 
and Radio Shack drive on same cable. TRS-80* 
compatible silver enclosure. 
90 DAY WARRANTY. ONE YEAR ON POWER SUPPLY 
FOR TRS-80* 

5 1 /»", 40 Track (102K Bytes) for Model I $314 

5 1 /.", 77 Track (197K Bytes) for Model I $549 

8" Drive for Model II (Vz Meg Bytes) $795 



$639 



$939 



$1575 

$1665 

$559 

$679 

$349 

$1389 



CAT MODEM Originate and answer same as 

Radio Shack Telephone Interface II 
LEEDEX MONITOR Video 100 



$148 
$129 




$2889 
KSR $3285 


CCI-100 
CCI-200 
CCI-800 


$969 


For Zenith Z89 




CCI-189 


$839 


Z-87 



5 1 /.", 40 Track (102K Bytes) add-on drive 
Dual 5V*" add-on drive system 
DISKETTES — Box of 10 (5 1 /.")- with plastic library case 
8" double density for Model II (box of 10) 



$394 

$995 

$24.95 

$36.49 



$269 COMPLETE SYSTEMS 



TRS-80* LEVEL II-16K with keypad 

TRS-80* Expansion Interface 

ZENITH Z89, 48K all-in-one computer 

ZENITH Z19 

TELEVIDEO 912B $745 

ATARI 400 $489 ATARI 800 $799 

MATTEL INTELLIVISION 



$719 

$269 

$2595 

$740 

920B $769 

TI99/4 $894 

$249 



NORTH STAR Horizon 1 



32K, Double Density 



$2129 



DISK OPERATING SYSTEMS 

PATCHPAK#4byPercomData $ 8.95 

CP/M for Model I, Zenith $145 • for Model II, Altos $169.00 

NEWDOS Plus — with over 200 modifications 35track $ 89.00 

and corrections to TRS-DOS 40 or 70 Track $ 99.00 



SOFTWARE FOR THE TRS-80* 



Software /Ma 
w/ManuallAlc 



CP/M BASED SOFTWARE for 



CCIINVESTMENT PORTFOLIO MANAGER: This is 
what investors have been wailing (or 1 This powerful 
program was developed by security analysis working 
with software designers. It comes on one cassette — 
I6K LEVEL II BASIC on one side, 32K DISK BASIC on 
the other Store and report data; Review your portfolio; 
Produce detailed status, value, gain, and security 
analysis. Compare alternatives $49.95/$10 

INTELLIGENT TERMINAL SYSTEM ST-80III BY 
LANCE MIKLUS: Enables a TRS-80 - to act as a dial- 
up terminal on any standard time sharing network. 
Provides a TRS-80" with control key. ESC Key. 
Repeat Key, Rub Out Key, Break Key, full upper and 
lower case support, selectable printer output and 
program selectable transmission rates $139/$10 

CCA-OATA MANAGEMENT SYSTEM; Automate your 
information processing tasks You can create a file of 
customer information; quickly and easily add, delete 
or update records, search a file; keep a file in order of 
the value in any field; and print records and labels in 
any desired sequence or from just a part of a file. 
Requires 32K TRS-80 and one drive $74.95/$10 

CSA-MAILIST SYSTEM: Creates, maintains and effi- 
ciently utilizes a name, address and telephone 
number file. 400 individual name/address entries can 
be maintained on a single density minifloppy, and are 
manipulated directly by record number (direct access 
file method). Sorts can be performed, name + address 
combinations can be coded. Listing-directories and 
labels can be printed. A conversion facility is provided 
to convert most sequential name, address file formats 
into direct Requires 32K TRS-80 and one drive 

$49.95/$10 



S & M SYSTEMS 

INSEQ-80'": Indexed Sequential Access Method 
(ISAM) for the TRS-80 Model I. A must for anyone writ- 
ing business programs. Eliminate wasted disk space 
from direct record processing. Split second access to 
any record. Access data records instantly via alpha/ 
numeric "key" eg. Part NR, zip code or sequentially in 
ascending key sequence. Add/modify records in any 
order. Access up to three files per program — Files 
may be spread over multiple disks. Machine language 
processing from your basic program. Utility program 
to convert direct files to INSEQ-80 format. S49.93/S10 

FULLY INTERACTIVE ACCOUNTING PACKAGE: 

ISAM (INSEQ-80) based. Includes General Ledger, 
Accounts Payable, Accounts Receivable and Payroll. 
System runs "stand alone" or "co-ordinated G/L" at 
users option. Based on Osborne accounting method. 
Requires 32K, TRS-80. 2 or 3 drives. N/A CA. 

General Ledger $99/$10 

Accounts Receivable S99/S10 

Accounts Payable S99/S10 

Payroll S99/S10 

Osborne books: Req'd as additional documentation 
$20 ea 



INVENTORY Requires 32K, TRS-80, 1 drive $125/110 
INSORT-80: Callable form BASIC via USR. Sorts "Ran- 
dom" Disk Files. "Disk" to "Disk" sort times — 350 
records in 35 sees, 1000 records in 6 minutes, 3500 
records in 12 minutes. Machine language processing. 
Up to 35 sort keys ascending/descending. Utility to 
build BASIC program. Runs under NEWDOS. 

$49.85/(10 



ACCESSORIES 

HEAD CLEANING DISKETTE: Cleans drive Read/ 
Write head in 30 seconds. Diskette absorbs loose oxide 
particles, fingerprints, and other foreign particles that 
might hinder the performance of the drive head. Lasts 
at least 3 months with daily use. Specify 5'A " or 8". 
$20 ea/$45 lor 3 



FLOPPY SAVER: Protection for center holes of BV4* 
floppy disks. Only 1 needed per diskette. Kit contains 
centering post, pressure tool, tough 7-mil mylar rein- 
forcing rings. Installation tools and rings for 25 
diskettes. $11.95 

Re-orders of rings only: $ 7.95 



Zenith, Altos, Radio Shack, Apple Ssafe.' 



MICROSOFT 

BASIC-80: Disk Extended BASIC ANSI compatible 
with long variable names. WHILE/WEND, chaining, 
variable length file records. $325'$25 

BASIC COMPILER: Language compatible with BASIC- 
80 and 3-10 times faster execution. Produces standard 
Microsoft relocatable binary output. Includes MACRO- 
80 Also linkable to FORTRAN-80 or COBOL-80 code 
modules. $350/$25 

FORTRAN-80: ANSI 66 (except for COMPLEX) plus 
many extensions. Includes relocatable object com- 
piler, linking loader, library with manager. Also 
includes MACRO-80 (see below) $425/$25 

COBAL-80: Level 1 ANSI 74 standard COBAL plus 
most of Level 2. Full sequential, relative and indexed 
file support with variable file names. STRING, UN- 
STRING, COMPUTE, VARYING/UNTIL. EXTEND. 
CALL. COPY, SEARCH, 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocatable 
library manager as described under MACRO-80. 

$700/$25 
Z-80 SOFTCARD FOR APPLE Your key to future soft- 
ware expansion. Get the best of both worlds. Apple's 
6502 and CP/M Z-80. Plug in the card and get a Z80. 
Supports Apple language card and all Apple peripher- 
als. Comes with set of three manuals. $339/$75 



CCI-TELNET VERSION 5: A communication Package 
which enables microcomputer users to communicate 
both with Large Mainframes and other microcom- 
puters. Extensive commands make it useful in many 
applications where communication between com- 
puters is necessary. Powerful terminal mode enabling 
user to save all data from a session on disk. Com- 
pletely CP/M compatible. Multiple communication 
protocols supported. Able to transfer files in both 
directions without protocol where the other machine 
does not support any protocol. Extensive ON- 
SCREEN help. Source code provided. S149/S15 



MICROPRO-WORD-STAR: Menu driven visual word 
processing system for use with standard terminals. 
Text formatting performed on screen Facilities for text 
paginate, page number, justify, center and underscore 
User can print one document while simultaneously 
editing a second. Edit facilities include global search 
and replace. Read/Write to other text files, block 
move, etc. Requires CRT terminal with addressable 
cursor positioning $399/$40 

80S 'C COMPILER: Supports most features of lan- 
guage, including structures, arrays, pointers, recursive 
function evaluation, and overlays. Package contains: 
compiler, linker, library manager; sample source files 
include games, a terminal emulator with disk I/O plus 
the source for many standard library functions; BDS C 
User's Guide; Book - The C Programming Language by 
Dennis Ritchie and Brian Kemigham. Requires at least 
24KofRAM $125/$20 

CONFIGURABLE BUSINESS SYSTEM BY DMA: CBS 
is a data management system that allows true trans- 
action processing. Custom accounting systems for 
payables, receivables, inventory control, order entry 
and general ledger can be set up without using any pro- 
gramming languages. CBS can be used to define an 
application such as an inventory control system by 
specifying master files to describe the inventory, cus- 
tomer and vendor files. Transaction files can then be 
used to describe activities such as purchases and 
sales. An extremely easy-to-use data entry program is 
used to enter information about customers, vendors, 
inventory, sales and purchases. After data entry is com- 
plete, an update program can process the transactions 
against the various master files, updating account 
balances and inventory quantities. The system features 
a screen menu generator and a comprehensive report 
generator which can be used to produce invoices, pur- 
chase orders, re-order reports, mailing labels or other 
special reports specific to the application. Good docu- 
mentation and a demonstration inventory system sup- 
plied. Requires at least 48K memory. Does not require 
any support language. $295 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP 

TO ORDER CALL TOLL FREE 1-800-343-6522 

Massachusetts residents call (617)242-3361 
For detailed technical information, call 617/242-3361 
Hours: 10AM-6PM (EST) M-F(Sat. till 5) 
*TRS-80 is a Tandy Corporation Trademark 
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5 Dexter Row, Dept. M8M 
Charlestown, Massachusetts 02129 

Massachusetts residents add 
5% sales tax 

Quantities on some items are limited 




** Reader Service index — see page 194 
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Precision 
Engineered Drives 



Power supply guaranteed 
for one year. 



More Capacitance: Insures stable 
operation over greater line 
voltage variations (105-125 Vac.) 



Scratch resistant steel cover: Primed and baked 

enamel finish. Virtually eliminates video interference. Color 

compatible with Radio Shack or Zenith Z89. 

Increased ventilation for 

additional cooling: Top, 

side and bottom vents mean lower 

operating temperatures 

for longer life. 

Switch designed with high 
current ratings (10 AMP). 




With the number of disk drives on the market increasing, 
more and more people are beginning to ask what's under- 
neath that cover. 

The CCI™ series of disk drives have been designed for long 
life and ease of operation. The features shown above are what 
set our CCI drives apart from the rest. With a CCI drive you get 
an integrated professional design! 

If you're still not convinced that you get the most for your 
money with a CCI drive, just ask for our complete specifica- 
tions sheet. Then, compare our disk drives to anyone else's. 

51/4" DRIVES 

CCI-100 40 Track (102K Bytes) for TRS-80* Model I $399.00 

CCI-189 40 Track (102K Bytes) for Zenith Z89 $499.00 

CCI-200 77 Track (197K Bytes) for TRS-80* Model I $675.00 

8" DRIVES 

CCI-800 77 Track ( 1/2 Meg Bytes) for TRS-80* Model II $895.00 

All CCI drives are also available for 220 Vac (50Hz) operation. 



Operating Systems 

NEWDOS Plus for 5W, 40 and 77 Track Drives— with over 200 
modifications and corrections to TRSDOS $ 1 1 0.00 

CP/M for Model I, Zenith $150.00 

CP/M for Model II, Altos $1 99.00 

Software by S&M Systems 

INSEQ-80™ —Indexed Sequential Access Method ( ISAM ) 

for the TRS-80 Model I. 
Four machine language programs that can be called from your 
BASIC program via GSR functions to access records either sequen- 
tially or randomly. The INSEQ-80 programs maintain all indexes and 
chains for you. Includes reorganization utility to consolidate files. 

$49.95 
Professional Business Software using INSEQ-80 for 
the TRS-80* Model I and Zenith Z89. 
Accounts Payable, Accounts Receivable, 

General Ledger, Payroll 
Inventory 



ComputerCity 



175 Main Street, Dept. k-7 , Charlestown, MA 02129 
Hours: 10AM-6PM (EST) Mon.-Fri. (Sat. till 5). 



per package $99.00 
per package $125.00 

TO ORDER CALL 

TOLL FREE 1-800-343-6522 

TWX: 710-348-1796 

TM Massachusetts residents call 617/242-3350 

For detailed technical information, call 617/242-3350. 
Freight Collect, F.O.B. Charlestown. 
"TRS-80 is a trademark of the Tandy Corporation 



Products also available from: Radio Shack, NEC, Centronics, Paper Tiger, TI, Altos, MPI, Zenith, ATARI, Mattel, 

PET, OKIDATA, Apple, Eaton/LRC. 

FRANCHISE AND DEALER (NATIONAL/INTERNATIONAL) INQUIRIES INVITED 

Retail Stores: MA: Burlington, Charlestown, Framingham, Hanover NH: Manchester RI: Providence 
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■ Reader Service — see page 1 78 



LIMIT HAS BEEN EX 
- PRESS ENTER" : PRINT: IN 



OTO1230 
1240 PRINT 
1250 AS="":PRINT@384,"";:INPUT"IS ABOVE DATA CORRECT - 

YES OR NO";A$ 
1255 IFLEFT$(A$,1)="N"THENNU(X)=0:NM$(X)="":GOTO1000 
1260 IFLEFTS(A$,1)O"Y"THENPRINT@420,STRING$(15," ");:P 

RINT@4 48,STRING$(6 4,"-") ;:GOTO1250 
127 PRINT@448,STRING$(6 4,"-") ; 
1300 Y=Y+1 
1305 IFY>5THENCLS:PRINT:PRINT"5 FILE 

CEEDED FOR TAPE #";NU(X) 

PUTA$:GOT013 99 
1310 PRINT@6 40,PLS(4) ; : INPUTF$ (X, Y) 
1315 IF(LEN(F$(X,Y)) >14 ) THENPRINT@704 , PL$ ( 5) ;:PRINT@665 

, STRINGS (24," ");:GOTO1310 

1320 PRINT@7 04,PL$(5) ; : INPUTDS (X, Y) 

1325 IF(LEM(D$(X,Y)) >8) THENPRINT@76 8 , PL$ (6 ) ; :PRINT@7 34, 

STRING$(15," ") ; :GOTO1320 
1330 PRINT@768,PLS(6) ; : INPUTT$(X,Y) 
1335 IF(LEN(T$(X,Y) ) >5 ) THENPRINT@8 32 , PL$ (7 ) ;:PRINT@808, 

STRINGS (20," ");:GOTO1330 
1340 PRINT@832,PL$(7) ; : INPUTCS (X, Y) 
1345 IF(LEN(C$(X.,Y) ) >12) THENPRINT0874 , STRINGS (20 , " ") ; : 

GOTO1340 
1350 A$=" ":PRINT@896,"";:INPUT"IS ABOVE DATA CORRECT - 

YES OR NO";A$ 
1360 IFLEFT$(A$,1)="N"THENY=Y-1:GOSUB1400:GOTO1300 
1370 IFLEFT$(A$,1)O"Y"TIIEN1350 
1375 IFS2=1THEN1399 
1380 A$=" ":PRINTl3896, "DO YOU WISH TO ADD ANOTHER FILE 

TO TAPE #";NU(X);"- YES OR NO";:INPUTA$ 
13 85 IFLEFT$(A$,1)="Y"THENGOSUB1400:GOTO1300 
13 87 IFLEFTS (AS, 1)<>"N "THEN 1380 
1388 IFS1=1THEN1399 
1390 A$=" ":PRINT@896,"D0 YOU WISH TO ADD ANOTHER TAPE 

TO THE FILE"; :INPUTA$ 

13 92 IFLEFT$(A$,1)="Y"THEN1000 
1394 IFLEFTS (A$,1)<>"N"THEN13 90 

1399 RETURN 

1400 PRINT@665,STRING$(24," ");: PRINT0734 .STRINGS (15 , " 
") ; :PRINT@815, STRINGS (15," ") ;: PRINT0880 , STRINGS ( 2 
0," ") ; :PRINT@896,STRING$(63, " "):RETURN 

2000 ' LIST ENTRIES 

2005 L1=1:L2=6 

2010 CLS 

2015 PRINTTAB(25)"FILE ENTRIES" : PRINT 

2020 FORI=LlTOL2 

2025 PRINTI;NM$(I) , TAB (15) 1+6 ;NMS ( 1+6 ) , TAB (30 ) 1+12 ;NM 

$(1+12) , TAB (45) I+18;NM$(I+18) 
2030 NEXTI 

2035 PRINTSTRINGS(63,"+") 
2100 PRINT@643," — OPTIONS — " 
2110 F=0:PRINT"1 - LIST MORE ENTRIES" 
2120 PRINT"2 - LIST DATA FOR SPECIFIC ENTRY" :PRINT"3 - 

RETURN TO MENU":INPUTF 
2125 IFF=2THENGOSUB2200:GOTO2000 
2130 IFF=3THEN100 
2135 IFFO1THEN2100 
2140 IFL1>1THENGOTO2000 
2145 L1=L1+24:L2=L2+24:GOTO2010 
2200 PRINT@896,"ENTER TAPE #";:INPUTN 
2205 IFN>48THEN2200 
2210 IFN<1ORNU(N)=0THENPRINT@896,"** NOT A VALID TAPE # 

":FORZ=1TO600:NEXTZ:GOTO2200 
2220 CLS:PRINT:PRINT"TAPE NUMBER" ;STRING$ (10 ,".") ;NU (N) 

2225 PRINT"TAPE NAME" ;STRING$ (12, " . ") ;NM$ (N) 

2235 PRINT"TAPE DESCRIPTION" , -STRINGS (5 ,".") ;DE$ (N) 

2237 PRINT 

2240 PRINTSTRING$(63,"+") 

2242 IFS1=1THEN2999 

2245 PRINTTAB(20)" — FILES ON TAPE — " 

2250 PRINT"FILE NAME DATE WRITTEN TYPE 
COUNTER LOCATION": PRINT 

226 F0RJ=1T05 

2265 PRINTJ;F$(N,J) ; : PRINTTAB (18) D$ (N, J) ,T$(N,J) ,C$(N 

,J) 
2270 NEXTJ 
2273 IFS2=1THEN2299 

227 5 PRINT@960, "PRESS ENTER" ;: INPUTAS 
2299 RETURN 

2999 RETURN 

3000 ' FILE UPDATE 

3010 CLS:PRINT:PRINTTAB(5)"~ FILE UPDATE MENU — ":PRIN 
T:PRINT"1 - ADD FILE(S) TO A TAPE # ENTRY" : PRINT "2 
- UPDATE EXISTING FILE(S) IN A TAPE # ENTRY":PRIN 
T"3 - DELETE FILE(S) FROM TAPE # ENTRY" 

3012 PRINT"4 - RETURN TO FUNCTION MENU":INPUTI 



3020 ONIGOSUB3100, 3200, 3300 

3050 IFI=4THEN3999 

3060 GOTO3010 

3100 ' ADD A FILE 

3110 S1=1:GOSUB2200:S1=0:X=N 

3120 Y=0:FORZ=1TO5 

3125 IFLEN(FS(N,Z)) >0THENY=Y+1 

3130 NEXTZ 

3135 PRINT@640,PL$(4) :PRINTPLS(5) :PRINTPL$(6) :PRINTPL$( 

7) 
3140 S1=1:GOSUB1300:S1=0 

3199 RETURN 

3200 ' UPDATE FILE 

3210 S2=1:GOSUB2200:S2=0:X=N 

3220 Y=0:PRINT@896, "ENTER FILE #";:INPUTY 

3225 IFY<1ORY>5THEN3220 

3227 PRINT@384," ": PRINT: PRINT: PRINT: PRINT 

3228 PRINT@640,PLS(4) :PRINTPL$(5) :PRINTPL$(6) :PRINTPLS( 
7) 

3230 S2=1:GOSUB1310:S2=0 

3235 A$="":PRINT@896,"D0 YOU WISH TO CHANGE ANOTHER FIL 

E - YES OR NO";: INPUTAS 
3240 IFLEFT$(A$,1)="N"THEN3299 
3245 IFLEFT$(A$,1)="Y"THENPRINT@896,STRING$(63," "):GOT 

03220 
3250 GOT03235 

3299 RETURN 

3300 ' DELETE FILE 

3310 S2=1:GOSUB2200:S2=0:X=N 

3320 PRINT@896, "WHICH FILE DO YOU WISH TO DELETE" ;: INPU 

TY 
3325 IFY<1ORY>5THEN3320 
3330 O=0:IFLEN(F$(N,Y))=0THENPRINT@896,"NO ENTRY FOR FI 

LE";Y;" 1-TRY ANOTHER ENTRY 2-UPDATE MENU";: I 

NPUTO 

3335 IFO=1TI1ENS2=1:GOSUB2220:S2=0:GOTO3320 
3340 IFO=2THEN3399 

3345 F$(N,Y)="":D$(N,Y)=" H :T$(N,Y)="":C$(N,Y)="":G0SUB3 

400 
3350 S2=1:GOSUB2220:S2=0:X=N 
3355 A$="":PRINT@896, "DO YOU WISH TO DELETE ANOTHER FIL 

E: YES OR NO";: INPUTAS 
3360 IFLEFT$(AS,1)="Y"THENS2=1:GOSUB2220:S2=0:GOTO3320 

3399 RETURN 

3400 F0RZ=1T04 

3410 IFLEN(F$(N,Z))>0THEN3480 

3430 F$(N,Z)=FS(N,Z+1) :D$ (N, Z ) =D$ (N,Z+1 ) :T$(N,Z)=T 

S(N,Z+1) :CS(N,Z)=C$(N,Z+1) 
3435 F$(N,Z+1)="":D$(N,Z+1)="":T$(N,Z+1)="" :CS(N,Z+ 

1)="" 

3480 NEXTZ 
3499 RETURN 

3999 RETURN 

4000 CLS: PRINT: INPUT"WHICH TAPE # ENTRY DO YOU WISH TO 
DELETE ";D 

4005 IFD>48THEN4000 

4010 IFNU(D)=0ORLEN(NM$(D) )=0THENPRINT:INPUT"TAPE ENTRY 

DOES NOT EXIST. PRESS ENTER" ;A$:GOTO4099 
4020 NU(D)=0:NMS(D)="" :DE$ (D) ="" :F0RZ=1T05 :F$ (D, Z) ="" :D 

$ (D , Z ) = "" : T$ ( D , Z ) = " " : C $ (D , Z ) = " " : NEXTZ 
4050 CLS:PRINT:PRINT"TAPE ENTRY" ;D; "DELETED. PRESS ENT 

ER.": INPUTAS 

4099 RETURN 

6000 ' PRINT 

6005 IFPEEK(14312)>127THEN6099 

6010 PC=66:GOSUB6500 

6015 F0RI=1T048 

6020 IFNU(I)O0THENLPRINT:LPRINT"TAPE#";NU(I) ;:LPRINT 
TAB(12)"NAME: ";NMS(D ; :LPRINTTAB(36) "DESCRIPTION: 
";DE$(I) :PC=PC+2 

6030 F0RJ=1T05 

6040 IFLEN(F$(I,J) ) >0THENLPRINTTAB(10)"FILE";J;" " 
;F$(I,J) ;:LPRINTTAB(36) "TYPE: ";T$(I,J) ;:LPRINTTAB 
(50) "COUNTER POSITION: " ;C$ (I , J) : PC=PC+1 

6050 NEXTJ 

6060 IFPO50THENGOSUB6500 

607 NEXTI 

6099 RETURN 

6500 FORZ=PCTO64:LPRINT:NEXTZ:PC=3:LPRINTTAB(30)"TAPE M 

ANAGEMENT SYSTEM PRINT" :LPRINT: RETURN 

7 00 ' WRITE 0/P TAPE 

7010 CLS: PRINT: PRINT"READY CASSETTE FOR OUTPUT" : PRINT: I 

NPUT"PRESS ENTER"; AS 

7030 F0RX=1T048 

7040 IFNU(X)=0THEN7070 

7050 F0RY=1T05 

7055 IFLEN(FS(X,Y) ) =0THENF$ (X, Y) ="*" 



For example, you may have a 
cassette on which you put San- 
ta Paravia, Space Trek, Airmail 
Pilot and Golf. The tape name, 
therefore, is ISI Games. The de- 
scription is Instant Software 
Games. You have one file entry 
each for Santa Paravia, Space 



Trek, Airmail Pilot and Golf, con- 
taining creation date, file type 
(BASIC) and tape counter posi- 
tions. 

When you begin program exe- 
cution, you can create a new 
TLMS file, or read and update an 
existing one. Tapes must be 



numbered from one. The op- 
tions (Fig. 1) available once a 
TLMS file is established are: 

List File Entries: This lists the 
first 24 tape numbers and 
names on the monitor (Fig. 2). 
From this screen you can list the 
remaining 24 tapes; list all data 



for a specific tape (Fig. 3); con- 
trol or return to the main menu. 
Add Tape# Entry to File: This 
lets you add more tape entries 
to an existing file. Error detec- 
tion stops you from inadver- 
tently writing over an existing 
entry. 
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tape: number 10 

tape: name isi games 

TAPE DESCRIPTION. ... .INSTANT SOFTUARE GAMES 

+4 + ++++++++++++ f +++++++ + + + + + + + + + + 4 + + + + <• +++ + + + + + + + + + + + + ++ + + ++4 + + 

— FILES ON TAPE — 
FILE NAME DATE WRITTEN TYPE COUNTER LOCATION 



1 SANTA PARAVIA 


07/15/7? 


BASIC 


10 


2 SPACE TREK IV 


07/15/7? 


BASIC 


150 


3 AIRMAIL PILOT 


07/15/7? 


BASIC 


280 


< GOLF 


07/15/7? 


BASIC 


350 



PRESS ENTERS 



Fig. 3. Data for a Specific Tape. 



FILE 1 


SANTA PARAVIA 


BASIC 


10 


FILE 2 


SPACE TREK IV 


BASIC 


150 


FILE 3 


AIRMAIL PILOT 


BASIC 


300 


FILE A 


GOLF 


BASIC 


400 


FILE 5 








Table 1a. Before you delete Space Trek IV. 


FILE 1 


SANTA PARAVIA 


BASIC 


10 


FILE 2 


AIRMAIL PILOT 


BASIC 


300 


FILE 3 


GOLF 


BASIC 


400 


FILE 4 








FILE 5 








Table 1b. 


After you delete Space 


Trek IV. 



Update Selected Tape: This 
lets you add to files, or delete 
them from a tape entry. You can 
also update a file. 

For example, if you have a ver- 
sion of Startrek III that you re- 
placed on a tape with an up- 
dated version, you can change 
the file entry accordingly. You 
need only to enter the informa- 
tion to be changed. For all other 
data fields, such as title and file 
type just press the enter key. 



The add function places the 
file entry in the next available 
slot, up to a limit of five. For ex- 
ample, if two entries exist, and 
you add one, it will be tagged 
File 3. 

The delete function com- 
presses your files. Suppose your 
entries for tape 10 are those 
listed in Table 1a. By deleting 
Space Trek IV the result is 
shown in Table 1b. 

Delete Tape Entry: This will 



7057 
7060 
7064 
7065 
7070 
7100 
7110 
7115 
7120 



7150 
7160 

717 
7172 
7175 
7180 
7182 
7184 
7186 
7188 
7189 
7190 
7199 



8010 
8020 



8082 
8085 
8099 
15001 

15101 



IFLEN(D$(X,Y) )=0THEND$(X,Y)="*" 
IFLEN(T$(X,Y) )=0THENT$(X,Y)="*" 
IFLEN(C$(X r Y))=0THENC$(X,Y)="*" 
NEXTY 
NEXTX 

PRINT#-1,"TAPMGT" 
F0RX=1T048 

IFNU(X)=0THEN7150 

PRINT#-1,NU(X) ,NM$(X) ,DE$(X) , F$ (X, 1 ) , F$ (X, 2) , F$ ( 
X,3),F$(X,4) ,F$(X,5) ,D$(X,1) ,D$(X,2) ,D$(X,3) ,D$(X, 
4) ,D$(X,5) ,T$(X,1),T$(X,2) ,T$(X,3) ,T$(X,4) ,T$(X,5) 
,C$(X,1) ,C$(X,2),C$(X,3) ,C$(X,4) ,CS(X,5) 
NEXTX 

W$="*":E=99 9:PRINT#-1,E,W$,W$,W$,W$,W$,W$,W$,W$,W$ 
,W$,W$,W$,W$,W$,W$,W$,W$,W$,W$,W$,W$,W$ 
F0RX=1T048 

IFNU(X)=0THEN7190 
FORY=lT05 

IFF$(X,Y)="*"THENF$(X,Y)=" n 
IFD$(X,Y)="* n THEND$(X,Y)= n " 
I FT$ ( X , Y ) = " * n THENT$ ( X , Y ) = "" 
IFC$(X,Y)="*"THENC$ (X,Y)="" 
NEXTY 
IFS4=1THENRETURN 
NEXTX 
RETURN 

PRINT: INPUT"READY CASSETTE. 
INPUT#-1,L$ 

IFL$<>"TAPMGT"THENPRINT: PRINT"** TAPE LABEL DOES N 
OT MATCH. MAKE SURE CORRECT TAPE WAS" : INPUT" PLACED 

IN RECORDER. PRESS ENTER. "; A$ : GOTO80 00 
INPUT#-1,N,I1$,I3$,A$(1) ,A$(2) ,A$(3) ,A$(4) ,A$(5) ,B 
S(1),B$(2) ,B$(3),B$(4),B$(5),E$(1),E$(2) ,E$(3) ,E$( 
4),E$(5),G$(1),G$(2),G$(3),G$(4),G$(5) 
IFN=999THEN8099 

NU(N)=N:NM$(N)=I1$:DE$(N)=I3$ 

FORZ = lT05:F$(N,Z)=A$(Z) : D$ (N, Z ) =B$ ( Z) :T$ (N, Z) =E$ ( Z 
) :C$(N,Z)=G$(Z) :NEXTZ 
X=N: S4 = l : GOSUB717 5 : S4 = 
GOTO8030 
SW=1: RETURN 

I DATA "ENTER TAPE NUMBER" , "ENTER TAPE NAME - 10 PO 
S. n , "ENTER TAPE DESCRIPTION - 24 POS." 
I DATA "ENTER FILE NAME - 14 POS.", "ENTER DATE CREA 
TED - MM/DD/YY", "ENTER FILE TYPE - 5 POS. (EX: BAS 
IC-LOAD-DATA) ", "ENTER TAPE COUNTER POSITION (S) - E 
X: 10 50 100" 



PRESS ENTER"; A" 



delete a tape entry and all of its 
files. This slot will then be blank 
in subsequent tape lists. You 
can now add a tape with this 
number. 

List File Entries on Printer: If 
you have a line printer available, 
this produces a hard-copy of 
your TLMS file. 

Save File on Cassette: This 
saves a new or updated TLMS 



file for later use. 

Error-Trapping Features 

The tape library management 
system program also contains 
complete edit and error-trapping 
features. The data prompts 
are straightforward, and the 
screens are easy to read. With a 
few minutes of practice, you can 
master the program. ■ 



BIG 48 INCH SCOTTSDALE 
5 SPEED CEILING FAN 

• Wood Blades 

• Antique Brass Trim 

• Full 5- Year 
Warranty 

• No Plastic Parts 



$99 



LIGHT OPTIONAL 15.00 
USE YOUR CEILING FAN WINTER 
AND SUMMER. VARIABLE SPEED 
FANS LIKE THIS CAN BE SET TO 
TURN SLOWLY AND RECLAIM LOST 
CEILING TRAPPED HEAT. 



American Fan Distributors s 396 
118 So. Mill St. 

Pryor, OK. 74361 

918-825-4844 
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BUSINESS CONTROL PROGRAMS 



□ PAYROLL □ GENERAL LEDGER □ ACCOUNTS PAYABLE Q ACCOUNTS RECEIVABLE 



These business systems are designed with the business man- 
ager in mind. Major changes in your current bookkeeping meth- 
ods are not necessary to make these programs work tor you. 
Data may be entered into any one ot the systems either directly 
or through subprograms, so that duplicate data entry is not re- 
quired. This avoids mistakes. 

Accurate reports ot financial activity may be obtained on a 
scheduled basis or at irregular intervals. 

The systems require CP/M and CBASIC. Customization, instal- 
lation and training are available at additional cost. WRITE FOR 
SAMPLE REPORT AND TRIAL DISK — $25.00 (credited toward 
purchase price). 



A Totally Linked Single Entry 
Accounting System 
Completely Screen Oriented Systems 
Provide User Prompting for Each Entry 
User Assignable Account Numbers 
Flexible, Reliable and Efficient 
Installation and Training Available 



AS LOW AS 



CP/M 2.2 Control Program for Microcomputers 
Enabling You to Run Software Published for 

CP/M 1.4 On the TRS-80 Model II (Including Communications Programs) 






mmmmmxm 




CP/M is considered the industry standard disk operating system be- 
cause it gives you the hardware-independent interface you need to 
make your computer work for you. FMG CORPORATION NOW OFFERS 
THE CP/M 2.2 FOR THE TRS-80 MODEL II. The latest in the evolution 
of a reliable and efficient software system, CP/M 2.2 features an en- 
hanced upward compatible file system and powerful new random ac- 
cess capabilities. From minidisks and floppy disks, all the way to high- 
capacity hard disks (when available), the flexibility of CP/M 2.2 makes 
it a truly universal operating system. The package includes an 8" sys- 
tem disk, editor, assembler, debugger and communication software for 
the TRS-80 Model II. Special utilities not available with other CP/M sys- 
tems are also included in FMG's CP/M 2.2 

(CP/M is a registered trademark of 
Digital Research Corp. TRS-80 is a 
registered trademark of Radio Shack) 
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« TRS-80* PROJECT 
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THE PASCAL/MT&~$250.00 

PASCAL/MT™, a native code PASCAL compiler designed for 8080/8085 
and Z80 microcomputer systems, provides an efficient development 
cycle as well as efficient execution of object programs. 




CORPORATION 




P.O. Box 16020 

Ft. Worth, Texas 76133 

Phone (817) 294-2510 



' Compiler executes under the CP/M 
operating system in as little as 32 
K bytes of RAM 

■ Interactive Symbolic Debugger which 
enables the programmer to examine 
variables, set a breakpoint, and trace 
procedure calls interactively at run 
time 

• Compiles at the rate of 600 lines per 
minute on a 2 MHZ 8080 

• Programs Execute up to 10 TIMES 
FASTER than popular interpretive 
Pascals 

• The code generated is 8080 object 
code which is ROMable with a mini- 
mum run time overhead of 1.5K bytes 

• Interrupt procedures allow the pro- 



grammer to write interrupt drivers for 
I/O and other real time tasks in Pas- 
cal/MT 

1 Bit manipulations of variables may be 
performed with the built-in proce- 
dures: SETBIT, CLRBIT, TSTBIT, 
SHL, SHR, SWAP, LO, HI. 

■ Assembly language subroutines may 
be called from Pascal/MT 

1 Business arithmetic version of Pascal/ 
MT is also available 

• Pascal data structures supported are: 
ENUMERATION AND SUBRANGE 
TYPES, RECORD, ARRAY, REAL, 
INTEGER, CHAR, and BOOLEAN 

• Not implemented are: SETS, GOTO, 
GET, PUT 



PASCAL/MT™ includes compiler and a real time symbolic debugger. 
The system requires 32K minimum and 2 mini disks or one 8" disk. 



^Reader Service index— see page 194 
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OURS 
WORK! 

ACCOUNTING 
PROGRAMS 

from the company with 

years of experience 

on small computers 

and thousands of customers 



prices resulting from 
volume sales 



PACKAGE OF 
5 PRODUCTS 

PRODUCTS 
EACH 

MANUALS 
EACH 



$395. 
$95. 
$20. 



GENERAL LEDGER 

PA YROLL 

A CCOUNTS RECEIVABLE 

A CCOUNTS PA YABLE 

DEPRECIA TION 

for 

TRS-80* 

MODEL I with TRSDOS* 
MODEL II with CP/M* 

OTHER CP/Mt SYSTEMS 



Product Info & 
License /Order 
Form. 




its. ..SOFTWARE 

SE Search Entry 

SE is a super fast, general purpose information retrieval 
program for the TRS-80*. The uses of SE are limitless. 
It can be a file system, a matching service, an inventory 
control, or a message center. Whenever fast searching of 
large amounts of data is needed, SE can be your program. 

Written in Z80 machine language, SE compares tens of 
thousands of characters in a few seconds. Simple commands 
add, change, or remove data entries. To search for entries, 
up to 64 characters can be combined as targets for immediate 
retrieval. SE occupies only 4K; the rest is storage and 
can be saved on tape or disk. 

The tape version for 1 6K level II, SE2.0, is $24.95, 
while the disk version for DOS up to 48K. SE3.0, is $49.95. 
The price includes full documentation. 

Other TRS-80 its... Products 

COMPU-DIET Weight Loss System 

Behavior Mod, Forecast, Database 
MINIVENT - Minimal Inventory Control 

1400 items, 16K Level II 
BASICIO - Machine Language I/O for BASIC 

Data and Programs to Tape or Disk 



Please send 

DSE2.0(tape) ©$24.95 DCOMPUDIET1.2@$19 95 

PSE3.0(disk) OS49.95 PMINIVENT2.0 ©S49.95 

O BASICI0 1.5 @$14.95 DAdditional Information 

Fla. Res. add 4% Sales Tax - Total $ 



DCheck/Money Order LjVISA [TJMASTERCHARGE 

Card No Exp Date 

Name Bank No. (MC) 

Address , , 



^300 

its... Information Technology Systems 

POB 2667 Sarasota FL 33578 

(813)366-0064 

•IRS 80 is a trademark ol Radio Stuck, a landy Coiporation 



TRS-80*TRS-80*TRS-80*TRS-8(T 

Model I system owners 

SYSTEM TOO SMALL? 

We take trade-ins on Model II 
We also buy used systems outright 

Call or write for quotation 

USED TRS-80 SYSTEMS 

We sell used keyboards, exp.int.. 

disk drives, etc. 

Call or write lor quotes 

NEW HARDWARE IN STOCK 

I6K Level II $749.00 

Radio Shack disk drives S449.00 

I6K Memory Lifetime warranty $89.00 

Centronics 730-1 $749.00 

IDS 440 Paper Tiger S949.00 

SOFTWARE 

Data Management System-Mod I or II 

An excellent design-it -yourself 

software package- $99.00 

Utilizes and requires Kacel Computes 

GST and COM P ROC 



WORD PROCESSOR FOR MODEL II 

WORDSCRIBE-By Microphase Systems 

A first for Model I l-S 150.00 



Completely integrated automatic 

letter writer for Model II 

Consists of WORDSCRIBE, WORDMAII . 

MAI1 I IST-S2S0.0O _ 

PRINTER SPOOLER FOR MODEL I 

Increases (hruput of primer operations 

Buffer size user defined 

Fully relocatable 

Executes as a BASIC program 

A musi when using Radio Shack primers 

$14.95 



VKRN STRK.KT PRODUCTS 

1 14 W.Taft Sapulpa, OK 
74066 (918)224-4260 



We handle a full line of 
Radio Shack products. 



TERMS-COD WELCOME, CASH. CHECK, OR MONEY ORDER 
ADD 3% FOR MASTER CHARGE AND VISA 



( — C TR5 BB 




TRS-80 Model I 



mDDEL 3 

call tadsLji 




699 



Model II 



Level II 16K. 26-1056 



3499 




We accept check, money order or phone 
orders with Visa or Master Charge. 
(Shipping costs added to charge orders). 



64K, 1-Disk TRS-80 
Model II System 

CHARGE IT 



CampUtErS Unlimited 



1524 OAK HARBOR ROAD. FREMONT, OHIO 43420 



UlS-33E-Uflai 
' " 321 Collect 

TPS-30 ; s 3 Trademark f Tardy Corp. __^ 
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UTILITY 



Hide your passwords from prying eyes. 



The Invisible Password 



Michael A. Conley 
Los Angeles, CA 90046 



Have you ever needed to 
load a password-protected 
program and wished you could 
keep those nearby from seeing 
the password? Here's a simple, 
short program that will do the 
trick nicely! 

It's written for the TRS-80, 
Disk BASIC, using the Apparat 
NEWDOS operating system— 
but it can easily be modified for 
whatever your particular system 
requires. The real advantage of 
NEWDOS is that it allows single- 



FILE DIRECTORY DRIVE 



step boot and load of this pro- 
gram. The program then calls 
and displays the disk directory 
without exiting from BASIC. 

How It Works 

By using the INKEY$ function 
to input the password, you won't 
display the characters on the 
screen. A loop allows you to in- 
put up to eight characters as a 
password. The ENTER key, how- 
ever, can be used at any time to 
terminate the input. 

The display next asks for the 
program name. A similar loop 
allows us to INKEY$ up to 12 
characters (remember those file 
extensions) but this time, the in- 
put is echoed to the display (Ex- 
ample 1). 

Once the input is completed, 
line 270 attempts to load the 
program. If an error is encoun- 
tered, such as an invalid pass- 
word or an incorrect file name, 



PAYFORM P 
RADINST P 
RCV/DAT P 



DISKDUMP/BAS 
DIRCHECK/CMD 
RADLABEL P 



— 09/16/79 

TVLABEL P 
INVNTORY/PCL 
CREWPAY P 



ENTER PASSWORD: 

WHAT PROGRAM NAME: PAYFORM 

Example 1. 

■Reader Service index— see page 194 



100 


REM *** THE INVISIBLE PASSWORD *** 




BY MICHAEL A. CONLEY 


110 


REM 




WRITTEN FOR TRS-80 DISK BASIC 




AND APPARAT NEWDOS 


120 


ON ERROR GOTO 280 


130 


CLS:CMD"DIR" 


140 


C$ = "" : 3$ = "" 


150 


PRINT@778, "ENTER PASSWORD:" 


160 


FOR X = 1 TO 8 


170 


A$ = INKEY$:IF A$ = "" THEN 170 


180 


IF ASC(A$)= 13 THEN 210 


190 


B$ = B$ + A$ 


200 


NEXT X 


210 


PRINT@906, "WHAT PROGRAM NAME:"; 


220 


FOR X = 1 TO 12 


230 


A$ = INKEY$: IF A$ = "" THEN 230 


240 


IF ASC(A$) = 13 THEN 270 


250 


C$ = C$ + A$:PRINT@926,C$;CHR$(30) 


260 


NEXT X 


270 


CLS:PRINT§468,"ONE MOMENT . . . " : RUN C$ + "." + B$ 


280 


PRINT0463, "INVALID ENTRY - BEGIN AGAIN." 




:FOR X = 1 TO 1800 : NEXT X : RESUME 130 


290 


END 





Program Listing. 



an error-trapping routine re- 
starts the invisible password 
allowing the user another at- 
tempt. 

A Word of Caution 

The Apparat NEWDOS sys- 
tem is sold with its password 
function disabled, but the docu- 
mentation explains a simple 
procedure to re-enable its pass- 
word protection. 

If you're using this program 
under TRSDOS 2.2 or 2.3, you'll 
have to change or eliminate line 
130, which calls the directory 
under NEWDOS. But that won't 



stop you from using the pro- 
gram. 

Using the AUTO command 
under NEWDOS, simply boot 
the disk and type, AUTO BASIC 
RUN "PWDINVIS" (or whatever 
filename you give this password 
program when you save it to 
disk). Then, when you boot the 
system, NEWDOS automatical- 
ly loads BASIC, loads the pro- 
gram, the display, the directory 
and then prompts you to input 
the password. 

And those prying eyes won't 
have a chance of stealing your 
secrets!! 
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UTILITY 



Make sure you know your O's 

from your zeros with this machine code subroutine. 



Slash Zero 



Robert M. Richardson 

Drawer 1065 

Chautauqua Lake, NY 14722 



The uppercase Os and numer- 
ic zeros on many printers ap- 
pear virtually identical unless 
closely scanned with a magnify- 
ing glass. The following assem- 
bly language program will let 
your printer slash its zeros, even 
if it's not equipped to do so. 

The source code program in 
Program Listing 1 was written 
using the TRS-80 Editor/Assem- 
bler (either Radio Shack cas- 
sette version or Apparat NEW- 



DOS + version— both are excel- 
lent) and printed on a Western 
I/O Selectric Printer terminal 
that does not have the slash- 
zero type. 

Assembly Language 

For those readers unfamiliar 
with assembly language pro- 
gramming, a few words about 
source and object codes and 
what they accomplish are in or- 
der. 

After grasping the basics of 
Level II, the next step is to begin 
studying how to converse with 
your TRS-80's Z-80 microproces- 
sor in its own language. It 
speaks Zilog machine language, 
which is somewhat easier to 
learn than Russian, and, for 



99199 


; SOURCE CODE 


PROGRAM TO PRINT ALL ZEROS WITH A SLASH 


00110 










00120 


; BY ROBFRT M 


RICHARDS 


DN W4UCH/2 


00130 










00140 




ORG 


7F15H 


; 32533 DECIMAL 


00150 


START 


PUSH 


AF 


;SAVE AF BC DE HL REGISTERS 


00160 




PUSH 


BC 




00170 




PUSH 


DE 




00180 




PUSH 


HL 




00190 




LD 


A,C 


[NEXT CHAR. TO ACCUM. 


00200 




CP 


030H 


;30K - ASCII 0: 13 IT A 0? 


00210 




JP 


Z.ZERO 


(IF 9 GOTO ZERO SUBROUTINE 


00220 




JP 


FINIS 


(IF NOT CONTINUE PRINTING 


00230 


ZERO 


CALL 


TEST 


; READY TEST FOR PRINTER 


00240 




LD 


A.02FH 


[ASCII SLASH 


00250 




LD 


(37E8H) 


A ; PRINT SLASH 


00260 




CALL 


TEST 


; READY TEST FOR PRINTER 


00270 




LD 


A.08H 


;08 - ASCII BACKSPACE 


00230 




LD 


(37E8K) 


A ; PRINT BACKSPACE 


00290 


FINIS 


POP 


HL 




00300 




POP 


DE 




00310 




POP 


3C 




00320 




POP 


AF 




00330 




JP 


053DH 


;BACK TO ROM PRINT ROUTINE 


00340 


TEST 


LD 


A,(37E8H) ; PRINTER STATUS 


00360 




CP 


03FH 


;I5 PRINTER RFADY? 


00370 




JR 


1IZ.TEST 


;LOOP TILL PRINTER READY. 


00380 




LD 


C.0AI1 


; INITIALIZE DELAY 


00390 


DELAY 1 


LD 


E-,0 


;LOOP TO ALLOW PPINT 


00400 


DELAY2 


DJMZ 


DELAY 2 


jHEAD TIME TO SETTLE DOWN 


00410 




DEC 


C 


jFROM BACKSPACE VIBRATION. 


00420 




J" 


NZ, DELAY 1 ;A80UT 20 MILLISECS. 


00430 




RET 




; READY TO PRINT 


00440 




ORG 


402611 


[PRINTER DRIVER ADDRESS 


00450 




DEFW 


START 


;WHERE TO BEGIN SUBROUTINE 


00460 










00470 




end 


Program 


Listing 1. 



many, almost on a par with 
learning Latin when only a few 
hundred words of vocabulary 
are required. 

It is much quicker to speak to 
someone in his own language 
than it is to use an interpreter 
(BASIC). 

Machine language programs 
invariably run 300 to 400 times 
faster than a program in BASIC, 
Fortran or Cobol high level lan- 
guages. Furthermore, machine 
language programs require only 
1/10 the memory of a program 
written in a higher level lan- 
guage, perhaps 1/7 the memory, 
if you use Pascal. 

The TRS-80 editor/assembler 
allows you to write assembly 
language programs in source 
code that uses the Zilog stan- 
dard mnemonics (LD = load, 
CP = compare, RET = return, 
etc.) rather than in 8-bit binary or 
its decimal equivalent. 

After the source code has 
been written (see Listing 1), the 
editor/assembler program (origi- 
nally written by Zilog) then 
makes two passes through the 
program, both editing and as- 
sembling it after the "A" com- 
mand, ENTER. The obvious er- 
rors are printed out as well as 
the object code for the program, 
illustrated in Program Listing 2. 

The left column is the memory 
position in hexadecimal and is 
keyed on the number you input 
in line 100 of the source pro- 
gram. The second most left col- 
umn is the complete instruction 
(opcode + operand) translated 
into 1, 2 or 3, but rarely 4, bytes 
of object code in hex which will 
be loaded into your TRS-80's 
memory in binary format. 

The first two-digit hex number 



in the second column is the op- 
code. There are 157 fundamen- 
tal opcodes, or instructions, for 
the Z-80 and 547 additional 
variations for a total instruction 
set of 694. 

If you were a real masochist, 
you could manually load each 
object code hex byte, after con- 
verting the hex into decimal, via 
the BASIC POKE instruction. 

Program Flow 

The REMarks section of List- 
ing 1 briefly explains each line's 
function, but for those who wish 
to run through the program flow 
in detail, be seated, just like you 
were in Assembly Language 101 
class. 

We started the print zero sub- 
routine in line 140 at memory lo- 
cation 32533, so that another 
small print subroutine allowing 
the user to set the line at any 
number could be tacked on lat- 
er. Print zero only requires 53 
bytes of memory (7F41 - 7F15 = 
53 decimal), so it may be set ex- 
actly at the high end of your 
TRS-80's memory minus 53, if 
desired. 

If you are using disk and have 
plenty of memory, it would be 
wise to place it about 200 bytes 
from the top, since some disk 
operating systems use the top 
few bytes for sundry purposes. 

The address may be in deci- 
mal (32533) or hex (7F15H) as the 
assembler will automatically 
change any number not ending 
in H to hex. Just remember, any 
hex number beginning with a let- 
ter—A, B, C, D, E or F — 
must be preceded by a zero, or 
an error will be printed when you 
assemble the program. 

Line 150, the START label, be- 
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gins the subroutine. Modifying 
the line printer control block's 
driver address in memory loca- 
tions 16422 and 16423 (is actual- 
ly accomplished in lines 440 and 
450). 

The opcode, PUSH instruc- 
tions from line 150 to 180 merely 
store, but do not change the 
values of your AF, BC, DE and 
HL registers in the stack. PUSH- 
ing all of them into the stack is 
unnecessary in this particular 
subroutine, but is a good habit 
when writing any subroutine. If 
critical data from your main pro- 
gram resides in any of the regis- 
ters used in the subroutine, it 
will be lost. Saving the contents 
in these lines and restoring 
them in lines 290-320 is a most 
worthwhile habit. 

The opcode LD and operand 

A,C transfers the contents of 
register C to register A, the ac- 
cumulator in line 190. It just so 
happens that during any LLIST 
(list program output to printer) 
operation, register C contains 
the value of the NEXT character 
to be printed. 

The opcode CP in line 200 and 
operand 30H (ASCII zero = 48 
decimal = 30 hex) subtract 30 
hex from the contents of the ac- 
cumulator (next character to be 
printed) and set the Z-80's status 
flags accordingly. The result of 
the subtraction is discarded. If 
the result is zero, as when the 
next character to be printed is a 
zero, then the next instruction 
executes a jump to the line with 
the label ZERO, line 230. 

The JP opcode followed by 
operand Z, ZERO in line 210 is 
exactly the same as the BASIC 
IF-THEN-GOTO statement. If 
the result of the simple binary 
subtraction in line 200 is not 
zero, the program falls through 
to the next statement in line 220, 
just as in BASIC. This line's un- 
conditional JP says GOTO the 
line with the label FINIS (line 
290). 

In lines 290 to 320 the pro- 
gram restores the original val- 
ues to the registers. Line 330 re- 
turns to the ROM program, 
memory location 58D hex = 1421 
decimal. This is where the line 
printer control block driver ad- 
dresses (16422 and 16423) told 
the program to go before being 
modified in lines 440 and 450. 



Time Factor 

How long a time period has 
the subroutine used to examine 
each non-zero character before 
returning to the regular printer 
routine? You have used 13 in- 
structions, which at an average 
execution time of 4 cycles = 52 
cycles. With a TRS-80 clock of 
1.7 MHz, each cycle takes .5637 
microseconds times 52 or ap- 
proximately 29 microseconds. 
Does an 29 microsecond delay 
slow down our 15 character per 
second printer? No, at this sub- 
routine speed the printer does 
not even know you are there. 

If the result of the subtraction 
in line 200 is a zero, line 210 
jumps to 230. The CALL opcode 
is exactly the same as a BASIC 
GOSUB with the place to go in 
the operand, TEST, line 340. The 
RETURN, which must terminate 
every GOSUB, is RET in line 430. 

In lines 340 to 430, the pro- 
gram knows the next character 
to print is a zero and introduces 
a short delay. 

After the I/O Selectric has 
completed a character and is 
ready for the next one, it places 
a 3F hex = 63 decimal = ASCII ? 
into memory location 14312 = 
37E8 hex. It is saying, "OK, I 



10 
10 


REM 

REM 


100JZ000300040005000SSJ07000S0009000 
1000ZJ»030004000500#000700080009000 


10 

10 
10 


REM 

REM 
REM 


100002000030000400005000060000700008000090000 
100002000030000400005000060000700008000090000 
100002000030000400005000060000700008000090000 

Program Listing 3. 



printed what you sent me. What 
next?" 

Line 340 then loads the value 
from memory location 37E8H in- 
to the accumulator. Line 360 
subtracts 3F hex from it. In line 
370, because the result is zero, 
the program falls through to the 
next line: another IF-THEN 
statement, just as in BASIC. The 
program uses a jump relative 
(JR) here, because it saves one 
byte of memory and can move 
128 positions back or 127 for- 
ward, more than enough for our 
purposes. 

Lines 380 to 420 provides a 20 
millisecond delay that allows 
our Selectric printer time to set- 
tle down from the bone shaking 
that occurs when we backspace 
the device while printing multi- 
ple zeros. 

The first two lines in Program 
Listing 3 show the program with- 
out this delay. The last three 



7F15 


0014^ 




ORG 


7F15H 


7F15 F5 


00150 


START 


PUSH 


AF 


7F16 C5 


00160 




PUSH 


BC 


7F17 D5 


00170 




PUSH 


DE 


7F18 K5 


00180 




PUSH 


KL 


7F19 79 


00190 




LU 


A,C 


7F1A FE30 


00200 




CP 


030H 


7F1C CA22 7F 


00210 




JP 


Z.ZEPO 


7riF C332 7F 


00220 




JP 


Finis 


7F22 CD397F 


00230 


ZERO 


CALL 


TEST 


7F2 5 3E2F 


00240 




LD 


A,02Fi! 


7F27 32ES37 


00250 




LD 


(3712811) ,A 


7F2A CD397F 


00260 




CALL 


TEST 


7F2D 3E08 


00270 




LD 


A.0U; 


7F2F 32E837 


00280 




LD 


(37E8ii) ,A 


7F32 El 


00290 


FINIS 


POP 


HL 


7F33 Dl 


00300 




POF 


DE 


7F34 CI 


00310 




POP 


BC 


7F35 Fl 


00320 




POP 


AF 


7F36 C38D05 


00330 




JP 


058DH 


7F39 3AZ837 


00340 


TEST 


LD 


A,(37E8H) 


7F3C FE3F 


00360 




CP 


03FH 


7F3E 20F9 


00370 




JR 


MZ.TEST 


7F40 0E0A 


00380 




LD 


c,0a:< 


7F42 0600 


00390 


DELAY 1 


LD 


B,0 


7F44 10FF 


00400 


DELAY2 


DJNZ 


DELAY2 


7F*6 0D 


00410 




DEC 





7F47 C242 7F 


00420 




JP 


nZ.OELAYl 


7F4A C9 


00430 




RET 




4026 


00440 




ORG 


4026H 


4026 15 7F 


00450 




DEFN 


START 


0000 


00470 




END 




00000 TOTAL 


ERRORS 








DELAY 1 71-42 


00390 


00420 






DELAY2 7F44 


00400 


00400 






FINIS 7F32 


00290 


00220 






START 7F15 


00150 


00450 






TEST 7F39 


00340 


00230 


30260 00 


370 


ZERO 7F22 


00230 


00210 








Program Listing 2. 





lines illustrate the 20 millisec- 
ond delay. 

In line 410 the program re- 
turns to the line following the 
CALL, line 240. Line 240 loads 
the ASCII slash=2FH=47 
decimal into the accumulator. 
(See page C/2 of the Level II 
Manual for ASCII codes in deci- 
mal and enter the hex equiv- 
alents next to each.) 

Lines 250 and 260 place 2FH 
(the /) into memory location 
37E8H (14312), which is the line 
printer's PRINT address and 
then awaits the line printer's 
"handshake", saying, "I printed 
the slash, and I'm ready for 
another character via the CALL 
TEST in line 260." 

When the printer is ready, the 
program falls through to line 
270. The accumulator is loaded 
with ASCII 8H, the backspace 
signal, while line 280 sends the 
slash to the printer. 

Line 330 gives the instruction 
GOTO original print routine and 
print that zero on top of the 
slash, which was what this sub- 
routine was all about! 

As mentioned earlier, the sub- 
routine's starting address is put 
into the line printer control block 
driver address at 16414 and 
16415 by lines 440 and 450. 

Conclusion 

This mini-subroutine will cer- 
tainly enhance any program list- 
ings you wish to print and give 
them a professional appearance 
when using a printer without the 
slash-zero typeface. 

Before assembling the source 
code, remember to give it a 
name. This subroutine has been 
tested with Level II BASIC, DOS 
2.1, DOS 2.2 and NEWDOS + 
and works fine with all of 
them. ■ 

Appendix: 

This program is from Chapter 
8 of the author's Disassembled 
Handbook for TRS-80 Volume I. 
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UTILITY 



Delve into the dark secrets of cryptanalysis. 



Code Cracker 



James P. Morgan 
2386-B Ash Creek 
Scott AFBIL 62225 



10-270 

INSTRUCTIONS 
INITIALIZE 
CREATE CODE 



300-315 
USER INPUT 
SENTENCE 



330-400 

CODE AND PRINT 

SENTENCE 





General Flow Chart 



On the morning of August 1, 
1943 a bomber force of 178 
American Liberators departed a 
Libyan airfield en route to the 
huge oil field complex at Ploesti, 
Rumania. To ensure safe pas- 
sage over Allied defenses, a 
coded message was sent to 
units throughout the Mediterra- 
nean which identified the force 
as friendly. 

Within minutes after takeoff, 
German cryptanalysts in Athens 
had intercepted and broken the 
coded message. The Ploesti air 
defenses were alerted and fifty- 
three American Liberators were 
shot down. 

The secret war waged by the 
code clerks from back rooms 
once again influenced the out- 
come of a military operation. 

The first use of code for 
military operations is credited to 
Julius Caesar. He devised the 
coded alphabet which worked 
on the principle of one-for-one 
direct letter substitution. You 
will find his code used in the 
cryptograms published in news- 
papers and periodicals to this 
day. It is still known as the 
Caeser Alphabet and is formed 
as shown in Fig. 1. 

The standard alphabet is thus 
transposed randomly by direct 
substitution of a new, coded 
alphabet. 

Moving from the days of the 
Roman legions to modern cryp- 



tography, a most significant de- 
velopment has been the intro- 
duction of the computer as the 
code-maker's and code-breaker's 
most powerful analytical tool. 

I have set my micro to the task 
of creating and breaking codes 
and the following program may 
help you to discover yet another 
enjoyable application for your 
home computer. 

Developing the Program 

When I program, I find it most 
useful to establish a specific 
outline of the program's require- 
ments. Each requirement is then 
developed and fulfilled sepa- 
rately, tested and merged into 
an overall program. My outline 
follows: 

1. Develop a method of com- 
puter-created random Caesar al- 
phabets. 

2. Provide computer or user 
input of messages to be coded. 

3. Computer coding and dis- 
play of the coded message. 

4. Provide user interaction 
with the computer in breaking 
the coded message. 

a. Input trial letter substitu- 
tions. 

b. Display results. 

c. Allow for further modifi- 
cation. 

d. Continue until solved 
with update every cycle. 

What seemed at first glance a 
relatively easy programming 



task turned out to be quite diffi- 
cult. 

Program lines 10 through 100 
print a general introduction to 
the program. The CLEAR 500 
statement inline 20 reserves the 
string space required by later 
sections of the program. 

Line 110 DIMensions the ar- 
rays which will store the codes 
at various stages. The A$(X) ar- 
ray holds the Caesar Alphabet. 
The J$ array is filled with the 
coded sentence. The K$ array is 
used to store the user's code- 
breaking efforts. 

Lines 120 through 230 satisfy 
the first requirement of my out- 
line. These lines automatically 
create the code. Line 120, the C$ 
string, sets the normal alphabet 
used for comparisons through- 
out the program. Lines 130 
through 150 initialize the A$(X) 
atO. 

A random number is selected 
by line 160. Assume the number 
selected is five. A looping rou- 
tine starts at line 170. The first 
time through, with an X value of 
one, line 180 fails the test, eg., 
A$(1) = and MID$(C$,B,1) = E 
since B = 5. 

Line 190 also fails the IF test 
since A$(1) equals and the pro- 
gram drops to line 200. At line 
200, A$(1) is assigned the value 
of the letter E. Line 210 counts 
N = 1 and line 220 sends the pro- 
gram back for another random 
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from PROGRAM MA 

HI-RESOLUTION GRAPHICS FOR THE TRS-80® 






« NEW L IFE FOR YOUR TRS-E 
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LOWER CASE 

The 80-GRAFIX board includes 

two sets of lower case characters 

at no additional cost. 




DEMONSTRATION PROGRAMS 

The 80-GRAFIX board is supplied 
with a Character Generator software 
and several demonstration programs. 




FINALLY, AT LAST.. . 

HI- RESOLUTION GRAPHICS is available for your 
TRS-80 computer system. The 80-GRAFIX board from 
PROGRAMMA International, Inc. gives your TRS-80 high 
resolution capability that is greater than the Commodore 
CBM/PET or even the revered APPLE 1 1. 

80-GRAFIX gives the TRS-80 an effective screen of 
384X192 pixels, versus the normal 127X192 for the 
TRS-80, 80X50 for the CBM/PET, or the 280X192 of an 
APPLE II. As an added feature, 80-GRAFIX offers you 
lower case characters at no additional cost. Of course, you 
can also create your own set of up to 64 original characters 
using the supplied Character Generator software. 

The 80-GRAFIX board is simple to install (note that this 
voids your Radio Shack warranty), and programming is 
done through BASIC. 80-GRAFIX opens up a whole new 
realm of software development and excitement never 
dreamed of for the TRS-80 ! 




INVERSE VIDEO 

The 80-GRAFIX board allows you to 

do inverse video to high-light your 

screen displays. 
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CHARACTER GENERATOR 

The supplied character generator 

software allows you to create your 

own character set of up to 

64 original characters. 




REAL-TIME GRAPHIC GAMES 

With the 80-GRAFIX board you can 

write exciting real-time games using 

BASIC. 




EASY INSTALLATION 

The 80-GRAF IX board is simple to 
install and fits inside the TRS-80 case. 
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GRAPHICS GALORE 

The 80-GRAFIX board and 

the supplied Character Generator 

allow you to become an artist. 
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ELECTRONIC DESIGN 

The 80-GRAFIX board has unlimited 

application in Electronic design 

and Education. 




80-GRAFIX HI-RESOLUTION 

Finally, the only means to protect 

your computer investment is to order 

an 80-GRAFIX board TODAY! 




EXCITEMENTS FUN 

Open up a new realm of software 

development with the 80-GRAFIX 

board. 



Available exclusively through PROGRAMMA at the cost of $149.95 

Please check with us for availability prior to ordering 

VISA and MASTERCHARGE accepted 

TRS-80 is a registered trademark of the Tandy Corp. ^21 



PROGRAMMA 

INTERNATIONAL, IMC. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 

(213) 384-0579 • 384-1116 * 384-1117 
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The MICROCONDUCTOR™ 

the ultimate 

database manager 

for your TRS-80® and Apple® 



Compose Any Software Program 
Dy simply answering the questions, 
YOU Describe the file layouts 
YOU Specify the print formats 
YOU Design the update functions. 
The CONDUCTOR DOES THE WORK!!! 




BUSINESS 

MAN w DENT | ST 1|7 tv 

BCD A I ft 

JPROGRAMER. p HY SICIAN 

The MICROCONDUCTOR™ directs your computer ro 
compose, organize and summarize all information you 
need ro solve your software and business problems. 

Wirh The MICROCON DOCTOR™, your computer wi 1 1 
be able ro compose any record-keeping software you 
need. In the office, The MICROCONDUCTOR™ can help 
wirh anything from accounts receivable to property 
management. You'll find that The MICROCONDUCTOR™ 
is ideal for the shop too. Let it fake care of your inventory 
records, sales analysis, price lists, and more. 

The MICROCONDUCTOR™ is notjust a file manager 
but a true Data Base Management System suitable for 
both the novice and professional users. 
Some of rhe modules of rhis masrerpiece are: 

DATA FILE— One srep file creation. Jusrset it, and forget it. 
MAINT.— Manipulate your dara files with ease; add, 

delete, modify, scon, relocate, and more. 
SORT— Sort any number of fields, in any sequence, 

ascending or descending order. 
UPDATE— Single or dual file report and update utility. 

Introductory Prices 
TRS-80® Model I $ 249 

Apple® $ 299 

TRS-80® Model II S 399 



an 



/MICROCOMPUTER 

TECHNOLOGY 
INCORPORATED ^ 



[ master charge] 



The MICROCONDUCTOR™ is power at your fingertips! 
Power ro set up, mointain, sort, report, and updare dara 
files ar whim. Jusr imagine: with rhe MICROCONDUCTOR™, 
you can establish a cusrom moiling lisr system in 30 
minutes, accounts receivable in 2 hours, a complere 
business system in only a few working days. Never 
before has your computer been given such power! 

DATA FILES— No limir on rhe number of records a file 
can have. 
FIELDS— Any type (string, inrerger, single, double). 
Eighr enrry modes (including defaulrs, 
counting, and suppress). 
REPORTS— Four ways ro generate reports. Total nu- 
meric column(s). Print on any paper in 
any formar (statements, labels, etc.). 
SORT— Any field(s) in any combination (i.e. mul- 
tiple-key sort). Any size file, numeric or 
ASCII. Ascending or descending. 
MAINT.— Command anticipation. Record duplica- 
rion. Direcr access and sequenrial search. 
UPDATING/ 
MERGING— Add, subtract, multiply, divide fields. Com- 
bine results from previous calculations. 
Test for any condition and take action. 



"Registered trade mark of Apple & Radio Shack. 



Apparatlnc. 



3304 W. MacArthur • Santa Ana. CA 92704 • (714) 979-9923 



ALL PRICES CASH DISCOUNTED 



FREIGHT FOB/FACTORY 



(303) 741-1778 
7310 E. Princeton Ave. • Denver. CO 80237 • (303) 758-7275 

ASK FOR OUR FREE CATALOGUE 
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CAVF / add-ons for TRS-80® 

J/«V t*/ Software and Hardware 



A new enhanced NEWDOS for the TRS-80. 

The most powerful Disk Operating System for the TPS-80, 
designed for the sophisticated user and professional program- 
mer who demands the ultimate. 

NEWDOS/80 is the planned upgrade from NEWDOS 2.1. 
Some of the features are: 

• New BASIC commands for files with variable record 
lengths up to 4095. 

• Mix or march drives. Use 35, 40 or 80 track 5" disk 
drives or 8" disk drives, or combo. 

• Security boot-up for BASIC or machine code applica- 
tion programs. 

• New editing commands. 

• Enhanced RENUMber that allows relocation. 

• Command chaining. 

• Device handling for routing to display and printer 
simultaneously. 

• DFG function; striking of D. F and G keys allows user to 
enter a mini-DOS without disturbing program. 

• Compatible with NEWDOS & TP5DOS. 
Machine language Superzap/80 2.1 $A A Q 



SUMMER CLEARANCE 

>70 FREE MERCHANDISE 



with purchase of Shugarr SA400 
with power supply and chasis, 
the same disk that Radio Shack 
sells for $499. 



$369 



|Announcing 
8" Floppy Disk Drive System 



for Model I 



utilities and enhanced debug and copy. 



*639 



NEW 

TF-8 80 TRACK DISK DRIVE 

Double Your Capacity 

TF-9 DUAL 80 TRACK DISK DRIVE $7QO 

Quadruple Your Capacity Emm 



Disk Drive Sale! 

Complere with power supply ond chassis. 
TF-Penec FD200, 40 frock. 

use both sides $389 

F-5 MPI D51 . 40 frock $389 

TF-70 Micropolis 77 frock 

wifh 195K storage $595 

TDH-1 Dual Sided drive. 

35 frock $499 

NEWDOS+ 40 frock $110 

35 rrack $ 99 

Business Programs 

(Inreractive A/P>. A/P. & GO $349 

Mailing Lisr $59 

Disk Head Cleaner $16.95 



Drives for any Microcomputer 

Does not include power supply & cabinet. 

PerrecFD200 $282 FD250 $099 

Shugort 5A400 $279 5A800/801 $479 

MPI D51 $279 D52 $349 

Printers 

Centronics 779 $1,069 

Base 2 $ 599 

Centronics 737 

Text processing capabili- 
ties, lower case descenders, 
underlining, subscripts and 
superscripts, 80 cps. $899 



One SA801 Floppy 
NEWDOS 80 
Cable (j Adapter 

M099 





Spinwriter 



$2,549 



/MICROCOVPUTER 

TECHNOLOGY 
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Disk Drive 
Expansion System 

• 2 Shugort 5A400 drives wirh 
power/chassis $ 738 

• 1 Two-Drive Coble S 25 

• 1 Expansion Interface 32K $ 499 

• 1 35-rrock DOS+ $ 99 

TOTAL LIST PRICE $1,361 

SPECIAL PRICE ONLY $1,199 

MOD II 8" Disk System 

• 1 Drive System JO" " 

• 2 Drive Expansion System 9 ■ jO/7 

• 3 rd Drive Add $479 

More Savings 

Introductory Offer- 
Save $250 TRS-80 
Graphics Okidafa 
H nm* W Microline 80 . . . 

List $949 t/QA 

Our Price *Qy V 

Memory Kit (16K) $69.00 

AC Isolator (6 socket) $47.95 

Modem $164.00 

Diskettes (10) $30.00 

«irr "" 



330 

D$- SENTENCE 

M. LENGTH 

K$ (Y) IS ZEROD 



340 V 

SENTENCE 
LENGTH COUNTER 



350 X 

ALPHABET 
LENGTH COUNTER 




395 

ASSIGN SPACE 

TO J$(Y> 




Print Sentence in Code 

number. 

Assume the next random 
number selected is the number 
3. A$(1) = E which fails the IF 
test at line 180 since 3 is the 
MID$(C$,B,1) value. At line 190, 
A$(1) is not so the line branch- 
es to line 230 and then to line 
170 where an X value of 2 is gen- 
erated. Lines 180 and 190 fail the 
IF tests so the value of A$(2) be- 
comes the letter C. 

This section continues to se- 
lect random numbers and loop 
through values of X until all 26 
A$(X) values have been as- 
signed random letters of the al- 
phabet. This array now holds the 
code. 

The Sentence 

Lines 270 through 320 give the 
user the option of either man- 
ually entering a sentence to be 
coded or letting the computer 
select a sentence at random. 

At line 330, the length of the 
sentence, including spaces be- 
tween words, is derived from the 
M = LEN(D$) statement. The 
K$(Y) array is then set to " " or 
empty spaces for the entire 
length of the sentence. 

Lines 340 through 400 print 
the sentence in code. This is 
done in the following manner. 




200 

ASSIGN VALUE 

TO A$(M 



210 

COUNT LETTERS 

ASSIGNED VALUES 




230 

GET ANOTHER 

VALUE OF X 



260-320 

INPUT SENTENCE 

TO BE CODED 



Create Code 

At line 340 the Y counter se- 
lects the first position in the sen- 
tence. Line 350 selects the first 
X value and line 360 tests if the 
position in the D$ sentence 
string is a space. If not, the pro- 
gram goes to line 370 where the 
X value in the C$ is compared to 
the Y value in the D$. The X 
counter continues to loop until a 
match is made. 

Let's assume the first letter in 
the sentence D$ is a C. The 
match occurs when X reaches a 
value of 3, since the third letter 
in the C$ string is C. The pro- 
gram jumps upon a match to 
line 390. The value of A$(3), 
which is a letter in the coded al- 
phabet, is printed and also as- 
signed to the J$(1) position. The 
coded sentence is thus built up 
letter by letter and stored in the 
J$(Y) array. 

The program so far has cre- 
ated a code and applied that 
code to a sentence. All that re- 
mains is to provide a system of 
breaking the code. This is ac- 
complished in lines 500 through 
770. The user examines the 
coded sentence and determines 
potential substitutions. For ex- 
ample, a letter by itself is usual- 



ly an A or an I. 

At line 520 the coded letter to 
be changed is input as 0$. The 
letter to be substituted is then 
input at line 535 as N$. The 
counter at line 540 sets up a 
scan of the entire coded sen- 
tence. At line 550 each value of 
J$(Y) which corresponds to the 
letter the user wants changed is 
flagged and sent to line 580. 
This line reassigns the value of 
K$(Y) to the new (N$) letter. 

After each letter of space in 
the sentence is checked by the Y 
counter, the program then prints 
the results with lines 600 
through 670. The IF statements 
at lines 630 and 660 cause the 
program to print a line of coded 
sentence, a line of changes, 
then two similar lines below. 



Lines 700 through 770 provide 
for user options at each run 
through of the code-breaking at- 
tempts. Lines 1000 through 1410 
store the computer generated 
sentences. 

Conclusion 

The program has gained in- 
stant popularity with family and 
neighbors alike. Once a person 
gets hooked as an amateur 
cryptanalyst, it is extremely 
hard to keep him away from the 
computer. 

Although the code system 
used is not as complex as the 
one broken by the Germans dur- 
ing the Ploesti raid, it will pro- 
vide a challenge to all who use 
the program. ZCCA FYPQ WOA 
GOXCN! ■ 



Program Listing. 

10 CLS:PRINT@25, "CRYPTO" 

20 PRINT:CLEAR 500 

30 PRINT"THIS PROGRAM WILL CREATE SECRET MESSAGES USING 

A DIFFERENT 
40 PRINT"CODE EACH TIME. TWO PLAYERS CAN PLAY OR ONE PL 

AYER CAN TEST 
50 PRINT"HIS/HER CODE-BREAKING ABILITY AGAINST THE COMP 

UTER. THE GAME 
60 PRINT"IS EXACTLY LIKE THOSE FOUND IN DAILY NEWSPAPER 

S AND MAGAZINES 
70 PRINT" IN THAT A CODED SENTENCE IS PRESENTED AND THEN 

BROKEN BY 
80 PRINT"ANALYSIS OF STRUCTURE AND LETTER SUBSTITUTION. 

": PRINT 
90 PRINT"THE COMPUTER IS BUSY COMPILING THE CODE AND WI 

LL SIGNAL 
100 PRINT"YOU WHEN READY. IT TAKES LESS THAN 30 SECONDS 

110 DIM A$(30),J$(150) ,K$(150) : A$(30)=" " 

115 REM A$ IS CODE, J$ HOLDS CODED SENTENCE, K$ HOLDS C 

ODE BREAKING 
120 C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
125 REM SET AS TO ZERO 
130 FOR X=l TO 26 
140 A$(X)="0" 
150 NEXT X 

160 B=RND(26): REM SELECT RANDOM ALPHABET VALUE 
17 FOR X=l TO 26 
180 IF A$(X)=MID$(C$,B,1) THEN 160: REM IS LETTER AL 

READY 
PICKED? 
190 IF A$(X)<>"0" THEN 230: REM IS THERE SPACE AVAIL 

ABLE? 

200 A$(X)=MID$(C$,B,1) : REM ASSIGNS CODED LETTER TO 

A$ 
210 N=N+1: IF N=26 THEN 260: REM COUNTS LETTERS PLAGINS 

TRD 
220 GOTO 160 
230 NEXT X 
260 FOR X=l TO 26:PRINTA$(X) ;:NEXT:REM CAN SEE CODE HER 

E IF 
DESIRED 
270 CLS:PRINT"OK,THE COMPUTER IS SET. TYPE 1 TO PLAY AG 

AINST THE 
280 PRINT "COMPUTER, TYPE 2 FOR TWO PLAYERS." 
290 Z$=INKEY$:IFZ$=""THEN290 
295 IF Z$="l" THEN 1000 
300 PRINT :PRINT"FIRST PLAYER, ENTER SENTENCE TO BE CODE 

D. DO NOT" 

310 PRINT"SHOW TO THE OTHER PLAYER. DO NOT USE ANY PUNC 

TUATION . 
315 PRINT-TYPE AND ENTER YOUR SENTENCE NOW..." 
320 INPUT D$ 

330 CLS: M=LEN(D$): FOR Y=l TO M: K$(Y)=" ": NEXT 
335 REM THE ABOVE SETS THE CODED SENTENCE ARRAY (K$) TO 

BLANKS 
340 FOR Y=l TO M 
350 FOR X=l TO 26 
355 REM IS THE LETTER OF THE D$ SENTENCE A SPACE BETWEE 

N WORDS? 
360 IF MID$(D$,Y,1)=" "THEN PRINT" ";:GOTO 395 
365 REM MATCH VALUE OF LETTER IN SENTENCE WITH NORMAL A 
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LPHABET 
370 IF MID$(C$,X,1)=MID$(D$,Y,1) THEN 390 
380 NEXT X 
390 PRINTA$(X);: J$(Y)=A$(X): GOTO 400:REM PRINT AND AS 

SIGN 
CODES 

395 J$(Y)=" ": REM ASSIGN BLANK SPACE BETWEEN WORDS 
400 NEXT Y: REM GO BACK FOR ANOTHER LETTER 
500 PRINT: PRINT "THE ABOVE SENTENCE CAN BE DECODED BY DI 

RECT SUBSTITUTION. 
510 PRINT-SELECT LETTER TO BE CHANGED..." 
520 INPUT"WHAT IS THE LETTER YOU WANT TO CHANGE" ;0$ 
530 PRINT"CHANGE " 0$" TO WHAT LETTER? A DOUBLE QUOTE W 

ITH ONE 
535 PRINT"SPACE IN BETWEEN THE QUOTES WILL PRINT A BLAN 

K SPACE.": INPUT N$ 
540 FOR Y=l TO M 
550 IF J$(Y)=0$ THEN 58 0: REM CHECK J$ FOR SELECTED L 

ETTER 
560 IF K$(Y)=" " THEN 590:REM CHECK FOR EMPTY SPACE 
570 K$(Y)=K$(Y): GOTO 590: REM HOLD VALUE 
580 K$(Y)=N$: REM ASSIGN NEW LETTER TO CODED SENTENC 

E 
590 NEXT Y 
600 CLS:PRINT"HERE IS THE CODED SE-TENCE WITH YOUR SUBS 

TITUTIONS." 
610 PRINT: N=l 

620 FOR Y=N TO M: PRINTJS (Y) ; :REM PRINT CODED SENTENCE 
630 IF Y=64 THEN 650:REM CHECKS SCREEN LIMIT 
640 NEXT Y:PRINT 

650 FOR Y=N TO M: PRINTK$ (Y) ; :REM PRINTS CHANGES 
660 IF Y=64 THEN 680 
670 NEXT Y: PRINT: GOTO 6 90 
680 N=65: GOTO 620:REM SETS UP FOR NEXT LINES OF CODE A 

ND CHANGES 
690 PRINT: PRINT "FOR FURTHER CHANGES TAP THE 'Y' KEY. 
695 PRINT"TO START OVER WITH THIS CRYPTO, TAP THE 'N' K 

EY." 
700 PRINT"FOR ANOTHER GAME TAP THE 'A' KEY. 
710 PRINT'TO END THE GAME TAP THE 'E' KEY." 
720 M$=INKEY$: IF M$="" THEN 720 
730 IF M$="Y" THEN 500 
740 IF M$="A" THEN 10 
750 IF M$="E" THEN 999 
760 IF M$="N" THEN 330 
770 PRINT"I DON'T UNDERSTAND, TRY AGAIN. TAP Y,N,A, OR 

E.":GOTO720 

999 CLS: PRINT "SO LONG FOR NOW." :END 

1000 L=RND(2): REM SELECT RANDOM SENTENCE FOR CODING 



1010 ON L GOTO 1100,1300 

1100 L=RND(10) 

1110 ON L GOTO 1120,1130,1140,1150,1160,1170,1180,1190, 

1200,1210 
1120 D$="THE LOVE OF JUSTICE IN MOST MEN IS SIMPLY THE 

FEAR OF SUFFERING INJUSTICE" :GOTO 330 
1130 D$="SILENCE IS THE BEST TACTIC FOR HIM WHO DISTRUS 

TS HIMSELF": GOTO 330 
1140 D$="THINGS ARE ALWAYS AT THEIR BEST IN THEIR BEGIN 

NING":GOTO 330 
1150 D$="ALL MEN WOULD BE TYRANTS IF THEY COULD" :GOTO 3 

30 
1160 D$="ONCE A WOMAN HAS GIVEN YOU HER HEART YOU CAN N 

EVER GET RID OF HER":GOTO330 
1170 D$="HE WAS A BOLD MAN THAT FIRST EAT AN OYSTER" :GO 

TO 330 
1180 D$="MAY YOU LIVE ALL THE DAYS OF YOUR LIFE":GOTO 3 

30 
1190 D$="A BIRD IN THE HAND IS WORTH TWO IN THE BUSH":G 

OTO330 
1200 D$="ASK NOT WHAT YOUR COUNTRY CAN DO FOR YOU BUT W 

HAT YOU CAN DO FOR YOUR COUNTRY" :GOTO 330 
1210 D$="EXPERIENCE IS THE NAME EVERYONE GIVES TO THEIR 

MISTAKES": GOTO 330 
1300 L=RND(10) 
1310 ON L GOTO 1320,1330,1340,1350,1360,1370,1380,1390, 

1400,1410 
1320 D$="IT IS BETTER TO REMAIN SILENT AND BE THOUGHT 

F AS A FOOL THAN TO SPEAK AND REMOVE ALL DOUBT" :GO 

TO 330 
1330 D$="THE APPLAUSE OF A SINGLE HUMAN BEING IS OF GRE 

AT CONSEQUENCE": GOTO 330 
1340 D$="IT IS BETTER TO LIVE RICH THAN TO DIE RICH":GO 

TO 330 
1350 D$="A PRETTY FOOT IS A GIFT OF NATURE": GOTO 330 
1360 D$="A MEAL WITHOUT WINE IS LIKE A DAY WITHOUT SUNS 

HINE":GOTO 330 
1370 D$="ASK YOURSELF IF YOU ARE HAPPY AND YOU WILL CEA 

SE TO BE SO": GOTO 330 
1380 D$="GOSTRING$ MADE INTEGERS ALL ELSE IS THE WORK 

F MAN" :GOTO330 
1390 D$="WAR IS MUCH TOO SERIOUS A MATTER TO BE ENTRUST 

ED TO THE MILITARY": GOTO 330 
1400 D$="WHEN YOU ARE FLAT ON YOUR BACK THERE IS NO PLA 

CE TO LOOK BUT UP": GOTO 330 
1410 D$="THE ONLY WAY TO GET RID OF A TEMPTATION IS TO 

YIELD TO IT": GOTO 330 



& 



TRS-80 



Software 
Exchange 



• Cash & royalties for original 
programs — science, busi- 
ness, games, education. 

• No risk. 

• Join our co-op & share your 
programs with others and 
vice-versa! 

Programs must be original! 
For complete info, clip & mail to: 

Software Exchange 
P.O. Box 42407 ^im 

• Portland, Oregon 97242 

"TRS-80 is a registered trademark of TANDY CORP." 




ANNOUNCING THE FIRST 

TRUE ELECTRONIC MUSIC 

SYNTHESIZER FOR THE 

TRS-80* 

NOT A SIMPLE SOUND EFFECTS 
GENERATOR BUT A COMPLETE 

MUSIC SYSTEM! 



TRS— 80* Synthesizer 

• 3 SIMULTANEOUS NOTES PER BOARD 

• PLUGS INTO ANY STEREO SYSTEM 

• NO EXPANSION INTERFACE NEEDED 

• DEMO CASSETTE INCLUDED 



$130 KIT 



$190 ASSEMBLED 



MUSIC EDITOR 

ENTER SHEET MUSIC VIA WELL TESTED ENTRY SYSTEM 
$10 CASSETTE $15 DISK 



TRS-80 Hardware: 

2 Plug in Game Paddles 74.95 

Lowercase Modification 18.95 

Light Pen 19.95 

Beeper 25.00 

I 

NEW WAVE ELECTRONICS, INC. 



^323 




WEV 



nuw yuu vsaii - % 

RAISE 

and tilt your monitor for 

more comfortable 

viewing, and 

COVER 

that unprofessional tangle 

of cabling and power 

supply. The 

"80-SHROUD" 

is a matching silver-gray 

molded fiberglass module 

that fits under the 

"80" monitor. 

$22.50 + $2.00 shipping and 

handling with check or money 

order. NYS residents add 7% tax. 

SYRACUSE R&D CENTER 

Box 125, DeWitt, N.Y. 13214 

"our 10th year in R&D" ^35« 



s Reader Service index— see page 194 
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INTERFACE 



A fine component interface for your television set. 



Cheap Video 



Paul C. Fowler, Jr. 
Inland Motor IDD 
609 Rock Road 
Radford, V A 24141 

Dennis J. Murray 
1005 Chestnut Drive 
Cristiansbury, VA 24075 



A few months ago I bought a 
TRS-80 mainframe, hooked 
a video modulator to my old 
black and white and found at 64 
characters per line I had only 
hieroglyphics. At 32 characters 
per line I could decipher words 
and letters satisfactorily. 

After the initial excitement of 
having my own computer wore 
off, I needed to do something 
about my 64 characters per line 
problem, so I said good-bye to 
the indistinct world of modula- 
tors and found myself in the fuz- 
zy world of direct video inter- 
face. 



With a commercial direct in- 
terface device the resolution of 
32 characters per line was just 
fine and 64 characters per line 
was readable but uncomfort- 
able. 

Nothing was wrong with my 
$25 interface device, but with all 
those capacitors and things in 
my video section my TV's slew 
rate was too slow. So, what to 
do? Break down and buy a moni- 
tor? There's got to be a better 
way. There is ... ! And it's sim- 
ple too. 

After a lot of talking and ex- 
perimenting, the co-author and I 
came up with the circuit in Fig. 
1a. 

How the Circuit Works 

Transistor Q1 serves as an 
emitter follower whose quies- 
cent state (and thus the white 
level) and relative gain is deter- 
mined by the setting of R1, 
which interacts somewhat with 
the set's contrast and bright- 



RI,R2,R3; I/8 WATT 
R4, R5, I/4WATT 




OUTPUT 
TO BASE OF 
FINAL VIDEC 
AMPLIFIER 




Fig. 1b 



Fig. la 



ness controls. 

Potentiometer R2 adjusts the 
signal level passed to the TV's 
sync circuits avoiding synchro- 
nization problems caused by 
overdriving those stages. 

Beautiful! Only five compo- 
nents to scrounge and the reso- 
lution is excellent. There is one 
drawback: The TV must be iso- 
lated. But one can buy an isola- 
tion transformer for just a few 
dollars and overcome this prob- 
lem. 

If an inverted video signal is 
desired, replace Q1 with an NPN 
and series its emitter to ground 
with a 2.2K resistor (Fig. 1b). Al- 
most any small signal transistor 
will do. 

A typical set is shown in Fig. 
2. As good TV sets and good 
monitors are not usually com- 
patible, I am assuming that this 
monitor will never again be a 
television. 

Disable everything upstream 
from X1 and X2. Insert the inter- 
face output at X1, and the sync 



at X2. Vcc should be somewhere 
between 9 and 20 volts (I used 12 
VDC on my Sony Model #TV- 
1 104). You can tap this from one 
of your set's biasing supplies. 
Set P1 and P2 to the center posi- 
tions and inject the composite 
video into the interface. Also, 
set your horizontal control and 
brightness controls for good 
definition. 

To fine tune the picture, fill 
the screen with zeros. Adjust the 
height and vertical linearity con- 
trols until the characters are all 
equal size and they fill the 
screen from top to bottom. 

You may find that the data 
lines do not properly fit on your 
TV's screen— either the lines 
are too short or too long. This 
can be remedied in several 
ways; if you are lucky you have 
an adjustable horizontal fre- 
quency coil in your set. Adjust it 
carefully with an insulated 
alignment tool until you reach a 
satisfactory line width. If you 
are unlucky your set has no ad- 
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justment. 

Don't panic! Your horizontal 
oscillator must have some fre- 
quency determining network 
and it can be changed. Usually it 
is an L-C arrangement, although 
R-C networks aren't uncommon. 
By altering either one or both of 
those components, your scan 
frequency, and thus the line 
width, can be changed. 



Another alternative is to 
change the horizontal scan fre- 
quency by changing the horizon- 
tal output stage time-constant. 
This is accomplished by adding 
or subtracting capacitance until 
the picture reaches the desired 
width (Fig. 3). 

Conclusion 

Get a SAM'S PHOTO-FACS 



HORIZONTAL 
OUTPUT AMPLIFIER 
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Fig. 3 



for your TV. Not having one is 



FROM OTHER VIDEO 
AMPS AND DETECTOR 




Fig. 2 



like exploring a cave in the dark. 
Use coax cable for all signal 
runs. To reduce stray capaci- 
tance, keep components as 
close together and as small as 
possible. I recommend using 
dual 10K pots in the 8 Pin Dip 
Package. Q1 is any moderate 
gain PNP transistor whose re- 
verse breakdown voltage is 
greater than Vcc. 

Finally, and most importantly 
— DON'T OPEN UP YOUR SET 
without some knowledge of 
what's going on inside. If you 
don't know how a TV works, get 
someone to help you. Other- 
wise, you may shake hands with 
the high voltage rectifier and 
see hieroglyphics for some 
time. ■ 



JT UVJ"OU A Programmable 
Music and Sound Synthesizer 



MSL 



A Programming Language 
for Music and Sound Effects 
PSG-80- — implements what we believe to be 
the most powerful single chip music and 
sound synthesizer available today, the 
General Iastruments AY-3-8910. This LSI 
can simultaneously produce 3 different tones 
each at a different volume. Plus, it has 
envelope and noise generators for producing 
more complex sounds. PSG-80 also contains 
its own on board amplifier. Requires 2 ports. 

MSL — is a Music and Sound effects 
Language which enables everyone to quickly 
utilize the powerful resources of the PSG-80. 
The Language was written to support many 
PSG-80's simultaneously and contains many 
special purpose statements, plus many tradi- 
tional programming structures such as nested 
loops. 

PPI-80— utilizes Intel's 8255 to provide three 
parallel I/O ports for the TRS-80 and can be 
connected via the screen printer location on 
the expansion interface or to the expansion 
bus at the rear of the keyboard. 



esc-vo piu-i msi.. 

PPl-HI) 
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p.o. box 628 
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"•flt|r" LEVEL II 

SOUND STX 

REAL TIME DISPLAY 
OF SOUND INPUT WITH 
RECORDER MIKE 
MACHINE LANGUAGE 
PROGRAM LISTING OF 
LESS THAN 100 BYTES 
FULL LOUDNESS DEPTH 
FROM UNMODIFIED '80 
WITH CTR-41 RECORDER 
DISPLAY MOVES TO 
MUSIC OR VOICE 
FOR EXPERIMENTS OR 
LAZY VIEWING SEND 
6.00 CK OR MO WITH 
STAMPED SELF AD- 
DRESSED ENVELOPE TO 

EDF ^-359 

BOX 3054 

BRANFORD CT. 

06405 



Disk Based 
Word' 

Processor 
$7.50 



A complete word processing system 
for your TRS-80 Including full editing 
features such as paragraph move, line 
deletion, Insertion & line correction. 
Store text on disk, print business 
and personal letters, reports with 
numbered pages and title pages! Text 
stored on disk as blocks are created 
so texts are not limited by the avail- 
able memory. The PENSA-WRITE word pro- 
cessor Is for 16K single-drive TRS-80s 
and comes complete with software to 
produce upper/ lower case at prlnthead, 
and keyboard reverse. Ful I right/left 
justification and much more. Send 
cheque, money order or order by phone, 
24 hours, 7 days a week. Mastercharge 
end Visa welcome. Manual only, SI .75- 
deductlble from cost of software. 

ORDER NOW! ! 



Pensadyne 

COMPUTER SERVICES 

4441 WEST FIRST AVE. 

VANCOUVER, B.C., V6R4H9 

604-224-3107 



^207 



s Reader Service index — see page 194 
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UTILITY 



Limit access to your machine code 
subroutine, with this software combination lock. 

Software Lock 



M. D. Kelleher 

79 City View Way 

San Francisco, CA 94131 



Lor those TRS-80 users who 
■ enjoy working with machine 
language (and enjoy a little soft- 
ware intrigue on the side), this 
article describes a short utility 
subroutine that provides re- 
stricted access to your own 
machine language programs 
through the use of a predefined 
user code. 

The subroutine, SOFTPROT, 
is written for 32K DOS and is au- 
tomatically loaded into memory 
on power-up or reset using the 
TRSDOS AUTO function (Listing 
1). 

Software Theory 

The theory of SOFTPROT is 
as simple as a James Bond 
movie. A user code (top secret, 
of course) is requested as the 
first step in each machine lan- 
guage program from which the 
SOFTPROT subroutine is called. 
This code request must be an- 
swered with the proper key- 
board characters, and in the 
proper sequence, before the 
subroutine loop can be broken 
and the main program routines 
accessed. 

Should the wrong code be en- 
tered, or the correct code be en- 
tered out of sequence, the 
SOFTPROT loop continues. 



(This should be frustration 
enough for even the most de- 
vious arch-criminal, if a complex 
code is used.) 

SOFTPROT uses a three-level 
code requiring the input MDK, 
however, the routine can easily 
be expanded to accommodate 
any number of code levels. Once 
the correct code sequence is en- 
tered, SOFTPROT returns con- 
trol to the user's machine lan- 
guage program by way of the as- 
sembler instruction RET. 

The program is initialized at 
hex address BEOO but can easily 
be reconfigured for a 16K 
TRS-80 by assembling the sub- 
routine with a hex starting ad- 
dress of 7E00. 

In either configuration, make 
sure that the machine language 
program using SOFTPROT does 
not extend beyond hex BDFF in 
a 32K machine or 7DFF in a 16K 
machine. If so, SOFTPROT will 
be wiped out! 

Here are the procedures for 
setting up SOFTPROT, depend- 
ing upon your TRS-80 hardware 
configuration: 

In a 32K DOS system, assem- 
ble the program using the editor/ 
assembler and save the object 
file (the machine language code 
itself) to disk under the filename 
"SOFTPROT/CMD". Now, using 
the TRSDOS or NEWDOS + 
AUTO function, enter this com- 
mand: 

AUTO LOAD SOFTPROT/CMD 



from the DOS mode. Each time 
you power-up or reset the 
TRS-80 using this diskette, 
SOFTPROT will automatically 
be loaded into memory begin- 
ning at hex address BEOO. 

With a 16K DOS system the 
only changes you must make to 
SOFTPROT itself are in the first 
and last program lines (the ORG 
and END instructions). Change 
the addresses at these lines to 
hex 7E00. The remainder of the 
program uses relative jumps so 
that you may relocate it any- 
where convenient in memory. 

Putting SOFTPROT into Action 

Once you have SOFTPROT 
assembled and ready to run, the 
rest of the operation is a piece of 
cake. To use SOFTPROT, add 
the following command as the 
first executable program state- 
ment of any machine language 
program: 

CALL 0BE00H (for 32K machines) 

or 

CALL 07E00H (for 16K machines) 

The result of this command is 
to call SOFTPROT before ac- 
cessing the remainder of your 
machine language program. 
Once SOFTPROT is called, the 
proper user code must be en- 
tered from the keyboard before 
execution of the main program 
begins. 

Experiment with SOFTPROT 
and you will find several ways in 



which to use it. Here are a few 
suggestions: 

1)Try calling SOFTPROT from 
your BASIC programs by using 
the DEFUSR function. A typical 
Disk BASIC program might 
begin like this: 



10 CLS 

20 PRINT "SAMPLE PROGRAM" 

30 DEFUSR = &HBE00 

40 X = USR0(X) 



This same format can be used 
in Level II machines by changing 
the DEFUSR statement address 
to the proper decimal equivalent 
for your version of SOFTPROT. 
If you're really wild about user 
codes, you can even find some 
very esoteric ways of hiding 
lines 30 and 40 with the ASC or 
STR functions of DISK or Level II 
BASIC. 

2) Alter the required user code 
in different versions of SOFT- 
PROT to match the particular 
machine language program you 
will be using it with. 

3) Experiment with access 
codes using SOFTPROT. For ex- 
ample, establish a 5 or 6 level 
code (ABCDEFG) where the cor- 
rect entry of, say, one half of the 
code allows access to a portion 
of your program; whereas, only 
the full code complement allows 
total program access. 

4) And here's a finale for you 
007 freaks. How about using 
SOFTPROT in such a way that a 
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certain character input from the 
keyboard cleared all memory lo- 
cations occupied by your ma- 
chine language program and 
then did a "self-destruct" on 
SOFTPROT itself. A sort of 
"Good morning, Mr. Phelps" op- 
eration. 



At any rate, you should be 
able to come up with fasci- 
nating innovations between spy 
novels. If nothing else, SOFT- 
PROT is an interesting introduc- 
tion to the intrigue of machine 
language programming. 

Good afternoon, Mr. Phelps. ■ 
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Program Listing. SOFTPROT 




Find the best price you can in this magazine on a box of 10, 
Verbatim 5V* inch Floppies and subtract $.50; THAT'S OUR 
PRICE — We include the shipping (please figure the com- 
petitor's shipping and handling charges in your 
computation).* Compare our prices on other equipment; if 
we're not the least expensive, give us a call. 

THIS MONTHS SPECIALS 



SPECIAL #1 

If you purchase the "TRS-80 DISK 
AND OTHER MYSTERIES" Book for 

the regular price of $22.50 

you can buy 10 VERBATIM DISKET- 
TES AND a plastic library case 

for $22.00 

TOTAL $44.50 



SPECIAL #2 

If you purchase APPARAT 
NEWDOS+ for the regular price 

of $99.95 

you can buy 10 VERBATIM DISKET- 
TES AND a plastic library case 

for 5.00 

TOTAL $104.95 



■lank Diskettes 
Verbatim 5Vi" 
Verbatim 8" 

Verbatim 8" Double Density 
Aid* 

Flippy Kit 

16K Ram Kit (200ns) 
Whistle Switch 
BSR System X-10 
BSR Modules 
Floppy Saver 

refills (25) 
Hard Hole Tool 

refills (50) 
Photo Point Light Pen 
Plastic Storage Box 8" 
Plastic Storage Box 5 % " 
Web T-Beep 
Diskette Fromes 
Plastic Diskette Sheets (10) 
Software 

Apparat Newdos + 

35tr 

40tr 
WEB TSHORT 
Electric Pencil 
Dungonquest 
•OFFER good as supply lasts. 



$26.50 
30.00 
44.00 

11.95 
69.00 
23.95 
74.95 
13.95 
11.95 
6.95 
4.00 
9.95 
19.95 
3.00 
2.50 
19.95 
4.00 
8.95 



88.00 
98.00 
9.45 
CALL 
CALL 



PRICE LIST 

Fast Gammon 

Securities Graphics 

Job Costing Package 

Complete accounting 

package for MODEL I and 

MODEL II 
Hardware 

TI-99/4 

SOROC IQ120 

SOROC IQ140 

CENTRONIX 730 

ANADEX DP-8000 

PAPER TIGER 

QUME 5/45, 5/55 

LEEDEX VIDEO 100 12" 

SHUGART SA 400 (35 
track same as Tondy) 
Book* 

TRS-80 Disk ond Other 

Mysteries 
Supplies 

9'/j" x 11" Paper. 11" x 14" 

Paper, Labels, Forms; Print 

wheels, print thimbles and 

ribbons for DIABLO, QUME, 

NEC, Tl and others 
Send for FREE catalogue 
Fro* shipping for orders over $20.00. 



CALL 
29.95 
74.95 



CALL 

880.00 

775.00 

1125.00 

750.00 

855.00 

CALL 

CALL 

124.95 

349.00 



22.50 



CALL 




'^ 



Pllpfoa .eg 

ElJ I a 4636 Park Granada 159 

■n J* Calabasas, California 

LMGfa|j3 91302 (213)883-8594 



^■Reader Service index— see page 194 
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Now In Stock And Ready For Delivery 
NEW TOYS FOR YOUR TRS 80* MICROCOMPUTER 

SHORT MEM 

ADD 1K OF MEMORY TO YOUR COMPUTER THAT DOESN'T FORGET. (AS LONG AS YOU "KEEP SHORT MEM" 
PLUGGED IN) THIS READ/WRITE MEMORY IS A GOOD PLACE FOR YOUR UTILITIES OR IMPORTANT VARIABLES IN AN 
UNTOUCHABLE LOCATION. 

FEATURING 

• EXTERNAL PLUG IN MODULE (KEYBOARD OR EXPANSION INTERFACE) STARTING ADDRESS (3000 HEX) 

• INSTANT ACCESS TO MEMORY CONTENTS UPON POWER UP 

• USES UNASSIGNED AREA OF MEMORY (NO CONFLICT WITH OTHER OPERATING SOFTWARE) 

• COMPATIBLE WITH EITHER Lll OR DISK OPERATING SYSTEMS 

• NO BATTERIES TO RUN DOWN OR HAVE TO REPLACE 

SAVE 
• INTRO SPECIAL $123.95 • REGULARLY $150.00 • 

THIS UNIT WILL PLUG INTO THE BACK OF THE LEVEL II KEYBOARD OR E.I. WITH NO EXTRA PARTS NEEDED. COMES 
COMPLETE WITH IT'S OWN AC POWER ADAPTER. 

OTHER NEW ITEMS FROM LEVEL IV 

8-4116 MEMORY CHIPS FOR KEYBOARD OR INTERFACE - LIMITED SUPPLY AS LOW AS S60.00 

SHUNTS & INSTRUCTION - ADD $500 

MONSTERS LAIR ADVENTURE (FULL GRAPHIC MACHINE LANGUAGE) $19.95 DISK $14.95 CASSETTF 

LP SPOOLER $39.95 

SINGLE POWER SUPPLY AND CASE FOR DISK DRIVE WITH EXTENDER CABLE CUSTOM MADE FOR US FOR THE B 91 
AND B 51 MPI DISK DRIVES (DEALER INQUIRIES INVITED ON THE UNIT) $75.00 

MPI B91 (80 TRACK) WITH POWER SUPPLY AND CASE (AND IF IT IS READY OUR 80 TRACK OPERATING SYSTEM (AT 
LEAST I'M HONEST)) I'LL GIVE YOU A HINT (A MODIFIED TRS-DOS) -$650 00 

DISASSEMBLED HANDBOOK VOL 1 (TRS ROM) $10.00 

DISASSEMBLED HANDBOOK VOL 2 (EXTENTION OF ABOVE) $15.00 

BOTH FOR ONLY $19.95 

RESET BUTTON (STOP USING THAT PENCIL) $ 3.99 

MICRO LINE 80 PRINTER '$699.00 

TRACTOR WHEN ORDERED WITH PRINTER '$100.00 

CABLE FOR ABOVE TO E.I '. '$30.00 

'THESE PRICES MAY BE HIGHER IN OUR RETAIL STORES 

SOFTWARE: 

MATCH BOOK FOOTBALL WITH SOUND $ 9.95 

CRUSHBUGG WITH SOUND $14.95 

INVADERS PLUS 4K LEVEL I AND UP WITH SOUND . . .' $19.95 

INVADERS PLUS DISK WITH STEREO SOUND $24.95 

SOUND AMPUFER ' $10.95 

BOSS SYSTEM UTILITY S29.95 

PINBALL BY ACORN (SUPER PROGRAM) .' '. $14.95 

PINBALL DISK $20.95 

IRV (THE SUPER KEYBOARD) ' .$24.95 

SARGON II DISK $34.95 

CASSETTE TAPES THAT NIXON WON'T LIKE (OURS HAVE.NO DROP OUTS) $1 .00 EA OR 10 FOR $7.50 (THESE ARE THE 
TYPE RECOMMENDED FOR THE TC-8 (POOR MAN'S FLOPPY)) 

HARDSHELL CASES FOR THE ABOVE TAPES THE GOOD ONES 20 EA 

SYSTEM RELOCATOR FOR THE POOR MAN'S FLOPPY. RELOCATES THE SYSTEM FOR ANY MEMORY SIZE. PERMITS THE 

USE OF ANY MACHINE LANGUAGE PROGRAMS ABOVE IT $14.95 

COMING SOON "THE 16K LEVEL IV" WATCH THIS SPACE FOR MORE 

DETAILS!!!!!! 

VISA MC COD (CERTIFIED CHECK OR CASH ONLY) 

10% DISCOUNT ON PREPAID ORDERS (SOFTWARE ONLY) 
PLEASE ADD $2.50 SHIPPING OR 2% OF TOTAL PRICE WHICHEVER IS HIGHER FOR SHIPPING AND 

HANDLING 
•"TRS-80 IS A PRODUCT OF THE RADIO SHACK A DIVISION OF TANDY CORP 



^ j> W-. J rt"%* ; U *- L .!,*&-* -t-Vpn-r.. i IS\ , i (*■, 



LEVEL IV PRODUCTS, INC. 

Your source for the best in 
TRS-80* * software and hardware 

32238 Schoolcraft, suite Fa • Livonia, Michigan 481 5a • (313)525-6200 
Out of Michigan call 1-800-521-3305 
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UTILITY 



A soft approach to LC generation. 



Lowercase With Strings Attached 



Milan D. Chepko, M.D. 

119 Belleville Crt. 

Thief River Falls, MN 56701 



The original TRS-80 system 
uses only uppercase letters, 
which can be somewhat restric- 
tive when typing text. The key- 
board can generate the lower- 
case letters by using the shift 
key, but the screen and the Cen- 
tronics 779 printer can display 
only the uppercase form, even 
though the ASCII code for the 
lowercase letter is stored in 
memory. That is why shifted let- 
ters can cause so much trouble 
in a program listing. 

Some of the other line print- 
ers on the market can handle the 



lowercase code and produce ac- 
ceptable text without any hard- 
ware modification. Unfortu- 
nately, it becomes confusing 
when you try to enter any signifi- 
cant amount of text, since you 
have to key it in just the opposite 
of a regular typewriter. 



This simple subroutine elimi- 
nates at least some of the diffi- 
culty. In essence, it accepts a 
string from the keyboard, then 
inspects each of the characters 
to see which ones have been 
typed with the shift key. It then 
unshifts the shifted ones, and 



10000 '*** SUBROUTINE TO GENERATE LOUER-CASE CHARACTERS 

10010 'BY MILAN D. CHEPKO, M.D. 

10020 'THIEF RIUEP FALLS- MN 

10030 ' 

10040 'SUBROUTINE USES THE FOLLOWING UARIflBLES: 

10050 ' J!* CONTAINS THE STRING UARIHBLE AS INPUT FROM THE KEYBOARD 

10060 ' 0* CONTAINS THE STRING VARIABLE ON RETURN FROM THIS SUBROUTINE 

10070 ' A THE NUMBER OF CHARACTERS IN THE INPUT STRING 

10080 ' C USED TO HOLD EACH ELEMENT OF THE STRING SEQUENTIALLY 

10090 ' B COUNTER 

10100 ' 

10110 A=LEN';;I*>:0**"":IF X*="" RETURN 

10120 FOR B=l TO A:C=ASC(MID*(X$,B, 1>> 

10130 IF C>64 AND C<91 THEN C=C+32:G0T010150 

10140 IF C>9! THEN C=C-32 

10150 0$=0*+CHR*<C> 

10160 NEXT B: RETURN 

Subroutine to Generate Lowercase Letters. 



shifts the unshifted ones. If that 
sounds strange, remember that 
the TRS-80 considers any key 
typed without the shift to be an 
uppercase letter, while any key 
typed with the shift becomes a 
lowercase letter. This routine 
just reverses the process. 

Because it is written in 
BASIC, it tends to be a little 
slow, and you may notice a 
slight delay before the prompt 
appears for the next line of in- 
put. Also, be careful to select 
variables that don't appear in 
the program text, or you may 
lose data accidentally. 

Be sure to CLEAR enough 
space for the extra strings at the 
beginning of the program. Call 
the subroutine with a GOSUB 
just after you INPUT X$, and, on 
returning, the modified string 
will be in 0$.fl 



from 



elcompco 

&n OOSCC MOV 



^63 



CASE CCDT 

for Shugart, MPI, & other minis 



includes 

• CHASSIS 

• PLEXIGLASS COVER 

• ALL PARTS POWER SUPPLY 



Easy Assembly (1-2 hrs.) 
Enough Power for 2 Mini Drives 
use one now— one later 
$125 




COMPLETED UNIT 



(Disk Drives & Connecting Cables— extra) 



Block off for Drive— $5 extra 

DEALER INQUIRIES INVITED 



ELCOMPCO 

Microcomputer Peripherals 

Posr Office Box 6100 
C.O.D. Albany, CA 94706 



VISA 



^Reader Service index — see page 194 
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UTILITY 



Make your Editor/Assembler 

do the things you want it to — with this modification. 

Custom EDTASM 



John T. Blair 
122 Dumont Ave. 
Norfolk, VA 23505 



This article explains how 
to incorporate several 
changes in the Editor/Assem- 
bler from Radio Shack. I'll be 
talking about: An auto line and 
form feed option for printers us- 
ing a 37E8H printer interface; 
how to change the "lines per 
page reference"; incorporating 
Small System Software's TRS- 
232 printer driver; adding a form 
feed routine to the TRS-232 
printer program; letting ED- 
TASM honor "protected mem- 
ory"; changing the EXIT from 
EDTASM so BASIC is reentered 
without going to memory size; 
how to reenter EDTASM and 
maintain your source program 
text. 

To modify the EDTASM you 
will need a monitor, such as 
RSM-1 or RMS-2D, MON3 or 
T-BUG. One caution: You must 
not execute the EDTASM pro- 
gram if you are loading it to in- 
sert a modification. There are 



two ways of modifying ED- 
TASM. 

First, you can load the ED- 
TASM program using the SYS- 
TEM command and then load 
your monitor. Since the monitor 
is the last program entered, 
when you type "<ENTER>", you 
will be in your monitor and ready 
to make any of the modifica- 
tions. 

Referring to the source listing 
of the modifications you wish to 
implement, delete (fill with 
zeros, 00H) the sections of the 
programs that are to be 
changed. Try the "Zero" com- 
mand in your monitor. This will 
let you see easily where you are 
working or if you have run out of 
room. Enter the hex code for the 
desired modification. After in- 
serting the new program, save 
the modified EDTASM program 
using the PUNCH command. 
The starting point for EDTASM 
is 4300H, its ending address is 
5520H, and the entry point (cold 
start) is 468AH. 

An alternative method is to 
write the various programs us- 
ing the EDTASM and to save the 
source and object codes. Then, 
using the SYSTEM command, 
load the EDTASM program. 
Load the object code for the 
patch. (Because of the ORG 



statements, the modification 
will overwrite the required sec- 
tions of coding.) Finally, load 
your monitor and PUNCH a copy 
of the modified EDTASM. 

The Secret of Gaining Control 

To modify any of the I/O rou- 
tines (i.e., keyboard, video or 
printer) you must first take con- 
trol of the EDTASM's old driver. 
Control can be taken from the 
old driver and linked or patched 
to the new routine by changing 
the address in the Device Con- 
trol Block (DCB). 

The EDTASM has its own 
DCB's, and its own CRT, key- 
board and printer driver rou- 
tines. The DCB's are located at: 

1) 4300-4307H Keyboard 

2) 4308-430FH Video 

3) 4310-4317H Printer 

The various drivers routines 
are located at: 

1) 43EF-445FH Keyboard 

2) 4460-45A9H Video 

3) 45AA-45F5H Printer 

The Device Control Blocks tell 
the system: 

Byte Description 
Whether the DCB is an in- 
put or output function, 

1-2 Address on the driver for 
that function, 

3-5 Scratch pad memory for 
that function, 

6-7 The ASCII name of that 



device (i.e., PR = printer). 

These various Device Control 
Blocks are used by the routines 
in the EDTASM. As in BASIC, a 
General INPUT/OUTPUT driver, 
located 43CE-43EFH in the ED- 
TASM and 03C2-03E3H in BA- 
SIC, saves the registers (EX- 
CEPT the DE), then gets the ad- 
dress of the driver from the DCB, 
and jumps to the driver. 

So by changing the address 
contained in the DCB the driver 
can be changed. 

37E8H Printer/Interfaces 

The biggest problem here is in 
the printer driver routine which 
does not insert a line feed after a 
carriage return, nor does it out- 
put a "top of form." In BASIC, a 
OCH can be outputted to give a 
top of form, but not in the ED- 
TASM. 

The printer driver which re- 
sides from 45AA to 45F5 (see 
Listing 1), is identical to that in 
ROMs. If you are using a printer 
interface which is located at 
37E8(H), you can insert a line 
feed after a carriage return with 
a simple modification (see List- 
ing 2). 

Referring to Listing 1, if the 
character to be printed is a ODH, 
<CR>, the program jumps to the 
"Output Character" (OUTCHR) 
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Listing 1. Dissembled Printer Driver. [ 






00 1 ee 


;***************+**++***+**************************++**** 






00110 


9 


EDTASM 'S PRINTER DRIUER SOURCE * 






00120 


;************** 


****************************************** 






88130 


1 












08140 


1 DlSfl: 


:SEMBLED 


BV JOHN T. BLAIR WR40HZ 






00150 


; 












80180 


J *****************************+: 


+:** I 






08161 


;* RLL 


REG'S RRE SflUED < EXCEPT 


* 






88162 


;* THE 


DEO BEFORE ENTERING 


* 






88163 


;* THIS 


ROUTINE 


THE CHARACTER- 


* 






88164 


;* TO BE PRINTED IS IN THE fl- 


* 






88165 


; * REG 






* 






08 1 78 


i* THE 


IX REG. 


IS SET TO 4318H 


* 






88 1 88 


J*BV THE CALLING ROUTINE. THIS 


* 






88198 


;*IS THE PRINTER DEUICE CONTROL 


* 






08288 


;*BLOCK 


. AND IS 


EQUIUILANT TO 


* 






8828 1 


;*THE ONE LOCATED AT 4825H FOR 


* 






88282 


;*ROMS. 


FOR MORE DETAILS SEE 


* 






88283 


;* APPEND IX " D 


. IN THE LEVEL II * 






88284 


;*NRNUAL. 




* 






88238 


J************** 


***************-**** 






88233 










45HR 




88248 




ORG 


45ARH 


J STARTING LOCATION 


45AA 


79 


88258 




LD 


A,C 


J GET CHAR TO BE PRINTED 


45RB 


B7 


88268 




OR 


A 


;CK IT FOR NULL <88H> 


45AC 


2848 


88278 




JR 


Z, STATUS 




45RE 


FE0B 


88288 




CP 


8BH 




45B8 


2S0R 


88298 




JR 


Z.. 45BCH 




45B2 


FE8C 


88388 




CP 


8CH 


J IS IT <FF> FORM FEED? 


45B4 


28 IB 


88318 
88328 




JR 


NZ, OUTCHR 


JJP TO OUTPUT CHAR 






88338 


j ****** 


FORM FEED SECTION ******* 






88348 










45B6 


RF 


88358 




XOR 


R 


; CLEAR " fl " 


45B7 


DDB683 


88368 




OR 


<IX+03> 


; CHECK LINE/ PAGE REF = 8? 


45BR 


2832 


88378 




JR 


Z, STATUS 




45BC 


DD7E03 


88388 




LD 


A, <IX+83> 


J GET LINES/ PAGE REF. 


45BF 


DD9664 


88398 




SUB 


•;ix+84:> 


J SUB. # LINES PRINTED 


45C2 


47 


88488 




LD 


B,fl 


;SET UP LOOP COUNTER 


45C3 


CDEE45 


88418 


RGN1 


CALL 


STATUS 


J IS PRINTER RERDV 


45C6 


29FB 


88428 




JR 


NZ..RGN1 


ilF NOT GO BACK & CK flGN 


45C3 


3E0R 


88438 




LD 


R,8RH 


J SET OUTPUT CHAR = <LF> 


45CA 


32ES37 


88448 




LD 


C37E8H)*A 


JOUTPUT CHRR TO PRINTER 


45CD 


10F4 


88458 




DJNZ 


AGN1 


; REPEAT TILL TOP OF FORM 


45CF 


1818 


88468 
88478 




JR 


RSTLC 


SJP TO RESET LINE COUNTER 






88488 


i ******* OUTPUT 


CHARACTER ROUT I NE h + * * * * 






88498 










45D1 


F5 


88588 


OUTCHR 


PUSH 


RF 


;SAVE CHAR 


45D2 


CDEE45 


885 1 8 


RGN2 


CALL 


STATUS 




45D5 


20FB 


68528 




JR 


NZ..RGN2 




45D7 


Fl 


88538 




POP 


RF 


; RESTORE OUTPUT CHAR 


45D3 


32E837 


88548 




LD 


■;37E8h:j.a 


J OUTPUT CHRR TO PRINTER 


45DB 


FE8D 


88558 




CP 


8DH 


J IS IT <CR>? 


45DD 


C8 


88568 
88578 




RET 


NZ 


; RETURN IF NOT 






88588 


J****** 


CHECK 


FOR END OF PAGE 


****** 






88598 










45DE 


DD3404 


88688 




INC 


■;iX+84> 


;INC LINE COUNTER 


45E1 


DD7E04 


806 1 8 




LD 


A, <IX+04> 


J GET COUNT UflLUE 


45E4 


DDBE03 


88628 




CP 


•; 1 X+83 ') 


;IS COUNTER = REFERENCE? 


45E7 


79 


88638 




LD 


fl.. C 


J RESTORE CHRR BEFORE RET 


45E8 


C8 


88648 




RET 


NZ 


; RET URN IF L.C. <> REF. 


45E9 


DD368488 


88658 


RSTLC 


LD 


< I X+84 > > 88 


; RESET LINE COUNTER 


45ED 


C9 


88668 
88678 




RET 










88688 


;****** 


STATU 


s ****** 








86698 










45EE 


3RE837 


88788 
88718 


STATUS 


LD 


A, •:37E8H::> 


;GET PRINTER INTERFACE 
i STATUS WORD 


45F1 


E6F8 


06728 




AND 


8F8H 


;MflSK OUT L.S.B. 


45F3 


FE30 


00738 




CP 


38H 


J IS PRINTER REflDV? 


45F5 


C9 


00748 




RET 






flGNl 


45C3 


flGN 


2 451 


■2 OUTCHR 8808 


8UTCHR 45D1 RSTDC 




45E1 














STATU 


S 45EE 












PCTNDO (PICTURE WINDOW) 

includes machine lan- 
guage subroutines which 
allow easy creation of 
animations, images larger 
than the screen, etc. 

• Images can be saved on 
cassette for use in other 
programs. 

• Easily accessed from 
BASIC or assembler. 

• Full wrap-around 
protected. 

• Can be used for alpha- 
numerics. 

• Includes EDTASM 
source, system/object 
code, BASIC Demo, and 
5 demo animations on 
cassette. 

• 16 page manual 
•ForLII16K. 

$12.00ppd 



WWI 



FRANK LUKE 
Is a simulation based on the 
exploits of American Ace 
Frank Luke, Jr. Hunt for ob- 
servation balloons behind the 
front. If you survive, you get 
a trip to Paris (created by 
PCTWDO). For LI I 16K. 
$10.00ppd 



MS 

lightpen 
keyboard 
joystick 
sensor 
you name it 

connection m^U* 

THE UlCfeel 8-bit TTL/CMOS 
Input port Is the best deal 
around for putting your com- 
puter in contact with the world 
around it without tying up the 
cassette port or modifying the 
computer . Plugs Into expansion 
card edge at back of keyboard. 
Full documentation, instruc- 
tions, £jans for joysticks .... 
Powered by inexpensive AC 
adapter available from Radio 
Shack and elsewhere. For Lll. 
Kit $35.00 

Assembled & tested $4S.00ppd 



Order PCTWDO, FRANK LUKE. 
&UI080from: ^ M2 

\niversal 



NTERFACE 



Listing 2. Patch tor EDTASM. 



00110 ;* :;LF> ON <CR> PATCH FOR EDTASM + 



w _ P.O. BOX 1077 

accept GLENOALE HEIGHTS, 

VISA&MC IL 60137 

(312)469-6921 
(IL residents add 5V* % tax) 



^Reader Service index— see page 194 
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43EF C3E383 
43F2 00 
43F3 00 



45EE 
45B6 



4400 

4400 CDEE45 



4403 20FB 
4405 3E0fl 
4407 32ES37 
440fl DD3404 
440D DD7E04 
4410 FE32 



4412 79 

4413 C0 



00120 
00 1 30 
00140 

00150 

00160 

00170 

001S0 
00190 
00200 
00210 

00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 

00300 
00310 

00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 

00400 
00410 

00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 

00500 
00510 

00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 

00600 
00610 

00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 

00700 
00710 

00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 

00800 
00S10 

00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 

00900 
00910 

00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 

01000 
01010 
01020 
01030 
01040 

01050 
01060 

01070 

01080 



********************************************************* 

; BV JOHN T. BLAIR WR40H2 

; THIS PATCH IS DESIGNED TO WORK WITH THE EDTRSM 

; PROGRAM AND A PRINTER - INTERFACE LOCATED AT 37E8H. 

; THE MAIN PORTION OF THE PROGRAM IS THE PRINTER DRIUER 

: IN EDTASM WHICH RESIDES FROM 45AAH - 45F5H. WHICH IS 

; IDENTICAL TO THE ONE IN ROMS 058DH - 05D8H. 

; THE PATCH INSERTS THE <LF> IF A <CR> WAS THE 

; LAST CHARACTER OUTPUTTED. IT THEN CHECKS THE LINE 

; COUNTER LOCATED AT 4314H AND COMPARES IT TO A 

; ** CONSTANT ** C52D5 REFERENCE TO DETERMINE IF A <FF> IS 

; NEEDED. IF NOT IT THEN INCREMENTS THE LINE COUNTER AT 

; 4314H. 

; NOTE: THE " IX " REG. = 4310H. THEREFORE, aX+03> 

; CONTAINS THE TOTAL NUMBER OF LINES A PAGE WILL HOLD. 

; THIS IS SET TO 66 DECIMAL. IF PAGE LENGTH IS LESS THAN 

; 66 THIS CELL MUST BE CHANGED. THIS CONTROLS THE NUMBER 

; OF <LF>S OUTPUTTED FOR A <FF>. 

; THE <LF> PATCH IS INSERTED IN THE EDTASM "S 

J KEYBOARD DRIUER ROUTINE WHICH RESIDES FROM 43EFH-445FH. 

; THE EDTASM -'S KEYBOARD DRIUER IS REPLACED WITH A CALL 

; TO THE LEUEL II ROMS. 

; THE ENTIRE PRINTER DRIUER WAS. NOT CALLED FROM 

; ROMS BECAUSE IT COULD NOT BE EASILY MODIFVED FOR THE 

; <LF> AFTER <CR>, NOR COULD YOU GET A <FF> AT THE END OF 

; " X " NUMBER OF LINES. 



J**********************************:**********************: 

;* " LINK " TO AUTO LINE FEED AND FORM FEED * 

J******************************************************** 



PATCH EQU 4400H 



ORG 45DDH 



JP Z, PATCH 
RET 



;STARTING ADDRESS OF THE 
J<LF> PATCH. 

J REPLACE ALL AFTER THE 
;"CP QDH " INSTRUCTION 
J NEAR THE END OF EDTASM' S 
; PR INTER DRIUER WITH 00H. 

;JUMP TO THE PATCH IF THE 
;<CR> WAS SENT. 



J******************************************************* 

S# KEYBOARD DRIUER PATCH * 

j ******************************************************** 



KYBRD 



EQU 

ORG 
JP 
NOP 
NOP 



03E3H 



;rom keyboard routine 



43EFH ; START OF KEYBOARD DRIUER PATCH 
KYBRD ;CALL ROM KEYBOARD ROUTINE 



J******************************************************** 

;* LINE FEED PATCH * 

1 *****************************************+***********+** 



STATUS 
GENFF 



AGN1 



EQU 
EQU 



ORG 
CALL 



JR 

LD 

LD 

INC 

LD 

CP 



LD 
RET 



45EEH 
45B6H 



440OH 
STATUS 



N2..AGN1 
A..0AH 
<37E8H:>,A 
< I X+04 > 
A, <IX+04> 
50D 



A..U 

NZ 



; PR INTER READY CHECK. 
;FORM FEED FROM EDTASM 

; START OF <LF> PATCH 

;IS PRINTER READY? THIS 
; SECT I ON CALLED "STATUS" 
;FROM THE EDTASM PRINTER 
; DRIUER ROUTINE. 
;IF NO CHECK TILL READY 
;SET OUTPUT CHAR = <LF> 
; OUTPUT CHAR TO PRINTER 
;INC. THE LINE COUNTER 
JGET UAL OF LINE COUNTER 
;THIS IS THE * CONSTANT i 
J WHICH SET THE NUMBER OF 
; LINES PER PAGE. 
; RESTORE PRINT CHAR FOR 
JEXIT 
; RETURN IF NO 



;***************************+********+**+***********+++^ 

;* FORM FEED * 

;*******************************++******++******+***+**** 

THERE ARE TWO FORM FEED OPTIONS PRESENTED HERE. 
I 1> THE ROUTINE AT LINE 1070 IS FOR A PRINTER LIKE THE 
; DATEL 1030 WHICH "DOES NOT" RECOGNIZE A <FF>. 
; 2> THE ROUT It-IE AT LINE 1120 IS FOR A PRINTER LIKE THE 
: HEATH H-14 WHICH "DOES" RECOGINZE A <FF> 0CH. 

s ****** MANUAL FORM FEED ****** 



section. After every character is 
printed OUTCHR is checked to 
see if a <CR> was sent. If not it 
returns to the calling program. If 
the last character is a <CR> 
then the line counter is incre- 
mented. This is where a Jump 
(JP) to the patch will be inserted 
(the "LINK" section in Listing 2). 
Next a block of unused memory 
is needed in which to store the 
line and form feed patch. 

Unfortunately, there is no 
spare memory in the EDTASM. 
Consequently, the space must 
be generated. Since the key- 
board routine (43EF-445FH) is 
also located down in ROM, the 
EDTASM's can be zeroed. Be- 
cause the EDTASM calls the 
keyboard driver, a Jump to the 
keyboard is used. (See Listing 2, 
Keyboard Driver Patch.) All that 
remains is to insert the line and 
form feed patch. (Refer to List- 
ing 2, Line Feed Patch.) 

There are two form feed rou- 
tines provided. The first is manu- 
al, and outputs line feeds using 
the top of form coding in the ED- 
TASM printer driver. This is for 
printers that do not recognize a 
form feed (OCH). The second is 
an automatic routine for print- 
ers that recognize a <FF>, and 
simply outputs a OCH to the 
printer. 

Number of Lines to a Page 

To change the number of 
lines to a page using the manual 
form feed above, the contents of 
4313H must be changed. It is 
preset to 66 in the EDTASM pro- 
gram. Using the monitor exam- 
ine the contents of 4313H and 
change it to the desired value. 

The auto form feed outputs a 
OCH command to the printer. 
Therefore, consult the printer 
manual for instruction on how to 
change the length of a page. 

TRS-232 Interface 

For the readers still thinking 
about a printer and interface, let 
me say a word about the TRS- 
232 interface by Small System 
Software. It is designed to be 
plugged into the audio output 
cable from theTRS-80, and drive 
a slow, RS-232, serial input 
printer, like a model 33 teletype. 
It sells for about $50 ready to run 
with cassette for the software. 

Because of its simplicity, 
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Personal 
C Computing 

80 

The Largest Personal Computing Show in 1980 



Presents: 

Personal Computing 

and Small Business 

Computer Show 



was***- 







August 21 , 22,23, 24th atthe Philadelphia Civic Center 

• Major exhibits by the industries leading companies 

• Thursday, Aug. 21st, Dealer Day 12 Noon to 6 P.M. 

• Friday and Saturday, Aug. 22, 23rd 9 A.M. to 6 P.M. 

• Sunday, Aug. 24th 10 A.M. to 5 P.M. 

• Free Seminars • Robotics Contest • Antique Computer Display 

• Special Seminars and Tutorials about Computer Music, Saturday, Aug. 23rd 

• 3rd Annual Computer Music Festival, Saturday Evening, Aug. 23rd 

(Computer Music Festival is sponsored by the Philadelphia Area Computer Society-Tickets on sale at show) 

• Computer Visual Arts Festival, Sunday, Aug. 24th 



Advanced Registration 
Saves Time & Money 



Send Dealer-Retailer (4 days) 

Registrations at $10. each, $12. at door 
for Thursday-Sunday, Aug. 21, 22, 23, 
24 

Send_ 



COMPANY NAME 
NAME 



[ : 



Regular Registrations (3 
. each, $10. at door for 



STREET 
CITY _ 



days) at 

Friday-Sunday, Aug. 22, 23, 24 only. 

Advanced Registrations will be mailed late 
July - early August. No Advanced Registra- 
tions accepted after Aug. 8th. 



„._STATE. 



PHONE 



Send Exhibitor 
609-653-1188 



information or Phone 



Send To. 

PERSONAL COMPUTING 80 *m 

Rt. 1, Box 242, Warf Rd., • Mays Landing, NJ 08330 



■ Reader Service index— see page 194 
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there is no handshake between 
the printer and the TRS-80. This 
means that if the baud rate gets 
too high, the printer misses data 
during the head-retract. (NOTE: 
This article was written, and so 
were the listings, using Electric 
Pencil, EDTASM and the TRS- 
232 interface at 600 baud.) 

The interface is housed in a 
small box with a power cord to a 
transformer which plugs into an 
AC outlet and a DB-25 connector 
to attach to your printer. The in- 
terface consists of an OP-AMP 
used as a level shifter from Tran- 
sistor Transistor Logic (TTL), 
to 5 Volts DC, to RS-232, + 12 to 
-12 Volts DC. The parallel to 
serial conversion is performed 
with a software driver, which 
honors the LLIST and LPRINT 
commands in BASIC, and re- 
sides in high core memory. How- 
ever, the EDTASM does not 
honor Protected Memory, and 
consequently the TRS-232 soft- 
ware must be jammed into some 
area of the EDTASM program. 

As before, the EDTASM's 
keyboard routine is deleted to 



4414 CDB645 


01090 


CALL 


QENFF JCHLL 


<FF> FROM EDTASM 


4417 C3 


01100 

01110 


RET 








01120 ; 


****** 


AUTO FORM FEED 


****** 


4418 CDEE45 


01130 RGH2 


CALL 


STATUS 


J IS PRINTER READY? 


44 IB 2SFB 


01140 


JR 


NZ..AGN2 


;HG CK TILL READV 


44 ID 3E0C 


01150 


LD 


A,0CH 


J SET OUTPUT CHAR = <FF> 


44 IF 32ES37 


01160 


LD 


•;37E8H>,A 


J OUTPUT CHAR TO PRINTER 


4422 79 


01170 


LD 


A,C 


; RESTORE PRINTER CHAR 


4423 C9 


01 180 
01190 


RET 






6086 


01200 


END 






00800 TOTAL ERRORS 








fiGNl 4400 


AGN2 


4418 


GEHFF 45B8 


KVBRD 03E3 PflTC* 0000 


PRTD8 4400 


PATCH 


4400 


STATUS 45EE 





Listing 3. TRS-232 Printer Driver Incorporated into EDTASM. 



80100 

88118 
88128 
88138 
88148 
88158 
88168 
00178 
80188 
88198 

80260 

88218 
88228 
00238 
00240 
08250 
00268 
08278 



! ****>&*:£*** ******** ************************************** 

1* MODIFICATION TO EDTASM INCORPORATING THE TRS-232 * 
* PRINTER DRIUER ROUTINE * 

******************************************************** 

MODIFICATION BV JOHN T. BLAIR WA40HZ 

! THIS PATCH IS DESIGNED TO INCORPORATE THE TRS-232 
: PRINTER DRIUER ROUTINE INTO THE EDTASM. THE KEYBOARD 
ROUTINE IS REPLACED BV USING THE ONE IN ROM. THE TRS-232 
DRIUER IS THEN STORED IN THE REMAINING KEYBOARD ROUTINE 



i********************************************^,!^^^)^^^^!^;^^:* 

I* KEYBOARD DRIUER PATCH * 

i***************************************************^^,^.^^ 



THE BOOKKEEPERS 



FOR INFO CALL (603) -44 7-2 745 



Full Charge Bookkeeper— 48K, 3 DRIVE, w/ALPHA$129.95 

Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 

Cheap Bookkeeper— 32K, 2DRIVE & Printer $89.95 

All Above Are Daily Journal — G/L Systems 

Hex Code Converter, Loan Payment Finder, & 

Amortization Table, 16K, 1DRIVE & Printer— ALL 3 $29.95 

STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST., CONWAY, NH, 03818 




SURPLUS TRS-80* 
EXPANSION INTERFACES 

WITH 32K RAM 



Due to changes in Product Structure 
American Business Computers is offering 
14 Expansion Interfaces (All w/32K RAM) 
at closeout prices. 



$450 



American Business Computers guarantees 
expansion Interfaces to be Brand New- 
still in original boxes with original docu- 
mentation and in perfect working condition. 



AMERICAN BUSINESS COMPUTERS 

^ 397 *TM TANDY CORP. 

118 S. MILL ST. - PRYOR, OK 74361 - 918-825-4844 



9 



.95 

SOFTWARE 

P.O. BOX 521 Lowell, MA 01853 



7 • Memory based printer spooler, 
overlap processing and I/O. 

2 • IBM based terminal driver, 

EBCD and correspondence 
code. Full ASCII character set 
with overstrikes. Scripsit 
ZAPS. 

3 • Disk timing program. 

Meter Type numerical and 
statistical screen displays. 
Very easy calibration of all 
type drives. 

4 • Cassette test programs. 

Writes test data to tape, then 
displays all errors on screen. 
Use to check all facets of 
cassette operation and dupli- 
cation quality. 

SEND FOR FREE FLYER 



— The bottom line — 

COST: $9.95 Each + .75 postage 
MA Orders + 5% tax ^235 
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PRIAM 

Hard Disks 
Now Available 
fromSlRlUS 
SYSTEMS! 



PRIAM's high-performance, low-cost Winchester disc drives speed up throughput and expand data storage 
from 20 megabytes to 154 megabytes. And a single controller can be used to operate 14-inch-disc drives with 
capacities of 33, 66. or 154 megabytes or floppy-disc-size drives holding 20 and 34 megabytes. So it's easy to 
move up in capacity, or reduce package size, without changing important system elements or performance. 



Fast, Linear Voice Coil Positioning ■ DC Power required only! 
10 ms track-to- track positioning m Simple, parallel Interface 
Fully servoed head positioning ■ Optional SMD Interface 

.„„,.„,„ the PRIAM LINEUP 

Size 

7" x 17" x 20" 

7" x 17" x 20" 

7" x 17" x 20" 

4.62" x 8.55" x 14.25" 

4.62" x 8.55" x 14.25" 

floppy-size 

floppy-size 



50 ms Average Positioning time 
90 ms Maximum Positioning Time 
6.4 ms Average Latency 



Model/Disc Size 
DISK0S 3350(14" 
DISK0S 6650 14" 
DISKOS 15450 (14" 
DISKOS 2050 
DISKOS 3450 
DISKOS 570 
DISKOS 1070 



Weight 


Price 


33 lbs. 


$2995 


33 lbs. 


$3749 


33 lbs. 


$4695 


20 lbs. 


$2995 


20 lbs. 


$3745 


(low) 


(low) 


(low) 


(low) 



Capacity 

33Mbytes 

66 Mbytes 

154 Mbytes 

20 Mbytes 

34 Mbytes 

5.3 Mbytes 
10.6 Mbytes 
All PRIAM DISKOS Drives have a Transfer Rate of 1 .03 Mbytes/Sec 
Optional SMD interface available for $150. 

SIRIUS SYTEMS offer cases and enclosures for all PRIAM Hard Disk Drives. All 14" Winchester 
Drives will mount in our 14" Standard Case. The 8" Winchesters have two alternatives: a single 
drive case and a dual drive case. All SIRIUS SYSTEMS Winchester drive cases include Power 
Supply, internal cabling, switches, fan, extra AC outlet (not switched, but fused) and possess very 
adequate ventilation. Drive addressing is done on the rear of the Case and not on the drive iteself 
to provide ease of use during operation. All WINCHESTER DRIVE Cases are Warranted for a full 
year and come in our standard blue-black color scheme. Consult us for current availability and 
pricing. 



Remex rfd 4000/4001 
8" Floppy Disc Drives 
Double sided . . . 
Double density!! 



549 



95 




RFD 4001, $569.95 

Offers quality and features found in drives costing much 
more! ■ Single or Double Density ■ Double-Sided Drive ■ Door Lock INCLUDED 
■ Write-Protect INCLUDED ■ 180 Day Warranty ■ Compatible with Shugart 
850/851 ■ Low Power Operation ensures LONGER LIFE! !■ Model RFD 4001 offers 
Data and Sector Separator 

RFD 4000/4001 Technical Manual 6.95 

Connector Set #3 (AC, DC, Card Edge) . .10.95 RFD 4000C/B Cabinet (for use with 

Connector Set #4 (AC and DC) 2.95 Power Modules) 29.95 



Remex 1000B ... If you've been looking 
for a less expensive floppy disc drive, 
but not wanting to sacrifice quality — 
this is it! 



$419 



95 



You get both in the Remex 1000B! For only $419.95 look 

at what you get: ■ 8" floppy Drive ■ Single or Double Density 

■ Hard or Soft Sectoring ■ Media Protection Feature ■ Single Density 

Data Separator ■ 180 Day Factory Warranty 




Door Lock Option $19.95 Write Protect Option . . 

I nterface Adapter Connector Set # 1 

(REMEX-to-Shugart) . . .$14.95 (AC, DC, & Card Edge). 



$19.95 RFD 1000B Technical Manual .$5.95 

RFD 1000B CASE (for use 
.$10.95 (with Power Modules) $29.95 



SIRIUS 8" DISK 
POWER MODULES 

The Single and Dual Drive Power Modules are 
designed to provide DC and (switched) AC 
power for one (the Single Drive Power Mod- 
ule) or two (the Dual Drive Power Module— 
the DDPM will power three RFD 4000s or 
4001s) 8" Floppy Disk Drives. Many features 
are included for safe and reliable operation 
and the Power Modules come with our stan- 



dard 180 day WARRANTY (the Open Frame 
Power Supply warranty is for 2 years). All 
Power Modules will work with either the RFD 
4000C/B or RFD 1000B case (color schemes 
match also). 



Dual Drive 

Power Module (DDPM) 



Single Drive 

Power Module (SDPM) 



$139.95 
119.95 



SIRIUS 80+ 

Perfect Add-Ons for Your 
Computer System! 




The SIRIUS SYSTEMS 80+ Series of Floppy 
Disk add-ons are designed to provide un- 
matched versatility and performance for your 
computer. Consisting of four different add-ons, 
there is a 80+ Series Floppy Disk to meet your 
need . All 80 + Series Floppy Disk are compatible 
with the TRS-80* and come ready to plug in! 

COMMON CHARACTERISTICS 

■ 5 ms track-to-track access time 

■ Auto-eject 

■ 180 day WARRANTY 

■ Exceptional speed stability — 1Vz% 

■ Single density (FM) or double density (MFMI 
M?FM) 

■ Ultra high reliability 

m 2 year Power Supply Warranty 

■ Mix any or all 80+ Series on the same cable! 

■ Includes user accessible plugboard for drive 
reconfiguring 

SPECIFIC CHARACTERISTICS 
The SIRIUS 80+1 is a single sided, 40 track, 
highly reliable Floppy Disk add-on. Offering 5 
more tracks than the Radio Shack model, it cost 
$140 less! Formatted data storage is 102K/20K 
bytes single/double density. 

SIRIUS 80+1 $359.95 

The SIRIUS 80+2 is a dual sided. 70 track (35 
per side), highly versatile Floppy Disk unit. It 
appears to the TRS-80* as TWO 35 track drives, 
yet COST LESS THAN HALF THE PRICE! Even 
greater savings result, since data is recorded on 
both sides of the media instead of only a single 
side. Using the plug board, it may be recon- 
figured for other computer systems! (The 80+2 
operates as Drive and any of the other three 
addresses (with the sandard Radio Shack Cable) 
or as any of four drives (with the SS Standad 
Cable).) Formatted data storage is 80.6K/ 
161. 2K bytes single/double density. 
SIRIUS 80+2 $449.95 

The SIRIUS 80+3 is a single sided, 80 track, 
"Quad" density Floppy Disk unit. Offering 2'/3 
times the storage of a Standard Radio Shack 
drive, the 80+3 greatly reduces the need for 
diskettes correspondingly. Additionally, 
because of the increased storage and faster 
track-to-track access time, the 80+3 allows tre- 
mendously increased throughput for disk based 
programs!!! The 80+3 INCLUDES SIRIUS's 
TRAKS-PATCH on Diskette. Formatted data 
storage is 204K/40K8 bytes single/double 
density. 
SIRIUS 80+3 $489.95 

The SIRIUS 80+4 Floppy Disk add-on is a 
double sided, 160 track (80 per side), 5V«" 
monster! The ultimate in state-of-the-art 5'M" 
Floppy Disk technology, to 80+4 is seen by the 
TRS-80* as two single sided disk drives, each 
with 80 tracks. Thus, in terms of capacity one 
80+4 is equivalent to 4% standard Radio Shack 
drives — a savings of over 73% (not to mention 
diskettes!!!). (With a double density converter, 
the available memory is huge!) The 80+4 is 
similar to the 80+2 in that it arrives configured 
as Drive and any of the other three addresses 
(with the standard Radio Shack Cable) or as any 
of four drives (with the SS Standard Cable). The 
80+4 INCLUDES TRAKS-PATCH on Diskette. 
(The plug board is also included.) Formatted 
data storage is 408K single density or 816K 
bytes double density. 
SIRIUS 80+4 $624.95 



All 80+ Series Floppy Disk add-ons operate a 5 

milliseconds track-to-track access time (eight 

times faster than the SA 400) but are Expansion 

Interface Limited to 12 milli-seconds for the 

TRS-80*. 

'TRS-80© Tandy Corp. 



SIRIUS 
SYSTEMS 

7528 Oak Ridge Highway 
Knoxville, Tennessee 3792 1 ^ 67 




70 ORDER CALL (615) 693-6583 

Phone Orders Accepted 9AM-7PM (ESDT) 

We accept MC, VISA, AE, COD (requires Certified Check, Cashier's Check 
or Cash) and Checks (personal checks require 14 days to clear). SHIPPING 
AND HANDLING: $7.00 per Floppy Disk Drive or 80+ Module ■ 5% for other 
items (any excess will be refunded) ■ Foreign Orders add 10% for Shipping 
& Handling. Payment in U.S. currency ■ Tennessee residents add 6% Sales 
Tax ■ VOLUME DISCOUNTS AVAILABLE 



MPI 51/52 . . . 

A Great Reliable Mini-Drive! 

■ Fast! 5ms track to track access 

■ Exclusive Pulley-Band Design 

■ Unique Door/ Ejector Mechanism 

■ Reliable Vk% Speed Stability 

■ Single/Double Density Operation 
m Industry/ ANSI Standard Interface 

MPI 51 

(Single Head, 40 tracks, 120K/240K A ^_^ „_ 

bytes Single/Double Density) $259.95 

MPI 52 

(Dual Head, 70 tracks, (35/side), 

218.8K/437.5K Single/Double Den- <k _ M , 

sity) $349.95 




MPI 91/92 . . . NEW 
STATE-OF-THE-ART 
DISK DRIVE! 

MPI 91 

(Single Head, 80 tracks, 240K/480K „,___ „_ 

Single/Double Density) $389.95 

MPI 92 

(Single Head, 160 tracks (80/skJe), 

480K/960K Single/Double Den- . maM M 

sity) $499.95 

"•Unformatted data storage 



Introducing the 
versatile, Low-cost 
OMEGA Series 
Controller 

As new technological advances bring down the 
cost of fast, reliable mass data storage, the need 
for an inexpensive, versatile controller have be- 
come greater and greater, To meet this need, 
SIRIUS SYSTEMS' OMEGA Series Controller 
was designed. 

The SIRIUS OMEGA Series Controller Module 
utilizes an on-board microprocessor to 
mediate data transfer to a wide variety of 
peripherals from an equally wide variety of host 
computer systems. Up to four Winchester Hard 
Disks (8" or 14"), four5 1 /i" Floppy Disks Drives 
and/or up to eight 8" Floppy Disk Drives may be 
in use at one time. Host systems interfacing 
is accomplished via a parallel or a serial inter- 
face. With the additon of a Personality module, 
the OMEGA Series Controller Module is directly 
compatible with many popular com- 

Kuter systems (among them the TRS-80 *, 
pple , Heath , and others) . Provision is made for 
the addition of a streaming tape drive, also. 

SPECIFIC HARDWARE 
FEATURES INCLUDE: 

■ Control of up to twelve Floppy Disk Drives 
(eight 8 ' ' andlor four 5Vt") 

• 8" and/or 5 W " Disk Drive Utilization 

• Single (FM) or Double (MFM) density data 
storage 

• Hard or Soft sectored diskette usage 

• Utilization of "Quad" density (96 tpi) 8" or 
5Vi" Disk Drives 

■ Control of up to four WINCHESTER type 
PRIAM DISKOS Disk Drives 

• 8" or 14" may intermix on the same cable 

• Accommodates 8" andlor 14" drives of 
5.3Mbytes to 154Mbytes 

• Ultra-Fast data transfers 

■ Extremely flexible host-controller interfacing 

SPECIFIC SOFTWARE 
FEATURES INCLUDE: 

■ Dynamic format modifications via command 
words 

■ Extremely flexible format acceptance for un- 
usual data storage formats 

■ Easily interfaces to standard operating sys- 
tems (TRS-D0S- , CP/M •**, etc) 

■ Operates in either get/put sector mode or 
data string mode 

■ Performance parameters may be changed by 
EPROM replacement or Dynaminic Repro- 
gramming 

Dedicated systems cards are also available on a 
limited basis for the STD-BUS and the S 100. 
These cards feature shared memory also (again, 
software selectable) in addition to the regular 
OMEGA Series Controller Module features. Con- 
sult SIRIUS SYTEMS for current price and 
availability for the entire line of OMEGA Series 
Memory Units and Controllers. Dealer inquir- 
ies are invited. 



v Reader Service index — see page 194 
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03E3 


00280 




08230 


43EF 


00300 




00310 


43EF C3E303 


00320 




00330 




00340 




00350 




00360 




00370 




00380 




00390 




00408 




00410 




00420 




00430 




88448 




88458 




88455 




88468 




88478 




88488 




00490 




00588 




88518 




88528 




00530 


43F5 


00540 




00550 




88560 


45AA 


00570 




00580 


45RFI C3F543 


00590 




00600 




00610 


0800 


00628 


80000 TOTAL 


ERRORS 



EQU 


03E3H 


ORG 


43EFH 


JP 


KVBRD 



KVBRD EQU 03E3H J ROM KEVBORRD ROUTINE 

J START OF KEVBORRD DRIUER PATCH 
J TRANSFER TO ROM KEVBORRD ROUTINE 



Ji:+:*.^ + + + + H-"4i + + + + + -+* + + + + * + ++ + + + * + * + *** + * + ****+** + + + *+*>«i***** 

J* TRS-232 PRINTER DRIUER * 

•:<<:f *H-- + + ****:4' + + + ***** + ** + ++** + **** + ** + ** + + *:+:* ++** + ++****** 



! THE TRS-232 PRINTER DRIUER SHOULD BE PLACED HERE. 
; DO NOT FORGET THAT THIS PROGRAM PROUIDES SELECTABLE: 
i D LINE FEED ON CARRIAGE RET 
! 2) HEAD RETRACT DELAV 
; 3) LINE SPACING 
4> BAUD RATE 

J BE SURE THAT VOU CONSULT THE TRS-232 MANUAL AND 
; INCORPORATE THE PROUISIONS VOU DESIRE. 

;+:+:*:+:*:* + :4<:***:+<*:+: + + + + + + :+: + *** 

j* " LINK " TO NEW PRINTER DRIUER * 



PATCH EQU 43F5H J STARTING RDDRESS OF TRS-232 

ORG 45AAH J STARTING ADDRESS OF " LINK " 

JP PRTCH ; TRANSFER TO TRS-232 

END 



CVBRD 



8080 



CVBRD 83E3 



CVBRD 83E3 



PATC* 



43F5 



Listing 4. Form Feed for TRS-232. 



4454 



4454 C3B045 
4457 60 



441E 
43FE 
445B 

45B8 

45B8 FE8D 
45B2 C25844 



00188 

00118 
00120 

00130 

00140 

00150 
00 1 60 
00178 
00180 

00190 

00288 
88218 
88228 
88230 
08240 
08258 
88268 
80270 
08288 
08298 

00380 
00310 

00320 
00338 
00340 
08358 
08368 
00370 
80388 
80398 
88480 

80410 

88428 
00430 
00440 
00458 
08468 
88478 
88488 
88498 

00500 

00518 
88528 
88538 
88548 
88558 
88568 



;* FORM FEED FOR EDTASM • TRS-232 * 

;BV JOHN T. BLAIR WA4QHZ 



THIS PROGRAM IS DESIGNED TO GIUE THE TRS-232 
PRINTER DRIUER THE CAPABILITV OF GIUING A FORM FEED 
AFTER A PRESET NUMBER OF LINES. 



;* "LINK " TO FORM FEED * 

t THIS SECTION IS USED TO " LINK " TO THE FORM 

; FEED PRTCH. 



ORG 



JP 

NOP 



4454H 
FRMFED 



JREPLACES THE " CP <CR: 
J AT LINE 1758. 
;GOTO FORM FEED 



S* FRMFED * 



J THIS SECTION GENERATES A FORM FEED AFTER A <CR> 

; IF THE CORRECT NUMBER OF LINES HAUE BEEN PRINTED. THE 

1 NUMBER OF LINES PRINTED CAN BE CHANGED IN LINE 688 

J AND THE NUMBER OF LINES BETWEEN PAGES CAN BE CHANGE IN 

; LINE 678. 



NULLS EQU 
COUNT EQU 
EXIT EQU 



38 FRMFED 



ORG 



CP 
JP 



441 EH 
43FEH 
445BH 

45B8H 

8DH 
NZ,4458H 



JUNE 1430 IN TRS-232 
JLIME 1228 IN TRS-232 
JUNE 1798 IN TRS-232 



J THESE ARE THE TWO LINES 
J REPLACED BV THE JP IN 
J TRS-232 BV THE " LINK ' 



45B5 3A2940 08588 



RETURN TO TRS-232 AT LINE 1770 

LD A, <4829H> JGET LINE COUNTER 



give you the needed memory 
area for the TRS-232 printer 
driver. A Jump to 03E3H is in- 
serted at 43EF as the first in- 
struction of the EDTASM key- 
board routine (Listing 3). This 
transfers the program flow 
down to the ROMs for the key- 
board driver. 

Now comes the hard work. 
Enter the object code for the 
TRS-232 printer driver routine 
starting at 43F5H. Don't forget 
to insert the proper hex code for 
your desired baud rate from the 
hex table on page 5 of the 
TRS-232 manual. You should 
have three bytes of 00H at 
43F2-43F5H and one byte at 
445FH that are still NOPs (OOH). 
Boy, that was close. 

All that is left to do is link the 
new driver routine to the printer 
routine in the EDTASM program. 

To link the new printer driver 
to the old one in the EDTASM, 
zero the old printer driver, it 
resides from 45AA-45F5H. Ex- 
amine 45AB-45ADH and replace 
the00Hswithajumpto43F5:C3 
F5 43. 

Now that wasn't so bad, he 
said, as the sweat rolls off his 
forehead. All that is left to do is 
save a copy of this modified ver- 
sion of EDTASM, using the 
PUNCH command of your moni- 
tor. 

The only shortcoming of this 
modification is that it cannot 
generate a form feed. 

Form Feed for 

EDTASM/TRS-232 

A program that gives you a 
form feed can be located where 
the EDTASM's original printer 
driver was located. Refer to 
Listing 4 for the source of this 
modification. 

Again, as in all modifications, 
you must link from the main pro- 
gram to the patch. This is ac- 
complished by the LINK section, 
by replacing the CP CR and the 
JRZ.NULLS instructions with a 
jump to the form feed patch. 

The first two instructions in 
the form feed routine must be 
the two instructions we replace 
by the LINK. If the last character 
printed is not a <CR>, the pro- 
gram flow is transferred back to 
the TRS-232 program. If the last 
character is a <CR>, the line 
counter (established at 4029H, 
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the LC. for the ROM printer 
driver) is incremented and 
checked against a constant. 

This constant controls the 
number of printed lines on the 
page. In the source listing it is 
set to 54 lines per page. If the 
end of page is not reached, pro- 
gram control returns to the 
TRS-232. When the end of a 
page is reached, line XXXX con- 
trols the number of line feeds 
sent to space between pages. 

After the top of form has been 
executed the line counter is 
reset. This completes the printer 
modifications to the EDTASM. 

EDTASM and Protected Memory 

The ENTRY point (cold start) 
to EDTASM is 468AH, and the 
execution of this coding checks 
the memory, sets up the stack 
and some of the pointers (See 
Listing 5). 

The text buffer, where text 
can start, is the first item taken 
off. It is 5CF9H and this value is 
stored in cell 4115H. The mem- 
ory test resides at 4693- 
469FH, and the end of memory 



45B8 


3C 


0S590 




INC 


A 


IBUMP COUNTER BV 1 


45B9 


FE22 


88600 




CP 


34D 


;54 LINES PRINTED? 


45BB 


23S6 


88618 




JR 


2, GENFF 




4SBD 


322940 


88628 




LD 


<4029H>jA 


; STORE NEW COUNTER UALUE 


45C8 


C31E44 


88638 
88648 




JP 


NULLS 


J RETURN TO TRS-232 AND 

; OUTPUT NULLS IF REQUIRED 






88658 


l ******* GENFF ******** 








00668 










45C3 


868E 


60670 


GENFF LD 


B,14D 


iSET # OF <LF> BETWEEN 






006S0 








; PAGES 


45C5 


C5 


00690 


flGN 


PUSH 


BC 


;SAUE LOOP COUNTER 


45C6 


3E0R 


00700 




LD 


A,8AH 


;SET OUTPUT CHAR = <LF> 


45C8 


CDFE43 


00710 




CALL 


COUNT 


J TRS-232 OUTPUTS CHAR 


45CB 


3E00 


00720 
00730 




LD 


A,08H 


;SET OUTPUT CHAR = 08 

J AS A DELAV FOR MECHANICS 


45CD 


CDFE43 


00748 




CALL 


COUNT 


; OUTPUT CHAR 


45DS 


CI 


00750 




POP 


BC 


J RESTORE LOOP COUNTER 


45D1 


10F2 


00760 




DJNZ 


flGN 


; REPEAT FOR # OF <LF> 


45D3 


3E80 


80778 




LD 


A.88H 


J RESET THE LINE COUNTER 


45D5 


322940 


00730 




LD 


<4829H>, A 


S TO 2ERO 


45D8 


C35B44 


00790 
00888 




JP 


EXIT 


J EX IT TRS-232 


0000 




0081© 




END 






00008 TOTAL 


ERRORS 










AGN 


45C5 


COUNT 


43FE EXIT 445B 


FRMFED 45B8 FUDDS 4416 


FUDLS 44 IE 


GEFFF 


45C3 













88188 


;******************************************************** 








88118 


;* 


EDTASM INITIALIZATION * 








00120 


J******************************************************** 








00138 












00140 


DOCUMENTED 


BV JOHN T. BLAIR WA40HZ 








80158 












00168 






468A 






88170 
88180 


ORG 


468AH ;COLD START, INITALIZATION 


468A 


21F95C 


08190 


LD 


HL,5CF9H iSTART OF TEXT ADDRESS 


468D 


221 


541 


80288 


LD 


<4115H>,HL ; START OF TEXT POINTER 



GOO-GOO, GAA-GAA, REA-DEE... 




The Fine Print: 

Overseas rates a tad higher— please write for them. 

Back issues available— ask for our list. 

TRS-80 is a trademark of Tandy Corporation. 

Californy residents add 6% to single copies and anthologies. 

Programs are for Lvl I 4K and Lvl II 16K. After Oct 1. Lvl I 



So your new TRS-80 just said its first word. REA — DEE. Mow 
what? Are you thinking of its future? About its education? 

Before you run out and get an ANSI standard FORTRAN or a 

CODASYL data base management system, think back to when 

you were less than a year old. How would you have handled the 

bewondering plethoria of data you are possibly thinking of 

handing to your computer? No, you have to CLOAD 

before you can RUN — we all know that. So put 

away all those COBOL routines and Pascal texts. 

and get a subscription to CLOAD MAGAZINE 

CLOAD has just the right mix of nutritious 

programs for a healthy, happy new computer. Once 

a month, a new cassette will arrive at your door by 

First Class Mail, full of software that will provide a 

solid learning foundation for both you and your 

computer. 

PRICES Now Oct 1 

1 year subscription $36.00 $42.00 

6 month subscription $20.00 $23.00 

Single copies $ 3.50 $ 4.50 

Anthology-volume I $ 1 0.00 $ 1 0.00 

Anthology-volume 2 $ 1 5.00 $ 1 5.00 



I 6K only. 



Copyright CLOAD MAGAZINE 



Mastercharge/Visa Welcome. 
Also Cash & Gold. 



- CLOAD 

MAGAZINE, inc. 

P. O. Box 1 267 • Goleta, CA 930 1 7 
(805) 964-276 1 
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4690 36FF 


00210 


LD 


CHL>,8FFH 


JFILL ALL BITS WITH l'S 


4692 23 


88220 


INC 


HL 


J BUMP MEMORV POINTER 


4693 36FF 


80230 
00234 


LD 


<HL>,0FFH 






00236 


J ****** 


MEMORV TEST ****** 




00238 








4695 23 


00240 


HGN1 INC 


HL 


J BUMP MEM POINTER 


4696 7E 


00258 


LD 


ft, <hl:> 


S GET CHAR FROM MEM 


4697 47 


00260 
00261 


LD 


6,H 


;* » B " = TEMP 
J STORAGE OF CHAR 


4698 2F 


00278 
00230 


CPL 




JA = A* CHANGE ALL l'S 
JTO O'S & ALL 0'S TO l'S 


4699 77 


80290 


LD 


<HL>,A 


S STORE " A " IN MEM 


469fl BE 


00300 

00302 
00304 
00386 


CP 


«CHL> 


jr = A*? ALL BITS CHANGE 
J INDICATING GOOD MEM CELL 
J IF NO MEM CELL PRESENT 
J CHAR = FFH. 


469B 70 


00310 
00320 


LD 


<HL>,B 


; RESTORE ORG. CONTENTS 
i OF THAT MEM CELL 


469C 23F7 


00330 


JR 


Z, flGNl 


;GOOD CELL CONTINUE CK 


469E 2B 


00340 
00350 


DEC 


HL 


iBACK UP POINTER TO LAST 
JGOOD MEM CELL. 


469F 221110 


00360 
00378 
00380 


LD 


<4113>,HL 


JSET END OF MEM POINTER 










46FI2 210A00 


00390 
00392 


LD 


HL,000AH 


5 NOT SURE WHAT IS GOING 
;0N HERE. 


46R5 221510 


00400 


LD 


<4117>..HL 




4608 210041 


00410 


LD 


HL.4188H 


- H 


46flB 3601 


00428 


LD 


<HL>,01H 


; " 


46AD 23 


00430 


INC 


HL 


- „ 


46RE 360D 


00440 


LD 


CHL>,.0DH 


. „ 


46B0 31FE42 


00450 


LD 


SP..42FEH 


iSET STACK POINTER 


46B3 flF 


00460 


XOR 


fl 


> CLEAR " A" 


46B4 32BH41 


00470 


LD 


<41BAH.),A 




46B7 32BC41 


00480 


LD 


<41BCH>,A 




46Bfl 32E437 


08490 


LD 


<37E4H>,A 




46BD 322848 


08508 


LD 


<4828H>,R 


; CASSETTE CONTROL STORAGE 


46C8 D3FF 


08510 


OUT 


"C0FFH>,fl 


JSET 64 CHAR. /LINE UIDEO 


46C2 3E1C 


00520 


LD 


R,1CH 


.HOME COURSOR 


46C4 CD3947 


00530 


CALL 


4739H 




46C7 3E1F 


00540 


LD 


fl, 1FH 


; CLEAR SCREE 


46C9 CD3947 


00550 


CALL 


4739H 




46CC 3E8E 


00568 


LD 


A..0EH 


STURM ON CURSOR 


46CE CD3947 


00578 


CALL 


4739H 




46D1 21C948 


80538 
80598 


LD 


HL,48C9H 


-POINT TO START OF SIGN 
JON MESSAGE. 


46D4 CD2F47 


00680 


CALL 


472FH 


J OUTPUT MESSAGE 


46D7 CD3747 


80610 


CALL 


4737H 




46Dfl 31FE42 


08620 
08638 
00640 


LD 


SP,42FEH 


;**** WARM START **** 
SEND OF INITIALIZATION 
J ROUTINE. 


0000 


00650 


END 






00080 TOTRL 


ERRORS 








flGNl 4595 














Listing 5. EDTASM's Initialization. 









00100 


i ******************************************************** 






00110 


;* 


EDTASM PROTECTED MEMORV * 






00120 


,; ******************************************************** 






00130 










00140 


S BV JOHN T. BLAIR WR40HZ 






00150 










88168 


; THIS 


PROGRAM WILL ALLOW EDTASM TO HONOR PROTECTED 






88178 


; MEMORV. THE MEMORV SIZE IS SET ON POWER UP IN BASIC. 






88175 










88138 


i THIS 


PROGRAM REPLACES THE EDTASM'S MEMORV CHECK. 






00190 






4693 




00208 
88210 


ORG 


4693H 


4693 


21B140 


00220 
00230 


LD 


HL.40B1H JPOINT TO BASIC'S 

J PROTECTED MEMORV POINTER 


4696 


111341 


00240 
00250 


LD 


DE.4113H i EDTASM'S END OF MEMORV 
{POINTER 


4699 


7E 


00260 
00270 


LD 


A,<HL> JGET LEAST SIGNIFICANT 
J BVTE OF THE ADDRESS 


469A 


12 


08280 


LD 


<DE>vfl 5STGRE IT 


469B 


2C 


00290 


INC 


L ; POINT TO NEXT BVTE 


469C 


1C 


00300 


INC 


E J BUMP EDTASM'S POINTER 


469D 


7E 


00318 


LD 


A, <HL> i GET NEXT BVTE OF ADDRESS 


469E 


12 


88328 
80330 


LD 


<DE!>..fl J STORE IT 


0000 




00340 


END 




00000 TOTAL 


ERRORS 












Listing 6. EDTASM and Protected Memory. 



pointer is cell 41 1 3H. As you can 
see, the EDTASM uses the 
reserved section of RAM, but un- 
fortunately the pointers for 
BASIC are 40B1/40B2H and 
40D6/40D7H. 

To get the EDTASM to honor 
protected memory, you must 
delete its memory test, 
4693-469FH. (Normally, this is 
not a very good idea, but when 
the TRS-80 is powered up the 
ROMs do a memory test.) Then 
insert the patch in Listing 6. All 
this routine does is copy the 
contents of 40B1 and 40B2H in- 
to 4113 and 41 14H. 

Reentering BASIC 

When the B key is entered in 
the EDTASM, the program 
jumps to the address contained 
at cells 4930 and 4931 H. Since, 
the warm start, reentry point, for 
BASIC is 1A19H, all that is re- 
quired is to change the contents 
of 4930 to 19 and the contents of 
4931 to 1AH. (Remember that 
the Z-80 CPU always reads the 
first byte of an address as the 
Least Significant Byte.) 

If you are using a monitor and 
wish to work on the EDTASM, 
then Jump back to your monitor, 
instead of reentering BASIC at 
4930 and 4931 H, insert the start- 
ing point of the monitor. 

Reentering EDTASM 

Have you ever accidently 
jumped out of the EDTASM, or 
gotten a power glitch and re- 
turned to "MEMORY SIZE"? 
This is frustrating especially 
after working for an hour or 
more on a program. Wouldn't it 
be nice if you could reenter ED- 
TASM and still have your text? 

EDTASM's warm restart is 
located at 46DAH. At this point 
the only pointer that is reset is 
the STACK, therefore, all of the 
text pointers are intact. To re- 
enter EDTASM from BASIC, 
enter SYSTEM <ENTER>, then 
after it prompts " *? " enter 
/1814KENTERX 

From monitor, use its GO (G) 
or Jump (J) instruction and jump 
to 46DAH. If you did not enter 
the program in Listing 6, you can 
replace EDTASM's memory 
check with the program in List- 
ing 7. This program will load the 
SYSTEM entry pointer (40DF 
and 40E0H) with the warm re- 
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EDTASM 


BASIC 


Description 


1 


4318H 


01D9H 


Baud rate generator 


2 


4338H 


01F8H 


Turn off cassette 


3 


433DH 


0215H 




4 


4346H 


021EH 




5 


4354H 


022CH 


Flash asterisk 


6 


435DH 


0235H 


Input 1 byte 


7 


4369H 


0241 H 




8 


4389 H 


0264H 


Output 1 byte 


9 


43A9H 


0284H 


Turn on cassette 


10. 43B8H 


0293H 


Find leader & sync byte 



start vector. Now any time you 
exit EDTASM to BASIC, enter 
SYSTEM, and after the prompt 
" *?" enter /<ENTER>. 



(F) or Word (W) command. These 
commands search memory and 
find a 2-byte sequence. The calls 
to the various cassette routines 



must be found and replaced by 
the respective calls to ROM. The 
EDTASM to BASIC cassettes 
calls are: 

The EDTASM routines that 
call the above starting ad- 
dresses have to be found. Then 
the corresponding BASIC ad- 
dresses have to be substituted. 

Once the D.C.B.s and the CRT 
keyboard and printer drivers are 
replaced by ROM calls, the 
memory from 4300H to 45F5H 
can be deleted and is available 
for further EDTASM modifica- 
tions. 

The old cliche "Necessity is 
the Mother of Invention" is so 



very true. I use all the routines 
just described in some form or 
another. I have both a Datel 1030 
IBM-based Selectric and a 
Heath H-14 printer on line to my 
TRS-80. Both are RS-232, serial 
printers. 

The Datel is driven by a 
homebrew printer interface that 
provides both line feed on car- 
riage return and adjustable 
head retract delay time. 

The H-14 is presently driven 
by a TRS-232 interface. Al- 
though these printer programs 
don't cure all the printer ills, they 
sure go a long way to provide 
hard copy from the EDTASM. ■ 



EDTASM's Device Control Block 



1) 4300-4307H Keyboard 
2) 4308-430FH Video 
3)4310-4317H Printer 

The various driver routines 
are located at: 



1) 43EF-445FH Keyboard 
2) 4460-45A9H Video 
3)45AA-45F5H Printer 



To replace all of the drivers, 
change the contents of 4615H to 
C2 and 461 6H to 03. All of the 
coding between 43CEH and 
45F6H can now be replaced by 
NOPs, leaving about 512 bytes 
for other modifications. 

To gain another 400 bytes the 
cassette routines can also be 
deleted by calling the ROMs. 
This will require a little more 
work and a monitor with a Find 







00180 


- 


+:*:*:***:+:**+:+: :+i***+**4:*+;+"+::4<*:+:**+^ 






00118 


; 


* HUTO REENTERV TO EDTASM * 






00128 


X 


K^^^^4<Hc^44<H<4<4'^4t^^4<^4<4<^^<4tHc)^H<4i4(4c4e4cH<sft4t4<Hc4<>|e9(i>|cHcHe3tiH<><«>l<H<)|t4<4i>l'H<H<3('!<< 






00130 










00140 


; 


BV JOHN T. BLAIR WA40HZ 






00160 










00170 


; 


THIS PROGRAM IS USED TO INSERT THE WARM RESTART 






00 ISO 


j 


UECTOR INTO THE ENTERV POINT POINTER, ALLOWING REENTERV 






00 1 90 


j 


TO EDTASM WITHOUT LOSING ANY TEXT ALREADY IN THE BUFFER. 






00200 


r 


TO REENTER EDTASM TVPE: 






00210 


; 


" SYSTEM " < ENTER > 






00220 


j 


*? " S " < ENTER > 






00230 










08240 






4693 




00250 
0026O 




ORG 4693H 


4693 


21DA46 


00270 




LD HL,46DAH ;WARM RESTART ADDRESS 


4696 


22DF40 


00280 
08299 




LD <40DFrD,HL J STORE RESTART UECTOR IN 

;enterv POINT POINTER 


4699 


00 


00388 




NOP 


469FI 


00 


88310 




NOP 


469B 


00 


00328 




NOP 


469C 


00 


00330 




NOP 


469D 


00 


00340 




NOP 


469E 


00 


00350 




NOP 


0000 




00360 




END 


00000 TOTAL 


ERRORS 














Listing 7. Auto Reentry to EDTASM. 



CdmpuCqueev 




COVER YOUR INVESTMENT 



"Cloth Backed Naugahyde Vinyl 
•Improved Reliability 
•Longer Lile 



• Waterproofs Dustprr 



Send check or money order to: 

elude $1.00 lor postage and handling 

verseas orders include S3 00 postage. 

DEALER INQUIRES INVITED 



CqmpuCduer C10O 

° Box 324 iDepI Cl 
Mary Esther FL3?b69 
Phone l9(Wi 24M793 , 




eal 
World 



if fm+ Mr « l> tndlt <A thai »,*+sm HASH 



Real World (Analog) to Digital Conversion for use in 
your BASIC programs with better than 0.5*/o accuracy. 
Digital to Analog real world audio, test, and control 
voltages generated with same accuracy by your programs. 

Easily incorporated into your present BASIC programs. 
Support software frees TRS-80* to run other programs 
concurrently, updating only when voltage changes occur. 

Expansion interface not required. BASIC or Machine 
Language with Level II. Usable with Level 1 4K and THUG 
(Machine Language only). 

Ready to connect and use. Includes interface hardware, 
software documentation, and complete instructions. 

Assembled and tested: S 1 29.«5 

Florida residents add 4*/o sales tax. 

Rand Laboratories ^*<* 

p.o. box 552 

melbourne, f lorida 32901 

'Tandy Corp. trademark. 



COMPUTER FORMS 



^240 



1-616-429-7922 



MICROCOMPUTER 
PAPER PRODUCTS 



• ALL ITEMS BELOW: BLANK. WHITE, FANFOLD, 

TRACTOR (PINFEED] PAPER STOCK 

PO STCAR D, OSL, CARD STOCK : 4"*»" (7" carrier 

width) 1/4" EXTRA MARGIN FOR 3-I/2"x*-I/2" CARDS 

(Mccti P.O. Slxc U Thlckncu requirement!) 

2S0 cards . . SS-SS * OO card. . . $•-•» 1000 card. . . S 1795 

ADDRESS LABELS: H 16" x 3-12", 2 label, acro.i, 

Preuure Seneltlve 

2f0 labels . . S2.9S SOO labels . . SS-SS 1000 label. . . »«.•« 

PAP ER : o-I/2"xIl" (81 nil WII2" perforated 

margins) 

SOO sheets .. SS-SS ISOO sheets .. Slf.os 

3200 sheets . . S28.es 
PAPER: I4-7'S"XI1" (non-perf margins) 
SOO sheets .. SO.OS ISOO sheets .. S10.OS 

3200 sheets . . S2Q.OS 



Cash Order: Include $2 for shipping 
charges, and the excess will be billed with 
your order. Credit Card 
Order: Shipping charges 
will be added to your 
order. Send all credit 



card information. 



COMPUTER FORMS, SSSa CARIBOU, 
STEVENSVILLE, MI 4»»27 



CHECK 

— OR— 

MONEY ORDER 



"a phone call away from UPS delivery" 



^Reader Service index — see page 194 
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SOFTWARE 



Use a BASIC program to take some 

of the pain out of machine code programming. 



AUTOPOKE 



Jasper E. Kump 
PO Box 108 
Pyatt AR 72672 



Loading Machine Language 

Normally, a machine- 
language program must be 



loaded using the SYSTEM com- 
mand, but using both loaded 
methods would have been 



One of the many advan- 
tages of TRS-80 Level II 
BASIC over Level I BASIC is the 
ability to use machine-language 
routines in conjunction with 
BASjC routines. Although it is a 
relatively easy language in 
which to write programs, in 
some cases, BASIC is inconve- 
niently slow. On the other hand, 
machine-language routines will 
run fast enough for almost any 
purpose, but it is a much more 
difficult language to use. 

In most programs the good 
features of both can be taken 
advantage of by combining the 
two. You can write the major 
part of the program in the much 
easier BASIC, using the much 
faster machine-language only 
for what would be, in BASIC, the 
time-consuming sections. I 
found that this system works 
very well. A few problems had to 
be solved first though. 



64000 PRINT" ALL ENTRIES IN THIS PROGRAM MUST BE IN 
HEXIDECIMAL NOTATION EXCEPT THE LINE NUMBER OF THE 
FIRST DATA STRING." 
64010 PRINT: PRINT "IF YOU WANT TO ENTER A NEW LINE NUMBE 

R, ENTER X. 
IF YOU WANT TO JUMP TO THE DATA STRING 

FORMAT SECTION, ENTER XX." 
64100 PRINT: INPUT"ENTER THE ADDRESS YOU WANT TO EXAMINE 

OR CHAMGE";A$:GOSUB64300:CLS 
64110 D=Z:GOSUB64400:PRINTH$; " " ; : D=PEEK ( Z) :GOSUB64400 : 
PRINTH$; " ";:A$="" : INPUTA$ : IFA$=""THENZ=Z+1 :GOT064 
110 
64120 IFA$="X"THEN64100 
64130 IFA$="XX"THEN64200 

64140 N=Z:GOSUB64300:POKEN,Z : Z=N+1 :GOTO64110 
64200 INPUT"ENTER THE FIRST ADDRESS OF THE ROUTINE. ";A$ 
:GOSUB64300:M=Z:INPUT"AND THE LAST ADDRESS. " ;A$ : GO 
SUB64300:INPUT"ENTER THE DECIMAL LINE NUMBER OF TH 
E FIRST DATA STRING. ";D$ 
64210 PRINT"THE DECIMAL STARTING ADDRESS IS" ;M:PRINT"TO 
TAL BYTES IN THE ROUTINE: "; Z-M+l : INPUT" PRESS ENTER 
FOR THE LISTING OF THE FIRST 60 BYTES OF THE 
ROUT 

INE EXACTLY AS IT SHOULD APPEAR IN A DATA STRING."; 
X:J=M:CLS 

PRINT">";D$;"DATA";:FORI=JTOJ+59:N=PEEK(I) :IFI>ZT 
HEN64290 
IFN>99P$=RIGHT$ (STR$(N) ,3) :GOTO64260 
IFN>9P$=RIGHT$(STR$(N) ,2) :GOTO6426 
P$=RIGHT$(STR$(H) ,1) 
PRINTP$ ; : IFKJ + 59ANDK ZPRINT" , " ; 

NEXT: PRINT: INPUT"PRESS ENTER FOR THE NEXT 60 BYTE 
S.";A:J=J+60:X=VAL(D$)+10:Y=LEN(D$) : D$=RIGHT$ (STR$ 
(X) ,Y) :GOTO64220 
64290 END 
643 00 F=16:Z=0:J=LEN(A$) :F0RK=1T0J:B$ (K) =MID$ (A$ ,K,1) :X 

=VAL(B$(K) ) :IFX>0THEN64 330 
64310 IFB$(K)="0"THEN64360 
64320 X=ASC(B$(K) ) -55 
P=J-K 

IFP>0THENX=X*F:P=P-1:GOTO64340 
Z = Z+X 
64360 NEXT:RETURN 
64400 N=1:IFD>255N=3 

6 4410 H$="":FORI=NTO0STEP-1:K=INT(D/F[I) :D=D-K*F [ I : IFK> 
9THENH$=H$+CHR$ (K+55 ) :NEXTELSEH$=H$+RIGHT$ (CHRS (K+ 
48) ,1) :NEXT 
64420 RETURN 



64220 

64230 
64240 
64250 
64260 
64270 



64330 
64340 
64350 



Program listing 



inconvenient. So I devised a 
loading method to load the 
machine-language routines with 
a BASIC routine and avoid the 
necessity of using the SYSTEM 
command. It would have been 
inconvenient also to have to 
load the T-BUG program every 
time I wanted to check and 
perhaps change a few locations 
in memory or write a machine- 
language routine. 

The PEEK and POKE com- 
mands are too slow and cumber- 
some for this purpose. Besides, 
converting Z-80 instructions 
from hex to decimal for more 
than a number or two is a chore. 
I wrote the AUTOPOKE program 
as a solution to this problem 
and as an aid in writing the 
loading routine. 

The method of loading 
machine-language routines with 
a BASIC routine requires writing 
data strings, which are prone to 
error. The second part to 
AUTOPOKE provides samples 
of what the data strings should 
look like— exact in the location 
of every letter, number and 
punctuation mark so that when 
you are writing a data string 
using the sample as a guide it is 
easy to spot some types of 
errors. 

For example, if the last 
character on your line does not 
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PROFESSIONAL HALF A MILLION TAX RETURNS CANT BE WRONG! 

(OR THEY HAD BETTER NOT BE) 

INCOME TAX SYSTEM 

FOR TRS-80* MODEL I OR II 

Our system, which prepared 500,000 1979 returns, features the following: 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. Change of a single amount item automatically changes and re-computes entire 
return. 

4. All printout formats IRS and state approved. 

5. Stores Preparer's Identification for automatic printing at bottom of page 2. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special Printer Adjustment routines, Line Length, etc. 

8. Selection of closed or open output formats — for standard Form 1040 or open 
name-box types. 

9. Software control of text position on page. Makes forms-alignment simple. Permits 
use with non-adjustable printers. 

10. Fills in pre-printed Forms or you can use overlays. Your choice. 

11. Automatically computes: Tax - SDI Overpayment - Wages Total from W-2's - 
Earned Income Credit - Income Averaging - Maximum/Minimum Tax - Least 
Tax Method - All Percentage of Income Limitations - All Fixed Limitations - many, 
many more. 

12. Full support through the tax season — no charge. 

13. Inexpensive yearly updates in accordance with tax-law changes. 

14. Modular construction — lets you order only the type and size system you need. 

PRICING STARTS AT $189.95 (1040 & SCHEDULE A) 

25-PAGE DESCRIPTIVE MANUAL $7.50 (Refunded on Order) 
MINIMUM SYSTEM REQUIRED: MODEL I, 32K, 1 DISK DRIVE 

*TRS-80 IS A TRADEMARK OF TANDY CORP. 

CONTRACT SERVICES ASSOCIATES » 

706 SOUTH EUCLID ANAHEIM, CA 92802 

TELEPHONE (714) 635-4055 
• * • 20 YEARS OF SERVICE * * * 
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MACO MICRO MODULE 

. . . TRS-80 USERS . , . 

Expand the horizons of your Level II R-S system 
with the M3 Interactive Interface. 
HARDWARE FEATURES: 

• Two 8-bit hand-controller input ports. 

• 1/10 second interrupt generator for use as a 
timer or Real-Time clock. 

• Audio generator with speaker. 

• Connects to expansion connector with provided 
cable. 

• Self-contained power supply. 

• Presents only one LSTTL load on the TRS-80 Bus. 
SOFTWARE FEATURES: 

• Software package includes: 

TRS-80 Brickyard Micro-Organ 

Real-Time Clock Comput-a-Sketch 

• Complete programming instructions for BASIC 
and Assembly Language provided. 

All M3 units are factory burnt in and CPU test- 
ed. Please specify memory size when ordering. 
Dealer inquiries are invited. . . . PRICE: $129.95. 

Ordering: Money Order or Check-we pay freight 
charges. VISA, MC, or C.O.D. -freight added to 
bill. On charge cards please include complete 
number as well as your complete address. 

MACO MANUFACTURING 

1383 Airways Blvd. • Memphis, Tenn. 381 14 
Telephone (901)452-9510 ^ 318 

"TRS-80" is a trademark of Tandy Com. 



Factory Direct 
Products for Your .,-««. 
NEW1 Computer & Your Home NEW1 

the BRUTES" 

Heavy duty solid-state AC switches control your water 
heater or other heavy loads. Opto-isolated - 1500VAC 
isolation All units pretested & baked in oven TTL logic 
level compatible - 5V @ 20-50 ma. 

TA-4020 120/240VAC@40A $49.95 

TA-8020 480 VAC @ 40A $49.95 

TA-2030 120VAC@60A $99.95 

TA-4030 240 VAC @ 60A $99.95 

the WATCHDOG" $29 95 

Power failure plugs into standard outlet Audible buzzer 
lets you know immediately when power fails. Alerts you 
to check your freezer, compressors, alarm clock, and 
other critical devices you depend on 

the SPIKE-SPIKER" $44 .95 

Power console w 'solid-state transient absorber plus con- 
ducted RF "hosh" filters Compact desktop unit comes 
complete with integral on-off switch, fuse, pilot light, 
and 8 1 20 VAC protected & individually switched conven- 
ience outlets Helps protect valuable equipment from 
lightning, power line transients and other interference 
Makes it easy to turn off all your equipment ot one time 
No more unplugging & replugging a zillion power cords 

Kalglo Electronics Co. Inc. »^ 353 

Colony Drive IP.. Box 2062. Bethlehem, PA 18001 

215-865-0006 
Out of state call toll free 1-800-523-9685 

Master Charge, VISA, Check w/ order or COD 



THE GREEN.SCttCEFf THING 



TheGrei" Thing. I 
ourCF-80H, h Quality . 
<on,olt (For rurlh., ml 



Model SC-80 

he mcWoCture. or Hom»i for th* TRS - 80 




CF-80 With 



List $795 c 

FEATURES: 

• Improved imag* contrail 

• R«duc«s »y* fatigue 

• Enhance Kri*n Ugibilty 

• D«<r*as«s glare 

• Gives fyitem a prof wiioal look 

• 146 

AVE 



CF-OO VVithou 



Add JIOO lor .Kipping 4 hand I i 



-*) 



ORDER NOW 
—24 HOUR 



PH 408-946-1265 



IS 
AUDIO-VIDEO SYSTEMS 
2485 Aulumnval «ve. 
San le.«, CA 95132 



TRS-80 



SPEEDUP BOARD 
REVERSE VIDEO 



SPEED MOO -You don't have to spend $3,500 on a 
TRS-80 Model II to get faster computing. Now you can 
speedup your Level II TRS-80 -Disk systems included! 
-by up to 100% (50% guaranteed) with our speedup 
board. The result is more animated graphics, shorter pro- 
gram run times, and generally far greater computing 
power for your dollar. Change between normal and faster 
operation by using a simple BASIC statement. The con- 
tents of memory are not affected by speed changes and 
a switch is not required (a switch may be installed if 
manual speed select is desired). Changes are provided 
for NEWDOS, DOS 2.2, and DOS 2.3 that allow disk 
systems to run reliably at both the normal and ac- 
celerated rate. Buy the most versatile, easiest to install, 
and most publicly recognized speed mod on the market 
today. Recommended by Interface Age, January, 1980 issue. 

A SSEMBLED & TESTED $24. 95 

REVERSE VIDEO is finally here ! If you're tired of going blurry- 
eyed looking at your video display, then you are ready for 
reverse video. It provides dark black characters and graphics 
on an all white screen for a much crisper and much easier to 
read presentation. Change between normal and reverse by 
simultaneously pressing a combination ol three keys on the 
keyboard. 

ASSEMBLED $23.95 

Add 5% tor postage and handling 
California residents add 6% sales tax 

Arch bo Id Electronics 

DeptBO • P.O. Box 7123 • Sacramento, CA 95826 

916-635-5408 ^122 



"EASY-WORD" 

A WORD PROCESSOR 
for only $21 .95 

Required: TRS-80, 16K. TAPE, PRINTER 



Some of "EASY WORD" many features 

• JUSTIFY • STANDARD KEYBOARD 

• UPPER CASE INDICATOR • VISUAL TABS 

• LINE, CHANGE. DELETE. INSERT. APPEND 

• WORD. CHANGE. DELETE. INSERT. APPEND 

• CENTER. SORT. AND MORE 



CONN. RESIDENTS ADD 7% 

HANSON HOUSE 
ij 55 HANSON PLACE 
STRATFORD, CT 06497 ^317 



— Professional — 

Real Estate Software 

For Apple or TRS-80 

Property Management System 

(32K, 1 Disk Systems) 
Features: 

• lenant Information • 5 Digit Expense Accounts 

• Late Rent Reports • Building Expense Report 

• YTD S Monthly Income • Vendor Expense Report 

• Handles — • Income Tax Report 

Partial Payments • All Reports Can Be Printed 

Returned Checks • Complete Documentation 

Advance Payments • Easy Data Entry & Edit 

• Prints Receipts • 200 Units per File 

Price $225.00 
Real Estate Analysis Modules: 

(Cassette or Disk) 

1) Home Purchase Analysis 

2) Tax Deterred Exchange 

3) Construction Cost/Prolit 

4) Income Property Cashflow 

5) APR Loan Analysis 

6) Property Sales Analysis 



fJ 



7) Loan Amortization 

$35 Per Module 



|^$35 

H ^^^^ At Computer Stores Everywhere 

B ™ Or Order COD Direct 

I rtf tuuaro < c " , « sid,BIS Add 6 *> sales i..i 

I onware _ |213) , 72 . M , 9 
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Dept. M 



2045 Manhattan Ave. . Hermosa Beach, CA 90254 



WHAT IS THE PATCH"? 



We asked ourselves; WHY should our 
computer be as bland as everybody else's? 
Why not unlock the unused and wasted abili- 
ties available within each and every TRS-80 
Model 1 . These abilities allow the display to 
be dressed up and the computer to be effec- 
tively easier to use. 

Now we have developed the means for get- 
ting the most from our computers and we 
know you need it too. With "THE PATCH", 
a new age of simplicity and convenience has 
arrived. You don't want to be left out, so 
don't kid yourself, you need the enhance- 
ments which "THE PATCH" provides. 

* Does you keyboard bounce? 

Some say, "I have a software fix for 
that!" 

* Does your display still have that stand- 
ard, dull, underline cursor? 

Some brag, "We have a program which 
will give you a Block cursor, and it even 
blinks!!" 

* Does your Dualcase printer make you 
look foolish when you tell it to print lower- 
case because you could only see UPPERcase 
on the display? 



Most cry, "We have a kit you can in- 
stall . . . and a program to run it!!!" 

* Don't you have better uses for protected 
memory than to waste it on programs which 
are TOTALLY UNNECESSARY? 

You sob, "I need all those advantages but 
they are just too much trouble to have all at 
once so I'll make do with what I have. 

FORGET ALL THAT . . . make your 
life easier 

What we are trying to tell you is: 

1. You CAN have Keyboard debounce if 
you need it! 

2. You CAN have Block cursor with NO 
distracting blinking! 

3. You CAN have FULL TIME Dualcase 
display! 

4. You CAN have typewriter style key- 
board operation! 

5. You CAN have faster cassette data 
files, up to four and one-half times 
faster! 

6. You CAN have even more features as 
we make them available. 



All this from THE INSTANT you power 
up your computer, without making your 
other programs unusable because some un- 
necessary driver program is eating that mem- 
ory. 

"THE PATCH" is not a ROM. "THE 
PATCH" is not a PROM. "THE PATCH" 
is a microprocessor which modifies the 
Level II ROM to repair changes made 
by TANDY when they designed your compu- 
ter. This state-of-the-art technology makes 
these changes possible without using ANY 
of your computer's memory. That means, 
any program you use on your computer 
now, will still work after you install "THE 
PATCH", including word processors. 

"THE PATCH" fits easily into the Level 
II ROM sockets inside your computer, no 
cables or switches to install. 

Sound too good to be true?? Call us. Tell 
us your innermost fears. Let us answer your 
questions. Do not cheat yourself out of using 
ALL of your computer's abilities ALL of 
the time. 



"THE PATCH", $69.97 plus $2.50 ship and hand 
Options: Block cursor N/C, Debounce N/C 

Cassette File $10.00 
VISA or Master Card accepted 



TRS-80 is a trademark ot Tandv Corp. 

•THE PATCH" is a trademark of CECDAT, Inc. 



CALL 208-883-061 1 

WHITE CECDAT "THE PATCH" 

Box 8963 

Moscow, ID 83843 
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match the last character on the 
corresponding line of the sam- 
ple, you will know immediately 
that an error has been made. 
This will not detect a mistyped 
number, naturally, but it does 
detect errors of omission and 
keybounce. To check for mis- 
typed numbers, stop the pro- 
gram after the machine lan- 
guage loading routine and then 
use AUTOPOKE to run through 
what was loaded and check it 
against your listing. 

Two other pieces of informa- 
tion you will need for the loading 
routine are also supplied by 
AUTOPOKE. They are the 
decimal starting address of the 
routine and the number of bytes 
in the routine. Example 1 il- 
lustrates how to write the BASIC 
routine for this loading method. 



The object code for the routine, 
in decimal form, is written in one 
or more data strings. The FOR- 
N EXT loop on the next line reads 
the data strings and pokes the 
object code into its proper 
place. 

There is a handy by-product of 
this method of loading. If you 
were using the normal method 
of loading a machine-language 
routine, such as T-BUG or 
AUTOPOKE, and one or more 
bytes had to be inserted into the 
routine, every byte from the 
point of the insertion to the end 
of the routine would have to be 
retyped to relocate it. Not with 
this loading system! 

All you have to do is insert the 
additions into the data string at 
the proper place and increase 
the number of bytes to be read 



1000 DATA33,0,50,31,4,175,119,35,254,255,294,6,1 12,29,194,5,1 12,201 
1010 FOR I =28872 TO 28689:READJ:P0KEI,J:NEXT 

Example 1. 



7CD0 3E 00 


LD A,N 




Address 7D01, shown here as 00 will be 
loaded in BASIC with the number of a routine. 


7D02 FE 01 


CP N 


01 


See if A = 1 


7D04 C2 00 70 


JP Z 


7000 


If it does jump to 7000 


7D07 FE 02 


CP N 


02 


See if A = 2 


7D09 C2 A4 70 


JP Z 


70A4 


If it does jump to 70A4 


Etc. 












Example 2. 



by the FOR-NEXT loop. The next 
time the routine is loaded, your 
additions will be loaded into 
their addresses and the re- 
mainder of the routine will be 
automatically relocated ac- 
cording to the number of bytes 
that were added. The only other 
thing you have to do is take care 
of any jump or call addresses 
that might have been affected. 
I have used the word 
"routines" a number of times. 
The Level II BASIC manual says 
that there is only one USR call 
allowed unless you have Level II 
Disk BASIC. Although this is 
true, it does not limit you to one 
machine-language routine! It 
only limits you to one address 



that you can call with the USR 
command. If, at that one ad- 
dress, you have a routine to 
jump to the starting addresses 
of other routines according to 
some sort of coding, you can 
use as many machine-language 
routines as you need. Example 2 
shows how such a routine might 
be written. Immediately before 
each USR call in your BASIC 
program, POKE into address 
7D01 (32001 decimal) the num- 
ber of the routine you want to 
use at that time. 

I hope you find the 
AUTOPOKE program and this 
method of loading machine- 
language routines as helpful as I 
have.B 
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MAGNETIC MEDIA DISTRIBUTORS 

596 Taylor Way Belmont, California 94002 (415) 595-0684 

FLOPPY DISKS FOR ALL COMPUTERS 



Flip Sort 

DISK STORAGE SYSTEM 



Keeps dust 
off of disks 



Built-in 
plastic file 
separators 




Formed from 
transparent 
smoke colored 
acrylic 



50 to 60 Disk 
capacity 



For Mini-Disks s 34 95 
For 8" Disks s 44 95 

plus $3.00 shipping for each 
Flip Sort™ 

DEALER INQUIRIES INVITED 



5V DISKETTES 

Diskettes available in Soft Sector, 10 or 16 hole Hard Sector 

1-99 100-UP 

Single Side-Single Density (Certified 35 tracks) $2.85 $ 2.60 

Single Side-Double Density (Certified HO tracks) $ 3. 75 $ 3. 55 

Double Side-Double Density (Quad Density) $ 4. 50 $ 4. 30 

Single Side-Double Density (Certified 77 tracks) $4.00 $ 3. 80 

8" DISKS 

Single Side-Single Density (Soft Sectored) $3.40 $ 3.20 

Single Side-Double Density (Soft Sectored) $4.60 $ 4. 40 

Double Side-Single Density (Soft Sectored) $4.95 $ 4. 75 

Double Side-Double Density (Soft "Sectored) $ 5. 10 $ 4. 90 

Single Side-Single Density (Hard Sector 32 hole) $3.60 $ 3.40 

Single Side-Double Density (Hard Sector 32 hole) $4.00 $ 3.80 

Single Side-Single Density (Hard Sector 32 hole) $4.65 $ 4.50 
(MRX 651 compatible OD holes) 

We stock VERBATIM, WABASH. KYBE, KEYLINE & ATLANTIS 
Disks and Diskettes at LOW, LOW, prices. Write for our mini 
catalogue. 

VINYL DISK SLEEVES for 5 1/4 and 8" Disks $ 9.00 lOpak 

PLASTIC LIBRARY CASES 8" $4.50 5 1/1" $3.50 

FLOPPY SAVER (Hub Reinforcing Rings 

5 \/H" with applying tool $ 14. 95 pk of 25 Refills $ 7. 95 

8" with applying tool $ 16. 95 pk of 25 Refills $ 8. 95 



CALL TOLL FREE TO ORDER 

800 227-7362 

IN CALIFORNIA 415 595-0685 



HSr 



^Reader Service index — see page 194 
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HARDWARE 



Utilize the unused ICs in your TRS-80 
and turn it into a half duplex terminal. 



300 Baud Terminal 



Timothy Loos 
50 Depot St. 
Athens OH 45701 



It's easy to add I/O to the 
TRS-80 using its unused ICs: 
just cut a few foils and add a 
few jumpers. This will give you 
a single input and output port. 
Big deal, you might say, but 
with a little software they can 
be used as serial input and out- 



put ports. To illustrate what 
can be done with serial I/O, this 
article will tell you how to turn 
your TRS-80 into a 300-baud 
half-duplex terminal. The best 
part of this project is that no ex- 
tra hardware is needed; there is 
no need for a fancy and expen- 
sive interface unit. 

The schematic for the I/O 
ports is given in Fig. 1. (For 
more information about the in- 
ternal workings of the TRS-80 
refer to the TRS-80 Microcom- 
puter Technical Reference 
Handbook, RS catalog no. 
26-2103.) 



You must first carefully take 
apart your TRS-80 and expose 
the main PC board. Find ICZ60. 
All the ICs are well marked. 
Photo 1 shows the bottom of 
the main PC board. The small 
board on the lower right is the 
Level II ROM board. It is cover- 
ing up half of ICZ60. Unsolder 
Z60 and cut the foils connect- 
ing pins 12,14,15 together to 
ground. Now is a good time to 
put in a socket for ICZ60. 
(Molex pins are actually prefer- 
able, since they enable you to 
get to the foils under the IC.) 

Next, cut the foils on ICZ7 



EQUIVALENT CIRCUIT OF 
I/O CONTROL SIGNALS 




that connect pins 10,11,12,13 
together to ground. The foils 
are on the bottom side of the 
PC board so that you do not 
need to unsolder the IC. 

Make the following connec- 
tions on the bottom side of the 
PC board (i.e., the side the ICs 
are not on): 

1. Connect pins 1,10,13 of Z7 
together. 

2. Connect pins 13 of Z24 to pin 
11 of ICZ7. 

3. Connect pin 11 of Z44 to pin 



Fig. 1. TRS-80 input/output port schematic. 
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STARTING LOCATION IS 4E00 HEX -19968 DECIMAL 
THIS PROGRAM LOADS OCTAL VALUES INTO MEMORY 

POKING PROGRAM INTO MEMORY 
QSUB6O00 

POKING USK(O) STARTING ADDRESS 
POKE 16526.139 5 POKE. 16527.78 

POKING NEW LINE PR IN I ER DRIVER ADDRESS 
POKE 16442, 160 ; PUKE 16443.7B 
'MACHINE LANGUAGE PROGRAM IS NOW ENTERED 

<■- USRlO) : STOP 
I. -iNl (0/ 100) : OCTAL 10 DECIMAL CONVERSION 
M=iNT !<0 :..*:U)0)/lO > 
N -INT ( 0-L*100-M*10) 
D=L*64+M*8+N 
RETURN 

116-1Q0 - OUTPUT SUBROUTINE 
DA I A-'JOS f 325 » ,545 (247 » 352 f 1 3 1 t 1 16 f 356 
DATA200 » 1 27 f 036 ,010, 257 , 323 f 377 , 00 1 
DATA214 f 000 f 315 , 061 , 1 16 , 172 f 315 , 163 
DA ! Al 16 . 000 , 00 1 , 2 .1 4 , 000 f 31 5 » 06 1 » 1 1 6 
DA .'' A035 . 302 , .! 25 , 1 1 6 . 076 » 200 f 323 f 3 77 
BATA001 , 2.1.4 , 000 f 315 . 061 . 1 16 f 341 , 321 
i;ATA30i f 1 70 , 31 1 . 01 7 , 12 / f 346 , 200 , 323 
PAT i43?7. 3.. 1 

'IKIS .IB TIMER 2 BUB. STORE AT 116-06:1 
DA I rH)13 ► 333 f 3 77 » 346 f 001 f 171 f 260 f 302 
HATA061 • 116F311 

DART INPUT ROUTINE STARTS AT 116-000 
DA I 0305 f 325 f 345 . 021. » 010 f 000 , 333 f 377 
!lA ( ,1346 f 001 f 302 1 006 , 1 1.6 f 001 f 322 f 000 
DA (('.315.06.! f i 16 f 333, 377, 346, 001 , 202 



6005 
60 VO 
6095 
7001 
7010 
7070 
A>91 
0000 
8010 
3015 
8030 
8035 
8040 
804 5 
BO 50 
8060 
3070 
8071 
0075 
BOflO 
801.15 
8090 
8095 
8096 
8097 
81 OS 
3200 
8210 
8220 
8230 
3240 
9000 



DAT A017 - 127, 001 , 214 , 000 , 315 , 
I1A TA035 , 302 , 023 ,116,1 72 f 000 i 



341 ,32 



301 



JK8000 



,,.!'[ '.) 



JOjMi. 



D 

SUB! 



OAIAOOO.3 46,1 

f>TART = 19968 

All«iOO-JNB=!S8t 

ftl)=061!NB mi: 

AD'=000:NB=48: 

0-ADSSOSUB 

rORI-l'TONBtREADO 

RETURN 

' INPUT A CHARACTER DRIVER R 

DAT A3 1 5 , 000 f 1 1 6 f 376 f 01 5 f 3 1 2 

DA I A376 f 021 , 3 10 f 000 f 000 f 376 

DATA200 f 116 f 325 f 375 r 345 ,31.5 

0A1 A375 f 34 1 f 321 f 303 f 200 .116 

NB = 30 ! AD=200 ! U08UB0000 

' (JU'i P !.! I A CHARACTER DRIVER 

DA I A3 !i 5 f 053,000 

DATA267 f312f 315. 1 16 f 376 , 033 

DAI A323 f 1 16 f 303 . 275 f 1 16 , 315 

DAI A303 f 275. 1 16 f 000 f 107 f 315 

D AT A325 f 375 , 345 , 3 1 5 , 063 , 000 

DATA321 f 376 , 015 f 314 f 200 f 1 16 

DAI A346 f 00 1 , 314 1 200 . 1 1 6 f 31 1 

DATA31S . :l 77, 012 f 175 f 315 1 324 

AD'=27S ! NB=56 i GOBUB8000 

DAT A34 1 f 32 1 1 021 , 035 , 1 00 , 325 

D A I A04 1 f 035 f 1 00 f 305 , 3 1 5 f J. 30 

DATA 341 f 101 f 107 y 315 r 100 1 1 1 

DATA 1 16. 303 , 335 t 003 

AD=»240 ! NB-28 t GOSUB 8000 

PRINTEND OP MEMORY WRIIEIRE 



061.116 
000,000 
311/000 



B030 

VL.-D ! POKES'!' ART+DAll •- 1 • 

OUTINE 3TART116 -200 
222,116 
040,372 
063,000 



{OUTINE 116-275 ADDRE 

.310,315 
.346,116 
.100.116 
.375.341 
.333.377 
.000,000 
.116,311 



345,335 

004,301 

6,315,341 



Program listing. 



12ofZ7. 

4. Connect pin 9 of Z7 to pin 2 of 
the video output jack, through a 
1k 1 /4 Watt resistor. (Omit re- 
sistor and direct connect if you 
are going to use LSTTL circuit- 
ry instead of the optoisolator 
circuitry given in Fig. 2.) 

5. Connect pins 1 and 3 of the 
video output jack together 
through a 4.7k Ohm V* Watt re- 
sistor. 



6. Connect pin 14 of Z60 to vid- 
eo output jack pin 3. 

7. Connect pin 15 of Z60 to pin 
15 of Z44. 

8. Connect pin 13 of Z60 to Z44 
pin 7. 

9. Connect pin 12 of Z60 to pin 8 
of Z44. 

Phew . . . you are now fin- 
ished. Reassemble the TRS-80. 

The last thing you must do is 
make extra connections on 



pins 2,3 and 5 of the DIN con- 
nector that plugs into the video 
output jack. Pin 2 is the port 
output. Pin 3 is the port input 
and pin 5 is ground. Be careful 
with all connections, since it is 
possible to short out the +5 
supply (pin 1) and the video out- 
put (pin 4). If you have the Radio 
Shack video monitor you might 
have to buy another DIN con- 
nector, since they are pre- 



molded assemblies and might 
be hard to take apart. Radio 
Shack stores sell DIN connec- 
tors. 

Controlling the Ports 

To read the input port in 
Level II BASIC, use the state- 
ment Y = INP(225). The lowest 
bit, DO, of Y will be the input 
port bit. In machine language, 
use the command IN FF, fol- 



Z O _l _l 






m ji u: 



x o 
<: o 





I 










I <E U| o 













k y _ 
to S 

Z X O 



iX z 

<X -J 



in -. m -o -o — cm o lo -h -o m 



*-. m n «rin«oiso»n(NM"T 



■> a. m a. a. a, i- a. 

oo z ooowo 

nz <r a £l a. ct z 

n .h n <r '•» <r cm o h 



* z 

* M 

* — 

x 3 

* it 

* X 



-b -o -b -h -o -c -o -h -o -b ~i -o -o -o ~o -c -c -b -o -b -b -o -b -o -o *o -b -b -c >b -o -o * u 



r-o ~> ^-. i 
hi M 



III 

uj x x x <r lu 

Z333ZS. 

w i. 6. a. <r ~i 



<l y- C£ M 

OS 3 O X 

X O l^ _J 



m O N 

rs -o o 
rt rj m 



d ui lt iii rs cm T-i -o -o o r-. •o o r>. m 

o o n » t n n h n o n fi h .•-) cm 

■ C£ It II PO CM PI t-i -H n IN »H mm 



r- «■ O 111 .1 -0 M 



% o > c > o~O'0'O>or i > 



Ni^N3^sj-o*o-c s O'v v oxQ_''0*0'0''b'JD-o*o*b'b'b v b*b i b'0*O i O > b-o-c-o-b'C' 



80 Microcomputing, August 1980 • 137 




Underside of the TRS-80 main PC board, showing the locations of 
ICs and the video output jack. 



lowed by AND A immediate 
with 01. This will input DO into 
the A register. 

The output port is controlled 
by the BASIC statements OUT 
255,0 to output a and OUT 
255,128 to output a 1. Note that 
setting bits DO and D1 under 
the OUT 255 command acti- 
vates the cassette output, set- 
ting bit D2 activates the tape re- 
lay and D3 activates the dou- 
ble-sized characters. There- 
fore, make sure you set bit D7 
only. The machine language 
commands are LDA 80, OUT FF 



to output a 1 and LDA 00, OUT 
FF to output a 0. 

Fig. 2 shows an optoisolator 
circuit that can be used with 
the input and output port. The 
circuit provides isolation be- 
tween the TRS-80 and the exter- 
nal circuitry. This circuit is op- 
tional, but I think that it is a 
good idea to have such a circuit 
since your TRS-80 is iso- 
lated from your I/O external cir- 
cuitry. If your external device 
accidently shorts out or applies 
the wrong voltage, your TRS-80 
will be safe. It also helps elimin- 



ate ground loops, etc. 

UART Program Description 

The software necessary to 
operate the input and output 
port as a 300 baud serial input 
and serial output port is listed 
in Table 1. This program is 
adapted from Dan Stogdill's ar- 
ticle, "Experiments in Soft- 
ware" (May, 1978 Kilobaud, p. 
44). For a Level II, 4K system the 



program is stored in memory at 
location 1 16-000 octal. The pro-, 
gram is designed to be called 
using the USR(n) function of 
Level II BASIC. Alternately, it 
can be run by typing SYSTEM 
followed by /20157, the decimal 
starting address of the ma- 
chine-language program. 

The program is divided into 
five routines: 

Routine A— The output UART 



-^OUTPUT 



FROM TRS-80 
VIDEO OUTPUT 
JACK 



< 

GROUND 
PIN 5 



PIN 3 



IS 



OPTOISOLATOR 



:rl>—t> 



>F 



OPTOISOLATOR 




INVERTERS ARE CMOS 
I/6 4009 HEX INVERTING 
BUFFERS 



ISOLATOR CIRCUIT FOR TRS-80 
INPUT AND OUTPUT PORT 
OPTIONAL 



Fig. 2. An optional isolator circuit for TRS-80 input and output port. 
Optoisolators are 4N33 or equivalent. Inverters are CMOS 1/6 4009 
hex inverting buffers. 
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Intrcxlucing 

the one 

printer 

worth 

buying on 

reliability 

alone. 




Epson. 



What do you want from a printer for your TRS- 
80? Speed? Graphics capability? Reliability? 

Consider this: of the first several thousand 
Epson TX-80 printers sold in Europe, less than 
1% came back for service. No one else can match 
that record of reliability. And if you own a 
TRS-80, you can add the remarkable printing 
capabilities of the TX-80 right now. Today. 

We'll give you a full 96 ASCII and 64 graphic 
characters at the rate of 125 CPS in 80 columns 
of clean, easy-to-read 5x7 dot matrix. And a 



jeweled print head with a life expectancy of 100 x 
10 6 characters. And our optional GRAFTRAX bit 
plot graphics capability. And one more thing. A 
very low price. Because we make more printers 
than anybody, we can afford to sell each one for a 
little less. So you can have a TX-80 for your very 
own starting at about $710. 

The TX-80 is the very high quality, very afford- 
able printer you've been waiting for. Wait no 
longer. 

Write to us, and we'll tell you where to get one. 



EPSON 

EPSON AMERICA, INC. 



23844 Hawthorne Boulevard. Torrance, California 90505 • Telephone: (213)378-2220 



s Reader Service index — see page 194 
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subroutine starts at 116-000. 
This routine serially outputs 
seven bits in the A register, add- 
ing start, stop and parity bits. 

Routine B— The input UART 
routine starts at 1 16-100. A 7-bit 
word is read in from the input 
port and returned in the A regis- 
ter. 

Routine C— The input UART 
program — driver subroutine 
starts at 116-200. This routine 
displays received characters 
on the TV screen of the TRS-80. 
If the character is a DC1 control 
character (you might want to 
change this character for your 
particular application), this sig- 



nifies the end of the trans- 
mitted message and a machine 
language RETURN is executed. 
Routine D— The program 
starting at 116-275 is the entry 
point from BASIC that puts the 
TRS-80 into the terminal mode. 
Whatever you type at the key- 
board is displayed on the 
screen and transmitted serially 
from the output port. When you 
type ENTER (i.e., carriage re- 
turn), the TRS-80 goes into the 
listen mode (subroutine at 116- 
200 is executed) and the output 
is displayed on the screen until 
a DC1 is received, causing the 
program to go back into the 



• 3 TORE MACHINE LANGUAGE PROGRAM OCTAL 
' BYTES FROM FIGURE t .IN DATA STATEMENTS 
DATA 30S.325.34S, 021 ,000, 333, 377, ETC, . . ,. 

DATA ..,.,,,,. 



990 • NO IK I ML NUMBER OP- BYTES TO BE 

995 ' MACHINE LANGUAGE PROGRAM IS POKE 

999 START - 16998:' STAR I IS ADDR 
PROGRAM 

1000 FOR 1=1 10 NO 

1001 READ JGCSUB S000 SPOKE START+I- 
1003 POKE STARTING ADDRESS ANB 

NEW LINE PRINTER DRIVER ADDRESS 

1006 POKE 16526.189 ! POKE 16527,78 : 

1007 POKE 16443,78 

100!) • MACHINfc LANGUAGE PROGRAM IS NOW 

1009 Y --USR(O) JEND 

5000 ' OCIAL 10 DECIMAL CONVERSION 

5001 Dl-INKb/10'O) I D2=INT<(C B1JKJ.00) 
UC02 U3-INT(0- 111*100-1(2*10) 

5003 D=DI*64+D2*8 i 1)3 i RET URN 



STORE 
Ii IN 

ESS 



D 

MEMOfi 
TO S 



Y 

TORE 



D ! NEXT I 



POKE 
EN TER 



16441 

ED 



Program A. 



transmit mode. If a character is 
received while transmitting, the 
program automatically goes in- 
to the listen mode. If you type a 
shift arrow (t), the program will 
return to BASIC. 

Routine E— The routine start- 
ing at 116-240 allows Level II 
systems to use the LList and 
LPRINT line printer commands 
to output to the serial output 
port and to the TV screen. This 
implementation directs the 
TRS-80 into the listen mode 
waiting for a DC1 control char- 
acter after it transmits a car- 
riage return before it can print 
the next line. The routine re- 
quires that 160 be POKEd into 
memory at 16442 and 78 at 
16443. This sets the line printer 
driver address (i.e., the program 
that the line printer commands 
call) equal to the Routine E 
starting address. 

Modifications 

The program listing is used 
with a Level II, 4K system. Make 
sure to reserve memory for the 
program by typing 19967 when 
asked for the memory size. Also 
make sure to POKE the starting 
address of the program in loca- 
tions 16526 and 16527 decimal 
(low-order byte in 16526). For 
Level II 16K systems, the pro- 



gram should be relocated to a 
starting location of 175-000 in 
order to make use of the extra 
memory available. Memory size 
31999. 

For Level I systems you must 
relocate the program and 
change the entry points for the 
keyboard-scan routine and the 
display to screen. The program 
must also run under a monitor 
similar to T-BUG.If you have a 
Level II system, you can load 
the machine-language program 
under BASIC. The instructions 
in octal can be stored in DATA 
statements, converted to deci- 
mal and then POKEd into mem- 
ory. Program A illustrates how 
it is done. 

The advantages of serial I/O 
are many, but the best part is 
that you do not need extra hard- 
ware or parts . . . only a few for 
the optoisolator circuit. Also, 
you only need three lines from 
the TRS-80 to the external 
device. 

If you need the serial data 
from the TRS-80 converted into 
parallel data and the data from 
the external device converted 
into serial data, refer to "Build 
a Serial to Parallel Converter" 
(November 1978 Kilobaud, p. 
84). This article describes an 
easy circuit to do just that. ■ 
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TRS-80*— CONDENSE 

The Ultimate in BASIC 
Compression Utilities 

** Release 1.3 Now Available * 




Write BASIC programs using single statement lines for ease 
of maintenance. 

Write BASIC programs with unlimited remarks and comments 
to improve program readability and documentation.... 

— AND STILL GET — 
OPTIMUM USE OF MEMORY — FASTER PROGRAM 
EXECUTION 

Compresses programs up to 70% of original size 

Improves execution time by as much as 30% 

Creates multiple-statement program lines 

Blank compression 

Remark and comment deletion 

Renumbers GOTO, GOSUB, THEN, ELSE, and RESUME 

statements which reference deleted line numbers 

PLUS THESE NEW USER REQUESTED OPTIONS: 

- Retention of low numbered remark statements 

- Checkpoint / Restart Facilities 

- Phase 1 work file 



Model I $21.95 

(Diskette) 



Model II $24.95 

(Diskette) 



INTERNATIONAL SOFTWARE ASSOCIATES 

P.O. Box 14805 

Omaha. Ne. 68124 



• 187 



Tandy Corporation* 



MOVING? 

Let us know 8 weeks in advance so that you won't 
miss a single issue of Kilobaud Microcomputing. 
Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



□ Payment enclosed 

□ Bill me later 



□ Address change only 

□ Extend subscription 

□ Enter new subscription 

□ 1 year $18.00 

If you have no label handy, print OLD address here. 

-j 

=Q Name 

•^ Address 

fcCity 



State. 



Zip. 



print NEW address here: 



Name 



Address 
City 



Stc 



Kilobaud Microcomputing 

P.O. Box 997 • Farmingdale NY 1 1 737 




Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV'products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at $19.95 



Announcing 



w 




NEW PEN BASIC by Steve Bjork 
Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only $14.95 



(COUPON) 

Micro Matrix ^ea 

P.O. Box 938 • Pacifica, CA 94044 

Send for yours NOW: (415)355-4635 



Name 




Photopoint 


Address 




n $19.95 


City 


St. 


Pen Basic 
[ : $14.95 


Zip 
Card# 




Money 


Ex. 
Date 


CK. 

l: 


Order Visa MC 

1 : n n 









s Reader Service index — see page 194 
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C OM PU TE X 



DISK DRIVE $ALE 
$27 5.^ 

THATS RIGHT!! Throughout the month of 
August, COMPUTEX will sell a limited 
number of disk drives with power supply 
and case for $275.00. Even better than the 
price is the fact that you can choose 
between three of the major disk drive 
manufacturers, SHUGART : M.P.I, or TANDON 
All three drives are fully compatible 
with the TRS-80* and are guaranteed for 
90 days.. Double headed drives are avail- 
able for $375.00 



16 K RAI 



CHI PS--8 t °r$54 2i 



CABLES FOR DISK DRIVES AND PRINTERS 
4 DRIVE CABLE $29.95 
2 DRIVE CABLE $21.95 
CENTRONICS 730 PRINTER CABLE $21.95 
CENTRONICS 779 PRINTER CABLE $29.95 
CENTRONICS 730 PRINTER $579,95 

CENTRONICS 779 PRINTER $849.95 



COMPLETE LNW SYSTEM EXPANSION KIT 
:ludes all parts and the P.C.I, to build 
I L.N.W. expansion interface except RAM 
I the relay for cassette operation. 



CUSTOM BUILT CABINET FOR L.N.W. SYSTEM 
Custom built and finished cabinet holds u 
to two disk drives, power supplies and th« 
L.N.W, expansion interface, See above ad 
for more description on the CPT series. 



VERBATIM DISKETTES - BOX of 10 



COMPUTEX i 17710 Heritage Cour t , Webs t er TX 

77598 PHONE ( 7 1 3 ) -3 32-4 3 5 9 
VISA / MASTERCHARGE ORDERS ADD 4* to total 
PERSONAL CHECKS MUST CLEAR PRIOR TO SHIP- 
MENT. C.O.D 's ACCEPTED WITH 10 % DEPOSIT 

• 392 



TRS-80 



$ 



Level II 16K TRS-80 



675 



OO 



Full warranty at any store. 

All accessories 10% off. 

5% sales tax for MA. 



J16K DYN AMIC R T AWS 

MBIflrWHIIll IIIIHIl 

MEMORY EXPANSION 
$4995 

4% Extra on Shipping 

Radio Shaek 



DEALER 



• 400 



Post Road Shopping Plaza 

Marlboro, Ma 01 752 

(617)481-1027 



TRS-80® MODEL II 

Professional Software NOW AVAILABLE! 

BASIC CROSS REFERENCE: Prepares a listing of your 
BASIC program. Heading contains program name, 
date, time, & page #. All 'REM' statements print 
ELONCATED&are easytospot. The cross-reference 
report is then printed. It shows you at a GLANCE 
what line #'s within your program are referenced and 
where, all variable names used & where. Know what 
is available. Find DEAD spots. We wrote this for 
ourselves.. ..you can use it too....! 

Documentation ' $10.00 Total = $59.99 " 

DISK SORT: Sorts thousands of 'random file' 
records. Capacity is dependent on your disk space. 
Answer the question and sort now or later in your job 
stream. 1 000 records <£ 20 bytes, sorting 1 6 bytes = 
2.26 min.! Input files are not clobbered by the sort. 
All stored specs, can be displayed, printed or 
changed. 

Single or multiple drives and 64K required. 

Documentation * $10.00 Total = $69.99 " 

INVENTORY FLOORING MANAGEMENT. Send for 
details. 

BASIC COMPILER. TRSDOSVBASIC compat Faster 
by 7-30 times! Written by Microsoft. (Augmented 
with our documentation). 

Easy to use! Complete package: $350.00 " 

Use our Compiling Service to try it out. Send for 
details. We use it and have found it it to be absolutely 
FANTASTIC! 
ANADEX PRINTERS: DP-9501 $1,599.00 Delivered! 

(48 contiguous states only) 
2K buf., graphics, 10-16.7 cpi, 11x9 matrix, all three 
interfaces, & much more, a FANTASTIC printer/price! 
WORD PROCESSING: Complete editing capability 
including center, right, left, or full line justification, 
tabs, margin, length and width control. Lines auto- 
matically overflow from line to line. All file specifi- 
cations stored on disk. A complete, sophisticated 
system, 

Requires 64K & printer of your choice. 

Documentation ' $10.00 Total - $299,00 •• 

'Deductible on software purchases. 

•* Plus postage & handling. 

(All software Is In machine language or extra high 

speed) 

Send for documentation & order form. 

GOOD-LYDOON Data Syitemi 

5486 Riverside Dr., Chino, CA 91 710 k*218 

'TRS-80*' & 'TRSDOS*' are registered trademarks of 
Tandy Corp. 

Master Charge or Visa accepted. 



issoti ixfzi&oN 

INTERFACE ^392 
FROM _ 

Designed and built by COMPUTEX, the CPT series of 
expansion interfaces will make your TRS-80* per- 
form and look like a computer system should. 

The custom built all wood cabinet trimmed in alum- 
inum features a removeable front panel with or 
without cutouts for disk drives. This allows you 
to start with just the basic system, then for only 
S275 you can add a disk drive and new front panel. 
The cabinet height places the disk drives only in- 
ches from the front of your keyboard which makes 
disk drives much easier to access. Innovative de- 
sign has made the addition of disk drives a simple 
job of sliding in the disk drive, inserting four 

screws then connecting two connectors to the drive. 
We also included in the cabinet dewign the muffin 
fan that everyone else left out. 

The actual interface electronics is composed of the 
field proven LNW system sxpansion board which in- 
cludes all of the capabilities of the Radio Shack 
Interface, plus a RS232/20-A Serial Port. 

Best of all, the entire system can be purchased in 
kit form or assembled at a fraction of the cost of 
other systems. For example a complete system with 
two double headed drives, RS232 and 32K RAM is only 
$1350. A four drive system as above would be near- 
ly twice that amount from any other supplier. 

A thousand words cannot describe the new CPT series 
of interfaces so see our ad below then write or 
call for more information. 

COMPLETE LNW INTERFACE KIT $249.95 

CUSTOM BUILT & FINISHED CABINET $ 99,95 

FRONT PANELS, SPECIFY, 0, 1 or 2 CUTOUTS .... $ 19.95 

DUAL DISK POWER SUPPLY $ 59.95 

MUFFIN FAN $ 14.95 

TANDON 40 TRACK DRIVE $2 55.00 

TANDON DOUBLE HEADED DRIVE $355.00 

COMPUTEX : 17710 Heritage Court, Webster, TX 77598 
(713)332-4359 



TRS-80 is a trademark ol Ihe Radio Shack Div 



i ol Tandy Corporati 



**SPECIAL**SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



2 INTERFACE, INC ^™ 
20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



misESis 



Assembler into 
patch modifies 
under TRSDOS, 
Features? Add 
move, global 
pagination with 
sorted symbol 



or VTOS ! 

I/O, block 

printer 

prompting, 



>[J IS Refill] [J Turn your Editor 
a disk package. This 
EDTASM 1.1 & 1.2 
NEWDOS , 
full disk 
change , 
optional 
table, print memory 
utilization, correct DEFM expansion, 
protect memory, and recover after 
BOOT. From within the EDTASM you 
will have DIR, KILL, & free. This 
package is a must for assembler 
programmers! Priced at ?20. 

DISK*MOD and DSMBLR II require a 32K 
disk system. 

>JSTlhll || Complement your 

assembly language tools with this 
Z80 disassembler which produces 
screen, printer, or disk file 
output. A 2-pass process provides 
SYMBOLS for 16-bit address and 8-bit 
relative references. EQUates & ORG 
are generated. Priced at 520. A 16K 
Tape Version (DSMBLR 1.2) is 

available for $15. 



>: nliil ! 



Now you can append 
2 or n.jre CMD files and/or SYSTEM 
tapes. Perform transfer to & from 
disk/tape of SYSTEM/CMD nodules with 
offset capabilities. Provides PATCH, 
TAPEDISK, S LMOFFSET capabilities as 
well as adds a few of its own. Get 
CMDFILE today! 16K req'd. $20. 



• 221 



MISOSYS Department K 

5904 Edgehill Drive 

Alexandria, Va. 22303 

703-960-2998 

MASTER CHARGE & VISA Accepted 

A Sophisticated Model II Editor 
Assembler is now available. Contact 
MISOSYS or Galactic Software ltd. 
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Everything needed to add powerful controller 
capability to TRS-80, Model 1, Level 2 or DOS 

SCIENTIFIC ENGINEERING LABORATORIES ^291 

11 NEIL DRIVE • OLD BETHPAGE, NEW YORK 11804 
TELEPHONE (516) 694-3205 



GPIB-488 to TRS-80* 
INTERFACE 

Mod. 488-80B 

$225.00 

+ shipping, insurance & tax 

SPECIFY 
DISK OR TAPE 



"Trade Mark of Tandy Corp. 
There is no affiliation between 
Scientific Engineering Laboratories 
and Tandy Corporation or Radio 
Shack. 




OUR MONKS HAVE A SPECIAL INTRODUCTORY 
OFFER FOR 16K LEVEL U USERS 

7 GAMES-SI 0.00 
CASSETTE AND INSTRUCTIONS 

* M1SS1.ES- Destroy Video Bombers 

* TANK TRAP- Destroy The Enemy-Save Your Tank 

* STAR TREK- Another Trek, Another Game 

* DICE GAME- Gambling Game For 1 To 4 Players 

* CONNECT 4- Two Player*, Or You Against It 

* STAR FIGHTERS- Destroy Robot Fighter's Mother Ship 
ELYRIA, OHIO 44036 * DIGIT MASTER MIND- Deductive Logic, 8-Levek Of Play 




BRITT MONK, CDP 
P.O. BOX 802 ^324 



your 
TRS-80 1 * equipment! 

Use our toll free number to 
IJj check our price before you buy >|j 
''* a TRS-80™ . . . anywhere! » 




G 



RONDURE COMPANY 



^-191 



2522 BUTLER ST 

DALLAS. TEXAS 75235 

214-6304621 



the computer room 



SPECIAL 

Printer for your 
Microcomputer 




GETERMINET 
300 PRINTER 

Pin feed— 9" paper 



• 80 Print positions 

• Receive only 

• ASCII code 

• RS-232 interface 

• 30 CPS 

• Upper & lowercase 

• Shipping wt 75# 
Shipping containers $15.00. 

(used) 
(good working condition) 



Will run on serial RS232 port of 
most micros including TRS-80. 



$450.00 



WE HAVE FLAT-PACK 
ACOUSTIC 



Modem 
pickup 




$19 50 



USED FANS 




Muffin -8.00 
Sprite -4.00 




NEW 

POWER 

SUPPLY 

$25.00 

5V at 3 Amp 
12V at 6 Amp 
12V at 3 Amp 




USED 

POWER 

SUPPLY 

$15.00 



5V at 12 Amp 
16V at 6 Amp 
6V at 2 Amp 




NEW 
POWER SUPPLY 

(AC-DC Brand) 

Model 1 -22V @ 1 .9a $20.00 
Model 2-1 5V @ 2.4a $30.00 



MICRO SWITCH KEYBOARD 

USED BUT LOOKS VERY NICE 




ASCII 



$40.00 

(With Print) 




USED 
) OMNITEK 

MODEM 

ORIGINATE 

ONLY 

TESTED 

$90.00 Sale 



ORDERING INFORMATION: 

We ship the same day we receive a certified check or money order. 
Texas residents add 5% sales tax. Please call If you have a question. 
Write for our CATALOG of many parts, terminals, printers, etc. 
All Items subject to availability. Your money returned if we are 
out of stock. 



SHIPPING INFORMATION: 

Modems: $3.00 each; Key Boards $4.00, Power Supply $7.00. 

Large Items & Parts: Specify Freight or Air Freight Collect. 

Foreign Orders: Add appropriate f relgnt or postage. 

We now take Master Charge and Visa orders. Specify full number, 

bank number and expiration date. 



^Reader Service index — see page 194 
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TUTORIAL 



The next logical step. 



Towards Machine Language 



Allan S. Joffe W3KBM 
1005 Twining Road 
Dresher, PA 19025 



Sooner or later you will have 
had your TRS-80 long 
enough to feel comfortable with 
BASIC. When this plateau is 
reached, the urge to explore ma- 
chine language is not too far be- 
hind. 

If you take a look at the in- 
struction set for the Z-80, you 
might decide that BASIC is bet- 
ter than ever. Still, you know that 
machine language is fast and 
the mastery of some of its 
mysteries has got to make you a 
more complete programmer. 

What You'll Need 

Before you tread the maze of 
this new discipline, face the fact 
that hexadecimal is a necessity 
and learn or relearn it. You'll 
need a monitor program, which 
allows you to communicate with 
your computer at its gut level. 
There are a number of different 
monitors around, my own 
choice being T-BUG by Radio 
Shack. It's both flexible and 
easy to use. 

Also you'll need a guide book 
that gives you machine lan- 
guage fundamentals. I can rec- 
ommend TRS-80 Assembly-Lan- 
guage Programming by William 
Barden, Jr. for its clarity. 

If you can possibly get hold of 
the Z-80 instruction manual by 
Zilog you will have a much more 
informative map of the instruc- 



tion set. 

Your window to the world of 
the TRS-80 innards is going to 
be memory locations 3C00 to 
3FFF, the video memory. 

I'm going to assume that you 
have bought a copy of T-BUG 
and the Barden book. One of its 
sample programs on page 77 
takes a character, loads it into a 
register and makes the charact- 
er appear in the center of your 
monitor. 



4A00 3E31 

4A02 32203E 
4A05 C3054A 



To RUN this program you 
would execute a J4A00. 

This program works like a 
charm and locks itself tightly in- 
to a loop that can only be broken 
by RESET. 

The problem is in the third 
line, a LOOP instruction. We can 
make a simple change, 4A05 
C38043, which will make the pro- 
gram run as before, but will 
return to the start of T-BUG. This 
avoids your having to use the 
RESET button and go through 
the T-BUG entry routine each 
time you run a change. 

To phrase a computer hap- 
pening in Capitol Hill overtones, 
the C3 instruction in memory 
location 4A05 is "the moral 
equivalent of a BASIC GOTO 
command". 

BASIC Parallels 

If you wrote in BASIC, 10 
GOTO 10, you would have 
created a parallel situation, 



namely a loop. The same is true 
for any number of machine lan- 
guage codes. Thus C9 is a 
RETURN, C3 is a JP NN where 
JP stands for JUMP (or GOTO) 
and the NN represents the ad- 
dress to be JUMPed to in hex 
notation. 

Let's go back to the little pro- 
gram and examine certain nota- 
tion conventions and peculiari- 
ties that can give the machine 
language tyro a case of the 
"undecideds." 

Taking one memory cell at a 
time 4A00 3E is an LD A,N in- 
struction which can be read: 
Load the A register with N, N be- 
ing a hex value for the desired 
character, in this case 31H 
which will produce the numeral 
1 on the screen. 

Notice that while we are only 
delineating the memory cell 
value for the first entry, that by 
convention it is understood that 
4A00 3E 31 is placing the 3E in 
memory location 4A00 and that 
memory location 4A01 gets the 
value of 31 placed into it. This 
saves writing many location 
numbers, if indeed, you know 
what is being done. This may 
sound simple, but I have yet to 
see the person born with the 
proverbial silver spoon of 
machine language in his or her 
mouth. 

If you wanted the letter A in- 
stead of the numeral 1, you 
would substitute 41 H and the 
character on the screen 
becomes an A. 

4A02 32 20 3E now begins to 
make a bit more visual sense 



when you realize that these 
items represent the contents of 
the next three memory cells in 
the program. 

The contents of memory loca- 
tion 4A02 is a 32 instruc- 
tion— LD(NN),A— that can be 
read: LOAD location in memory 
specified by NN with the con- 
tents of the A register. Now we 
have to specify into what mem- 
ory locations the information in 
the A register is to go. 

The program defines this 
location as 20 3E, which brings 
up a bit of a sore point. Your 
TRS-80 window to the world is 
the part of memory dedicated to 
lighting the monitor screen. This 
runs from 3C00H to 3FFFH. You 
have guessed that 203E must 
fall within this window, but 
something does not look right. 

If you remember that the 
lowest part of the address goes 
in first and the highest part of 
the address goes in last, then 
mentally you can turn 203E into 
3E20, which is how the com- 
puter visualizes it. 

When you do this, a little 
calculation will show you that 
3E20 is just about in the middle 
of the window range of 3C00H to 
3FFFH. The decimal value of 
3C00H is 15360 and the decimal 
value of 3FFFH is 16383. 

4A05 C3 8043 starts to make a 
bit more sense. The C3 JUMP in- 
struction is followed by the ad- 
dress to jump to and once more 
we see the last first, first last, 
reversal of the address. The real 
address is 4380, which is the 
start of T-BUG. 
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F3 42 
OAOO 



B2 



20 

22 
58 
22 



These are the program "pointers." 

This is the line number in hex which is entered in last-first, first-last 

style. In actual human terms it is OOOA which translates to 10. 

This is the compact code used for all of the TRS-80 reserved words. 

They are ail 80H and higher. B2 is PRINT.80 is END.81 is FOR . . etc. 

This is the ASCII code for the space between the T in PRINT and the ' 

preceding the X. 

This is the ASCII code for the " preceding X. 

This is the ASCII code for the letter X 

This is the ASCII code for the closing " after X 

Example 1. 



Now if you run this program 
and execute a J4A00 using 
T-BUG, everything rolls up off 
the screen, and you are left with 
a clean display with a numeral 1 
in the center of the screen and 
the # sign in the upper left hand 
corner, indicating T-BUG is 
standing by, ready to execute 
your orders. 

Using T-BUG 

You can go from T-BUG back 
to BASIC with a J 1A19, which 
will bring up the READY that you 
are used to seeing when BASIC 
is hot to trot. Remember this 
fact of life. When you write a 
BASIC program in the usual 
fashion, the first memory loca- 
tion that this program uses is 
42E9H or 17129 decimal. 

T-BUG starts at 4380H or 
17280 decimal, so if T-BUG is in 
residence you don't have many 
memory locations between the 
start of BASIC and the point 
where a BASIC program would 
be busy wiping out the T-BUG 
program. 

It would have been nice, if the 
folks who created T-BUG would 
also have rewritten a version 
that resided in high memory. 
This would free RAM in low 
memory for BASIC program- 
ming. 

Another small housekeeping 
hint when clearing a screen full 
of data. You have at least two 
options. You can execute a J 
4380 or a J 40A4 with T-BUG, 
either of which will clean up the 
screen leaving you with the # 
sign in the upper left hand cor- 
ner. 

Before going on to another 
machine language program let 
us examine a line of BASIC pro- 
gramming using T-BUG, which 
may provide you with some 
answers and certainly raise 
many more questions about this 



new vista of machine language. 
Assume that you have loaded 
T-BUG into your TRS-80 and 
then have executed a J1A19that 
gets you back to BASIC. Clear 
the screen, and type in this line: 
10 PRINT "X". Now return to 
T-BUG, and using the M com- 
mand, we find the items in 
memory locations 42E9 to 42F1 
inclusive in Example 1. 
Machine Code LISTING 

There is a world of informa- 
tion to be learned on just how 
and in what form your TRS-80 
does its thing. It's annoying that 
Tandy Corporation makes it so 
hard to come by this informa- 
tion. It is toughto figure why any 
information that makes a prod- 
uct easier to use by its pur- 
chaser is so cloaked in pro- 
prietary secrecy. 

Using T-BUG, punch in this 
series of commands starting at 
memory location 5000: CD # F6 
F6 04 3E 31 32 20 3E 76. 

Now jump to J 5000. Interest- 
ing, isn't it? 

All of the information on the 
screen is in the large print for- 
mat. What you have done is call 
an instruction in the ROM, 
which is located at memory lo- 
cation 04F6, and, presto, you 
have a very handy routine. There 
are literally hundreds of these 
"instant" machine language 
routines locked away in your 
Level II ROM. All you need to 
know is their starting address 
and their functions. 

To help your programming 
make up a card that shows you 
which CPU register is which, 
when you use the R command of 
T-BUG to display the contents of 
these registers. It will make life 
simpler 

Block Transfer 

Let's examine one of four very 



FREE 

SHIPPING ANYWHERE IN THE CONT. U.S. 

CENTRONICS PRINTERS 



730-1 




THE BEST AND MOST POPULAR SMALL 
SYSTEM PRINTER 

7x7 parallel matrix • upper & lower case 

• excellent print quality • 80 char.lline 

• avg. 30 lines/min. • same as Radio 

Shack Line Printer II 



Our Price '774 List $970 You Save $196 

779-1 same as Radio Shack una Printer l 

Our Price * 1,09 5 List $1,570 You Save $475 



THE 700 SERIES - 132 COLUMN PARALLEL PRINTERS 



Model 

700-9 
701-9 
702-9 
703-9 



EQUIPMENT 



Avg. lines 
Per Min. 

40 

70 
140 
200 



Dot 
Matrix 

9x7 
9x7 
9x9 
9x9 



OUR 
PRICE 

♦1,395 
1,645 
2,155 
2,685 



List 

$1,930 
2,015 
2,490 
3,190 



YOU 
SAVE 

$535 
370 
335 
505 



TRS-80* EQUIPMENT 



: 



LIST OUR PRICE 

Level I - 4K System $499 $459 

Level I - 16K System $729 $679 

Level II - 4K System $619 $579 

Level II - 4K w/Key pad $698 $648 

Level II - 16K System $770 $710 

Level II - 1 6K w/Key pad $849 $779 

Level II - 1 6K lower case $949 $869 

OK Expansion $299 $284 

16K Expansion $448 $408 

32K Expansion $597 $537 



HOW TO ORDER 

• Write the products you wish to order 

• Mass. Residents Add 5% Sales Tax 

• Write your name, ship-to address, and your 
PHONE NUMBER (someone must be at the 
shipping address during the day. If no one is home, 
have it shipped to where you work). 

• Send your order and personal, company or 
certified check or money order to: 

SLECTRONICS - 

205 Lewis St. Lynn, Mass. 01902 

(617) 272-8588 Sorry - NO Phone Orders 

Allow 2 to 6 weeks for delivery 

*TRS-80 is a Trademark of Radio Shack & Tandy Corp. 



^Reader Service index— see page 194 
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DEBUG-S/S 

FOR YOUR TRS-80 




AT LAST!! 

A POWERFUL 

DEBUG MONITOR 

FOR THE 

EXPERT & NOVICE 

PROGRAMMERS 



DEBUG-S/S is a uniquely powerful monitor for: (1) analyzing, (2) 
creating or modifying, and (3) debugging machine-language pro- 
grams on your level II, 16K system. 

EFFICIENT - SIMPLE - FUN 

No longer do you need to keep reaching for your reference card or 
searching through your program listing while debugging your pro- 
gram. — Most all of this information is at your fingertips with 
DEBUG-S/S. Warning - Debugging your program with DEBUG-S/S is so 
efficient and convenient that you may find yourself wishing that you 
had more bugs to find. 

RUN IN SLOW MOTION 

With DEBUG-S/S you may run your program in slow motion or single 
step and observe your Z-80* registers dynamically and/or observe 
your message printing on the screen one-character-at-a-time! 

SPLIT/SCREEN DISPLAY 

DEBUG-S/S uses a convenient split screen display system. The upper 
right section of the screen automatically displays upon entry to 
DEBUG-S/S from the user's program. This section shows the user's 
next instruction in hexadecimal and disassembled symbolic form, and 
also shows the user's major Z-80* registers. The left portion of the 
screen is for the user's display or a scratch pad area for memory 
dumps. The lower right section of the screen is where DEBUG-S/S 
commands are entered and echoed for the user's inputs. 

TRANSPARENT MODE 
DEBUG-S/S may be operated in a transparent mode which leaves the 
entire screen showing all of the user's display data upon entry to 
DEBUG-S/S, except for the letter D displayed on the upper right corner 
of the screen indicating that DEBUG-S/S has been entered. If the user 
now wishes to examine his Z-80* registers, he simply types D (Display). 

"NO CRASH" BREAKPOINTS 
DEBUG-S/S uses a single byte breakpoint which means you may put a 
breakpoint in the first byte of any instruction in your program and not 
cause your program to crash because of the breakpoint insertion. Your 
breakpoint will stay active until you reset it or redefine it. This allows 
you to run through loops in your program repeatedly without having to 
redefine your breakpoint each time. You may enter any number of one 
byte pseudo breakpoints simultaneously in your program manually 
with the Memory command. 

POWERFUL COMMANDS 
Examples of DEBUG-S/S commands are: Jump - Go - Breakpoint - 
Memory examine/modify - Hex Dump - ASCII Dump - Symbolic Instruc- 
tion Dump - Single Step - Automatic Step start/stop - Increase/ 
Decrease Auto Step rate - Clear Screen and save cursor position - Clear 
Screen and home cursor position, plus other commands. 

YOU WILL RECEIVE 

You will receive a cassette and instruction manual. DEBUG-S/S is 
assembled into lower memory on one side of the cassette and into the 
top of 16K memory on the other side. DEBUG-S/S uses 4K of RAM. 
"TRS-80 is a trademark of the Tandy Corporation. *Z-80 is a trademark of Zilog. 

Send check or money order payable to: 

CALSOFT 

4421 Gilbert St. #303 
Oakland, CA 94611 

California Residents add 6.5% Sales Tax. 

(PRINT) 

NAME 



$39 95 



ADDRESS. 



CITY. 



STATE 



_ZIP 



D9 


ABS 


A4 


GET 


A1 


ON 


BF USING 


D2 


AND 


91 


GOSUB 


A2 


OPEN 


C1 USR 


E4 


ATN 
















8F 


IF 


E5 


PEEK 


F5 VAL 


F1 


CDBL 


C9 


INKEYS 


C6 


POINT 


CO VARPTR 


F7 


CHR$ 


DB 


INP 


B1 


POKE 




EF 


CINT 


89 


INPUT 


DC 


POS 




B8 


CLEAR 


C5 


INSTR 


B2 


PRINT 




A6 


CLOSE 


D8 


INT 


A5 


PUT 




84 


CLS 












85 


CMD 


AA 


KILL 


86 


RANDOM 




B3 


CONT 






8B 


READ 




E1 


COS 


F8 


LEFTS 


93 


REM 




FO 


CSNG 


8C 


LET 


82 


RESET 




E8 


CVD 


AB 


LSET 


90 


RESTORE 




E6 


CVI 


F3 


LEN 


9F 


RESUME 




E7 


CVS 


9C 


LINE 


92 


RETURN 








B4 


LIST 


F9 


RIGHTS 




88 


DATA 


A7 


LOAD 


DE 


RND 




9B 


DEFDBL 


EA 


LOC 












EB 


LOF 


AD 


SAVE 




99 


DEFINT 


DF 


LOG 


83 


SET 




9A 


DEFSNG 






D7 


SGN 








C8 


MEM 


E2 


SIN 




98 


DEFSTR 


A8 


MERGE 


DD 


SQR 




B6 


DELETE 


FA 


MID$ 


CC 


STEP 




8A 


DIM 


EE 


MKD$ 


94 


STOP 








EC 


MKI$ 


C4 


STRINGS 




90 


EDIT 


ED 


MKS$ 








95 


ELSE 






BC 


TAB 




80 


END 


A9 


NAME 


E3 


TAN 




C2 


ERL 


BB 


NEW 


CA 


THEN 




C3 


ERR 


87 


NEXT 


C7 


TIMES 




94 


ERROR 


CB 


NOT 


97 


TROFF 




EO 


EXP 






96 


TRON 




A3 


FIELD 












F2 


FIX 












81 


FOR 












DA 


FRE 












Table 1. Codes for Lis 


t of Reserved Words in 


Level II Manual. 



nice Z-80 processor commands 
that come under the general 
heading of block transfer, a 
series of commands that move 
existing information in one part 
of memory to another quickly 
and easily. 

Let's look at LDIR. Think of it 
as Load, Increment and Repeat. 
Three sets of registers have to 
be initialized. The instruction 
must know where the data is in 
memory that you want moved; 
to where you want it transferred; 
and, finally, just how many 
bytes of data are to be trans- 
ferred. 

The HL registers, used as a 
coupled pair, are loaded with the 
starting address of WHERE THE 
DATA IS COMING FROM 
(source). 

The DE registers, used as a 
coupled pair, are loaded with the 
starting address of WHERE THE 
DATA IS TO GO (destination). 

The BC registers, used as a 
coupled pair, is loaded with a 
hex value that gives the total 
byte count that you want to 
move. 

Here is a simple demonstra- 



tion program of the LDIR com- 
mand. 

Starting with memory loca- 
tion 5000, load the following: 



11 20 3E 21 00 60 01 OC 00 ED BO 



Let's examine what this 
series of memory contents is to 
do. 

• 11 loads the DE register pair 
with the hex values 203E. This 
address is in the middle of the 
video memory window. 

• 21 loads the HL register pair 
with the hex value of the ad- 
dress where the information is 
stored. In this case the value is 
00 60, which, in human terms, is 
6000. 

• 01 loads the BC register pair 
with the value 0C00 which 
translates to 000CH or 12 in 
decimal. This is the total 
number of bytes we are going to 
transfer. 

The final two bits of informa- 
tion, namely EDBO, are machine 
code for "execute the block 
transfer, please." Now, all we 



146 • 80 Microcomputing, August 1980 



have to do is put the planned 12 
bytes of data into the memory 
location we have designated, 
which starts at location 6000H. 
Again using T-BUG, load the 
following memory information 
starting at 6000H. 



44 41 4E 20 49 53 20 53 4D 41 52 54 C3 80 43 



This simple message reads: 
DAN IS SMART and appears in 
the middle of your screen when 
you execute a J5000. All the 
values with the exception of the 
last three (C3 80 43) are ASCII 
values that represent the letters 
making up the message. The 
numeral 20 is the ASCII code for 
a space. 

The C3 80 43 is the command 
that sends the program back to 
the start of T-BUG after running 
the program. In this manner you 
are ready to re-program, if you 
wish, without having to break 
out of a loop which you might 
need to hold the message on the 
screen. 



Conclusion 

Naturally, you are not limited 
to alphanumerics here. The 
graphics character set cor- 
responds to ASCII codes 81 
through BF (hex, naturally), so if 
you replace the 12 bytes in the 
6000 section of memory with 
any of the ASCII graphics sym- 
bol codes, you will see them 
displayed on your screen. 

When you get ambitious, you 
will want to move many more 
than 12 bytes, but if the move is 
into the video memory window 
don't "over-byte" outside the 
window limits or you will find 
your computer doing strange 
things. You will have trans- 
gressed into dedicated memory 
areas. 

Machine language is worth- 
while, if, for no other reason, 
than to learn to admire all the 
people who worked so hard to 
develop it. If you are interested 
in speedy graphics, then it is a 
must. Just remember to be logi- 
cal and not paint yourself into a 
corner. ■ 



TRS-80™ * J^H 
SOFTWARE J^ 




IF YOUR CUSTOMER 

MAILING 

LIST 

HAS YOU 

NAILED... 

behind a desk for hours 
at a time because of 
constant updates and 
changes, dial (617) 373-1599 

and we'll explain our Customer 
Control Mail List System that has 670 customers per 
diskette; will store name and address information, 
reference code, plus variable selection codes for each 
customer; will display customer information of a video 
screen, print reports and mailing labels; will sort 670 
names in less than 30 seconds; select, sort, and print 
670 mailing labels in just over 30 minutes; has Partial 
Key Lookup and instantaneous display; has select/sort 
options by record sequence, last name, city, state, zip 
code or reference code; and has a low price of only 
$99.00! 

SBmsvsTEms, inc. 

P.O. Box 1225 • 2 Washington Street 
Haverhill, Massachusetts 01830 



PACKER: Automatically edits all or part of your 
Basic program to ease editing, run faster, or save 
memory. Has 5 sections: UNPACK — unpacks multi- 
ple statement lines into single statements maintain- 
ing program logic; inserts spaces and renumbers 
lines for easier editing. SHORT— shortens your pro- 
gram by editing out all REM statements, un- 
necessary words and spaces. PACK — executes UN- 
PACK and SHORT, then packs lines into multiple 
statement lines; maintains program logic. 
RENUM — renumbers program lines including all 
GOTO's, etc. You specify increment. MOVE — moves 
any line or block of lines to any new location in the 
program and renumbers lines. Written in machine 
language; supplied on tape in 3 versions for 16K, 
32K, & 48K. For Level II or Disk Basic $29.95 

DISASSEMBLER: Read, write, and copy system 
tapes. Display and modify memory contents. 
Disassemble ROM, DOS, and system tapes intoZ-80 
mnemonics. Search for strings in memory. Much 
more!! Includes 32 pages of documentation and in- 
formation. 

For 16K Level II $19.95 

SYSTEM TAPE DUPLICATOR: Copy your system for- 
mat tapes. Includes verify routine. 
For any Level II $14.95 

CHESDISK: Transfers your copy of Microchess to 
disk for quick and easy access. 
For any Level II Disk system $8.95 

CASSETTE LABEL MAKER: A mini-word processor 
to print cassette labels on a line printer. Includes 
manual and 50 peal-and-stick labels on tractor feed 
paper. 

For 16K Level II and printer $15.95 

INSTRUCTION MANUALS for any Cottage Software 
original programs available for 20% of program list 
price. Refundable when program purchased. 
TRS-80'" repairs and modifications. Call or write for 
info. MANY MORE items available. Call or write for 
catalog. DEALER inquiries invited. 
Kansas residents add 3% sales tax. Foreign orders 
in US Currency only. 
Call our 24-hour phone: 316-683-481 1 or write 

"TRS-80 is a registered trademark of TANDY CORP." 

COTTAGE SOFTWARE 

614 N.Harding ^233 
Wichita, KS 67208 



'DR. HOWE'S SOFTWARE^ 

For the TRS-80 (*) 

MACHINE LANGUAGE 
SOFTWARE 

MONITOR #3 $39.95 

Disassembler; memory displays; memory move, 
search verify, and modify; read and write object 
tapes; hexadecimal arithmetic; object code reloca- 
tor; unload programs for disk; symbolic output 
tapes; 41-page instruction manual. 

MONITOR #4 $49.95 

Same as Monitor #3 but adds: save and read disk 
files; direct input and output of disk sectors; send, 
receive, or talk to another computer via RS-232-C in- 
terface; symbolic disassembly on disk. 

SMART TERMINAL $49.95 

Enables your TRS-80 to be used as a remote terminal 
to a time-sharing system. Supports lowercase and 
full range of control keys. Automatic transmission 
between memory and host computer. Much more. 

FASTSORT $9.95 

Machine-language sorting program for use by Basic 
programs. Many times faster than other methods! 

GAME OF "LIFE" $5.95 

John Conway's game of "life" shows patterns evolv- 
ing and changing swiftly before your eyes. A dazzl- 
ing demonstration program! 

BASIC SOFTWARE 

MAILING LIST $69.95 

Maintains mailing list files of over 1000 names per 
diskette. Add, delete, change, find name, machine 
language sort, print file. 

SMALL BUSINESS ACCOUNTING $49.95 

Based on Dome Bookkeeping Journal #612, keeps 
track of income, expenditures, and payroll for a 
small business of up to 16 employees. Daily, month- 
ly, year-to-date summaries. 

HOME BUDGET $49.95 

Checkbook maintenance combined with records of 
income and monthly bills. Monthly and year-to-date 
summaries showing tax deductions. 

DATABASE MANAGEMENT $29.95 

Define files of any description and maintain on cas- 
sette or disk. Add, change, delete, find, sort, justify, 
print, line print, total fields, write. 



HOWE SOFTWARE ^103 

14 Lexington Road 

New City, New York 10956 

(') TRS-80 is a registered trademark of Tandy corp. 



ii 



)) 



HISPED 

TAPE OPERATION 

2K Baud PL TO 
for the TRS-80™ 

t Save, verify and load programs up to 
4 times faster than normal 

• Save, verify and load array data up to 
30 times faster than PRINT# 

> User variable hardcopy formatting (3 
output routines work with most 
printers) 

• "HISPED" is a machine language 
program (not a hardware add-on) 

1 2 copies plus a free basic test program 
supplied on high quality cassette — for 
level 2, 16K, 32K or 48K. 



Write for full specifications or send 
$24.95 (ck or mo) + $1.00 P/H (Calif, 
residents add 6°Io sales tax) 

24 Hour Ordering Line (415) 366-5340 

PALOMAR 
SOFTWARE 

170 S. Palomar Dr. 
Redwood City, Ca. 94062 

^228 



"TRS-80 is a registered trademark of TANDY CORP.'" 
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GENERAL 



Switching from Model I to Model II. 



Rites of Passage 



Dan Keen 

Dave Dischert 

RFD 1 Box 432 

State Highway 83 

Cape May Courthouse, NJ 08210 



TYPE=f «!■ FE8 13 1988 44 -- 86. 58. 1 

8VTE1..5. lft. .15.. .28. 25.. 38 35. .48 45 56 55 68. 65 78. 75 

1 DAN KEEN RD 1 BOX 432 CM t H. NJ0B216 8 1 

44424444222222222222542324452333222&2224242424222J2222443J3332322232222222 

4i£ee55E 8 8eeweeeeee248i82f88422eeee988930E!E8E8e8e88Eefl882i8ee888ieee8e8e 



PfiGE 1 
85. 96 95 188 



Model I owners, hold on to 
your hats. With the advent 
of Radio Shack's TRS-80 Model 
II, there are new things to learn 
and old habits to break. 

Just sit down at the Model II 
keyboard to get started. Sur- 
prise! The backspace, @, (, ), ", 
*, and : are in different positions 
because the keyboard is laid out 
like a standardized typewriter. 

Other key changes include a 
TAB which replaces —. The ES- 
Cape key is substituted for 
SHIFT plus t to exit the line EDIT 
mode. There's a repeat key which 
is another useful editing tool. 
Hold down the space bar or back- 
space in conjunction with the re- 
peat key and you speed across a 
line. 

SHIFT and LOCK keys are 
provided for typing all capital 
letters. The LOCK is important 
when you enter DOS com- 
mands, since they require up- 
percase. BASIC isn't so fussy; 
upper or lowercase commands 
are both valid. 

In both BASIC and DOS the 
CLS command is used in place 
of the CLEAR key of the Model I. 
Instead of holding SHIFT plus 
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Fig. 1. 



@, a new key, HOLD, stops 
scrolling of a display listing. 

Besides these key changes, 
several commands have been al- 
tered. Most of the commands 
and functions for the Model II 
are the same as Model I's TRS- 
DOS, so it's a fairly smooth tran- 
sition. For instance, EDIT is the 
same, and the CMD command 
has merely been renamed SYS- 
TEM. Other commands and 
changes have been more radi- 
cal. 

Using LIST on the Model I re- 
quires contents to be SAVEd in 
ASCII. With the Model II, you no 
longer have to worry about stor- 
ing your program in ASCII. You 
also have an option to LIST the 
data on the screen or on a print- 
er. The Model II LIST displays 
each byte position in the buffer, 
the character, the hexadecimal 
number and other parameters 
such as record number or LRL. 
Fig. 1 shows a LIST of a file from 
a short mailing program. 

DIR gives you a whole screen 
of information: file name, crea- 
tion date, ATTRB (password pro- 
tection status), number of logi- 
cal records in that file, number 
of extents (how many segments 
have been added to the file), 
space allocated and space 



used, number of sectors and 
end of file byte (the starting po- 
sition in the last written sector). 

SET and RESET are not sup- 
ported by the Model II. Instead 
there is a shape table and graph- 
ics are drawn using CHR$. To 
position graphic shapes or any 
character on the screen you can 
use PRINT @ as before, or the 
(x,y) coordinates. For example, 
PRINT @ (X,Y),CHR$(159). 

Different ASCII characters 
are used to turn the flashing cur- 
sor on and off to determine up- 
per and lowercase and to create 
graphics. 

There are dozens of supervi- 
sor calls, which would take sev- 
eral articles to cover. It's worth 
mentioning that some of these 
cover the functions of Model I's 
PEEK and POKE. 

Several DOS commands have 
been added. A synopsis of some 
of them follows: AGAIN tells 
DOS to re-execute the last com- 
mand. If you only have one drive 
and have to check the DIR of 
several disks by swapping them 
around, this command will save 
you steps. 

BUILD could be described as 
a superior AUTO command. 
With it you can make a file of 
many DOS commands that will 



automatically be executed with 
a DO command. 

PURGE makes it possible to 
delete files en mass. You speci- 
fy the type of files you want de- 
leted: system, machine lan- 
guage, data or all. It can be dan- 
gerous in the wrong hands. 

Getting DIR from BASIC 

Now let's shoot down to Disk 
BASIC. To accomplish this you 
must go through a pain-in-the- 
neck sequence: Type BASIC, a 
space, - F (for FILES), and the 
number of files you want open. 

One great improvement is the 
ability of this Disk BASIC to exe- 
cute some DOS commands. You 
can get a DIR listing from BASIC, 
just like you can with Apparat's 
NewDOS+ for the Model I. And 
typing NEW doesn't clear the 
screen. 

Since there is no ROM, power 
up requires waiting for the ma- 
chine's brains to be loaded from 
disk to the RAM. You're used to 
DOS READY coming up pretty 
fast on our Model I, but this 
takes a while. 

Apparently the disk directory 
is stored in RAM until you are 
done, when you must type I, and 
the directory data writes on the 
disk. A Radio Shack newsletter 
warns that to change any disk- 
ette to another drive requires the 
I TRSDOS command. If you 
don't use I, disks will have the 
wrong directory and it is possi- 
ble that you will write over pro- 
grams and data. 

We are extremely pleased 
with the Model II. There are only 
a few negative things that 
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the electric pencil II 



TM 




1980 Michael Shrayer 



for the TRS-80 Model II* Computer 



The Electric Pencil is a Character Oriented Word Processing 
System. This means that text is entered as a continuous string 
of characters and is manipulated as such. This allows the user 
enormous freedom and ease in the movement and handling of 
text. Since lines are not delineated, any number of char- 
acters, words, lines or paragraphs may be inserted or deleted 
anywhere in the text. The entirety of the text shifts and 
opens up or closes as needed in full view of the user. Car- 
riage returns as well as word hyphenation are not required 
since each line of text is formatted automatically. 

As text is typed and the end of a screen line is reached, a 
partially completed word is shifted to the beginning of the 
following line. Whenever text is inserted or deleted, existing 
text is pushed down or pulled up in a wrap around fashion. 
Everything appears on the video display screen as it occurs 
thereby eliminating any guesswork. Text may be reviewed at 
will by variable speed or page-at-a-time scrolling both in the 
forward and reverse directions. By using the search or the 
search and replace function, any string of characters may be 
located and/or replaced with any other string of characters as 
desired. Specific sets of characters within encoded strings 
may also be located. 

When text is printed, The Electric Pencil automatically 
inserts carriage returns where they are needed. Numerous 
combinations of Line Length, Page Length, Character Spacing, 
Line Spacing and Page Spacing allow for any form to be 
handled. Right justification gives right-hand margins that 
are even. Pages may be numbered as well as titled. 



the electric pencil 

-a Proven Word Processing System 

The TRSDOS versions of The Electric Pencil II are our best 
ever! You can now type as fast as you like without losing any 
characters. New TRSDOS features include word left, word right, 
word delete, bottom of page numbering as well as extended 
cursor controls for greater user flexibility. BASIC files may 
also be written and simply edited without additional software. 

Our CP/M versions are the same as we have been distributing 
for several years and allow the CP/M user to edit CP/M files 
with the addition of our CONVERT utility for an additional 
$35.00. CONVERT is not required if only quick and easy word 
processing is required. A keyboard buffer permits fast typing 
without character loss. 

CP/M TRSDOS 
Serial Diablo, NEC, Qume $ 300.00 $ 350.00 
All other printers $ 275.00 $ 325.00 

The Electric Pencil I is still available for TRS-80 Model I 
users. Although not as sophisticated as Electric Pencil II, it 
is still an extremely easy to use and powerful word processing 
system. The software has been designed to be used with both 
Level I (I6K system) and Level II models of the TRS-80. Two 
versions, one for use with cassette, and one for use with disk, 
are available on cassette. The TRS-80 disk version is easily 
transferred to disk and is fully interactive with the READ, 
WRITE, DIR, and KILL routines of TRSDOS. 




Features 

TRSDOS or CP/M Compatible * Supports Four Disk 
Drives * Dynamic Print Formatting * Diablo, NEC & 
Qume Print Packages * Multi-Column Printing * Print 
Value Chaining * Page-at-a-time Scrolling * 
Bidirectional Multispeed Scrolling * Subsystem with 
Print Value Scoreboard * Automatic Word & Record 
Number Tally * Global Search & Replace * Full Margin 
Control * End of Page Control * Non Printing Text 
Commenting * Line & Paragraph Indentation * 
Centering * Underlining * Boldface 





"TRS-80 is a registered trade mark of Radio Shack, a division of Tandy Corp. 



TRC 
TRD 



Cassette 
Disk . . 



$ 100.00 
$ 150.00 



^255 




MICHAEL SHRAYER SOFTWARE, INC. 

1198 Los RoblesDr. 

Palm Springs, CA. 92262 

(714)323-1400 



s Reader Service index— see page 194 
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deserve comment. 

The initialization seems a bit 
long. On top of that, every time 
you reboot you have to re-type a 
lot of information (BASIC, 
number of files, time, date, etc.); 
and only timewill accept ENTER 
as a default. This is real- 
ly aggravating to the person 
who is writting or debugging a 
program by line and must Ping- 
Pong between DOS and BASIC 
or reboot frequently. 

A big fat reset button is locat- 
ed precariously close to the key- 
board—just asking for trouble. 
And since there appears to be 
no way to restore your BASIC 
program (BASIC * is not sup- 
ported), there is constant fear of 



loosing the current version of a 
program. You must SAVE fre- 
quently—even when you've 
made the smallest of modifica- 
tions. 

There are some good, de- 
tailed graphic characters, but 
we wish Tandy could have in- 
corporated more. 

There is no cassette hookup, 
only disk. 

After paying several thou- 
sand dollars, we think the op- 
erator is entitled to a few words 
when the machine runs into an 
error. But not Tandy: It's back to 
the manual to find error codes 
again, just like Level II before 
DOS. 

We miss the clear key. If 



you've ever written a game using 
string packing techniques (like 
Android Nim), you know what a 
mess it is to list on screen be- 
cause control characters within 
the packed string cause scroll- 
ing, carriage returns and the 
like. The clear button was handy 
for this application allowing you 
to list several lines at a time 
without overprinting previously 
listed lines, giving you a screen 
full of unintelligible characters. 

Conclusion 

This is a well-designed, slight- 
ly heavy unit. The keyboard dis- 
connects from the main section 
via a small cable. The system is 
more portable than Model I 



since everything is housed in 
one cabinet, except for the key- 
board. 

The keyboard is comfortable 
to the touch and it responds very 
quickly. 

Radio Shack must have been 
in a hurry to get their machine 
on the market because shortly 
after its appearance there was 
already a new version of DOS 
(1 .2). Along with the disk came a 
thick stack of pages to be added 
to the loose-leaf owner's man- 
ual. About 90% of these pages 
were for the utility section. 

The Model II is a well-priced 
machine, capable of all that 
Radio Shack claims. We highly 
recommend it.B 



$ 



Bi islxess /Accounting 
Software 



$ 



1'lcxlblc client wrlUfup/nenertil ledger system designed by 
a C'I'A and developed by a computer specialist lor CPA'i, 
accountants and general businessmen provides large-scale 
computer features at micro-computer software costs: 

* designed for use by present employees 

* allows for up to $00 accounts 

* departmental financial statements including 
budgets 

* retains standard journal entries 

* automatic balancing of transactions 

* fast entry & posting of transactions 

* easy to follow audit trail 

* conventional accounting symbols used 

For 9-program package on diskette with user manual 
send S495 lo: 

Task Computer Applications 

Dayton, Ohio PO Box 24001 
45424 

(513)233-5515 ^ 147 



TRS-80* 
DISK SYSTEM 
SUBROUTINES 



provided in machine longgarje lor use directly from BASIC 
KIYIOARD ROUTINIi Beeps on key input, repeats key when held 
down, selective lock out of ENTER, BREAK. CLEAR, SPACE, 
^■v.T — ^. also and, when multiple entries are not 
required Also lock ou> of non-numeric keys for numeric 
entries Does not affect NEW00S operation of JKL Does not 
bounce Clear unshift gives clear entry function Cleor shift 
cleors screen 

LARGE INTEGER FUNCTIONS: Store and recall to disk not only 3 
digits to one byte and 5 digits to two bytes, but olso 8. 10. 13. 
15, ond I 7 digits to 3, 4, 5, 6 nod 7 bytes respectively 
Saves o lot of disk file room 

COMPRESSED ALPHA: Store up to 4 alpha chorocters in 3 bytes 
LINE PRINTER TEST ROUTINE: To sove your TRS-80 hanging up 
with a'not ready' code from your line printer, this routine gives 
on error message - without destroying the screen contents 
All THESE ROUTINES fit into less than 1 sectors on the disk . 
S2S for ony one routine, S20 for the second and above 
S2 50 postage etc required Cheque. Money Order 

Ontario residents add 7 % SALES TAX 

Specify I6K, 32K, 48K. NEWD0S. or TRSD0S when ordering 

Harris Data Systems 

2390 Eglinton Avenue East, Suite 208, 
Scarborough, Ontario Ml K 2P5 

(416)759-6235 ^313 

" TRS-80 is o registered trademark of Tandy Corp 
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80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enjoy your subscription. 




Test your mind— not 

your reflexes— with 

SQUADRON LEADER Games 

Command a Fighter Squadron 
m ony ot six of the decisive 
campaigns ol World War II: 



Jago'itatr*! 

me Dovlig"' 8o^noei Oltens<ve t 

Germony 



j Souinwos' Poci'ic 



i oulposl on Mussolini s aoo'Slep 



Squadron Leoder games are not just shoot em up arcade 
games, but detailed historical simulations. Each ot these 
games gives you a choice ot dozens of combinations ot 
friendly aircraft (controlled by you) and enemy dircraft (con- 
trolled by the computer). Each is carefully researched and 
simulated for factors of speed, mdnueverability. firepower, 
sturdiness. dnd rate of climb. Success or failure depends on 
your ability to learn and exploit the advantages and 
weaknesses of every aircraft 

Each game includes an audiotape cassette for 16K TRS80 
Level II, Apple II (16K or iargerj. and the new 16K PET; loading 
instructions; a tactics reference card; and pldyer's manual, in 
an attractive bookshelf box. Price is S19.95. 

Oiscovety Games • 936 W. Hwy 36 • St. Paul, MN 55113 
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/VE "SET 



UTUMNVALE AVE 
JOSE. CA. 95132 



MODEL II SOFTWARE 

HOST 

HOST allows you complete control of your Model II 
system from a remote location. HOST will allow you 
to perform any Model II function as though you were 
actually sitting at the Keyboard, yet still allows the 
Model II to operate normally. With HOST you can 
send and receive programs, data files, access disk 
and printer Just connect your Model II via telephone 
or direct line, to any standard terminal. You can even 
use a second Model II or a Model I as terminal! HOST 
gives you the power of a second computer system 
for only $139. 00 

SPRINT 

SPRINT adds a screen print command to your 
Model II The contents of the screen will be sent to 
your printer at the press of a key. or by software con- 
trol. SPRINT is loaded in via DOS, and remains in 
the system, letting you print out in DOS. or BASIC. 
SPRINT requires no modification to your programs. 
Only $19.95 

Order now from: COMPU-SERVICES 

P.O. Box 324 
Somerset. MA 02725 
• 363 
TERMS Cash or Money Order Personal checks require 
3 weeks processing time. Add $2 00 for postage and 
shipping Mass. residents add 5"/o Sales Tax. 
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II you keep this up, you'll not only have a winner, but you will 
also provide a valuable service (o many, many TRS-80 com- 
puterists. HOUSTON. TX 

/ think your approach is territic; a magazine devoted to so- 
meone other than the beginner has been sorely needed on the 
market lor a long time. PENDLETON. IN 

Along with the OCTUC Newsletter, yours is the best I've seen 
lor important into on the TRS-80 ATLANTA, CA 

I'd like to say that I'm very glad I took the gamble and sub- 
scribed to The Alternate Source News; it looks like I made the 
right choice. Keep up thegood work! MAKAWAO. HI 

Of the several TRS-80 publications I take. I like The Alternate 
Source News the best so lar! STUDIO CITY, CA 

/ was so pleased at being approached as it I knew something 
about computers' and programming, that I not only read every 
word, but am also enclosing a check lor nine dollars. 

CANOCA PARK, CA 
/ lust received my copy ol Issue #2 of TAS. I'm really im- 
pressed. You've done a great job! WAUKECAN, IL 
Okay, I'm hooked. Enclosed is my $9.00 check. 

FRANCONIA. VA 
IF YOU'RE SERIOUS ABOUT PROGRAMMING, YOU SHOULD 
SERIOUSLY CONSIDER THE ALTERNATE SOURCE NEWS, 



D Sounds good! Enclosed Is $9 00 (or six issues Please start 
my subscription with Issue number .... 

Q Yeah, it sounds Hood, but I'd like to see a copy before I sub- 
scribe. Enclosed is $200 tor the current issue 

NAME 

ADDDRESS 



CITY, STATE, ZIP 

Mail to: The Alternate Source, 1 806 Ada Street, Lansing, Ml 4891 



FILL IIM THE BLANKS!! 
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Get rid ol those cumbersome INPU T statements and till in the 
blanks, tables or forms drawn on the screen of your TRS-80 
Model I. Allows you to enter data more quickly with fewer er- 
rors. 

Easily adaptable to any Level II BASIC program, the package 
includes a machine language program tor cursor control and a 
lightning fast procedure for reading data from the TV screen. 
The iour arrow' keys gives fantastic editing power — Makes en- 
tering data fun. You'll wonder how you ever did without it' 
Machine language code is relocatable too. Use it with any size 
memory and/or other machine language program without 
modification. 

Package 1- Complete written documentation, instructions, 
examplei and program listings. $19.95 

Package 2-Pkg. 1 plus programs on Level II cassette. .Saves 
about 90 minutes or typing. $24.95 

Package J -Same as package 2 but with diskette. $26.9.5 
VISA and MA S TERCHARCt accepted. Phone orders welcome. 



ACR Consultants 
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1000 North Bitner Road 
New Palestine, IN 46163 



317-861-6319 



its. ..SOFTWARE 

COMPU-DIET 

COMPU DIET is an exciting, new. easy to use weight 
loss system. Psychologists and nutritionists have combined 
with computer technology to create COMPU-DIET: a 
program that allows you to spend minutes a day at your 
TRS-80" and lose lbs. per week. 

Each day you and your family use COMPU-DIET, your 
bodies will come closer to healthful equilibrium - using 
foods that you like. With this new scientific technique, 
your computer will help you create a unique metabolic 
balance that guarantees optimal weight loss. Finally, the 
ultimate weight loss diet; one you can stay with and lose all 
you want - 1 0, 30, 50 lbs. or more. 

COMPU-DIET is written in BASIC for the TRS-80 1 6K 
Level II. The full price of $19.95 includes behavior mod 
program, nutrition database, weight forecast program, and 
Weight Loss booklet. 

Other TRS-80 its... Products 

MINIVENT - Minimal Inventory Control 

1400 items, 16K Level II 
SE - Search Entry Retrieval Program 

Machine Language, 1 2 to 44K ASCI char 
BASICIO - Machine Language I/O for BASIC 

Data and Programs to Tape or Disk 

Please send 

I COMPU-DIET1.2 4JS19 95 SE2.0(tape) ®S24.95 
[ MINIVENT2.0 KS4995 iSE3.0(diSk) 0S49.95 
I Additional Information I BASICI0 1.5 *{S14 95 

Fla. Res. add 4% Sales Tax • Total I 

il Check/Money Order I 'VISA I iMASTERCHAHQE 

Card No.. Exp Date ___________ 

Name . Bank No (MC) 

Addrea8___ - - . - 

its... Information Technology Systems 
POB 2667 Sarasota FL 33578 ... 
(813)366-0064 " 301 

"TRS-80 is a trademark of Radio Shack, a Tandy corporation 
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NEW! 



PENM0D - S19.95. Adapts Disk-Pencil to Radio Shack tower case modification. 
Also adds single page printing and several other new features. 

SCRIPHOD - $14.95. Add TRS232 print driver, or add handshake/ I inefeed 
control to RS-232-C driver in Radio Shack's SCRIPSIT (disk version only). 

WHISTLER: HOME CONTROLLER INTERFACE - $34.95. New hardware product that 
controls lights, appliances, computer peripherals, darkroom timers and other 
115 volt devices anywhere in your house! Software controlled by cassette 
cable. Use with Sears or BSR Home Control System with ultrasonic option. 
Assembled, tested, self-contained, and includes Basic software. 

UTILITIES 

RSB-2: MACHINE LANGUAGE MONITOR FOR 16K TRS-80'S - S26.95 
RSB-2D: THREE VERSIONS OF RSB-2 FOR DISK SYSTEMS - 29.95 
RSB-2 REL0CAT0R: PUT RSH-2/2D ANYWHERE IN BEB0RY - 9.95 

Machine Language monitors with Z-80 disassembler! HEX and ASCII memory 
dumps; EDIT, MOVE, EXCHANGE, VERIFY, FILL, ZERO, TEST, or SEARCH memory, 
read/write SYSTEM tapes, enter BREAKPOINTS, PRINT with TRS232 or Centronics, 
read/write disk sectors directly! RSM-2 tape loads at top of 16K LEVEL I or 
II; RSM-2D disk includes 3 versions for 16K, 32K and 48K. 

DCV-1: CONVERT SYSTEM PROGRAMS TO DISK FILES -$9.95. Execute Adventure, 
Air Raid, RSL-1, ESP-1, T-8UG, etc. from disk, even if they interfere with 
TRSDOS! New version works with TRSDOS 2.3. 

8ASIC-1P: LEVEL-1 BASIC WITH PRINTING! - $19.95. Run any LEVEL-I BASIC 
program on your 16K Level-2. PLUS LPRINT and LLIST with our TRS232 or 
Centronics. Furnished on tape; can be used from disk. 

MACHINE LANGUAGE GAMES 

AIR RAID, BARRICADE or RSL-1: - $10.00 each, all 3 for $25.00 

AIR RAID: A super shooting gallery; our most popular game. Ground based 
missile launcher shoots high speed aircraft! Hours of fun! 

BARRICADE: "BREAKOUT" for the TRS-80! Break through 5 walls with 
high-speed ball and keyboard controlled paddle! 96 different options! 

RSL-1: Enter patterns with repeating keyboard! Save patterns on tape (4 
furnished). Play John Conway's LIFE. FAST - about 1 second per generation! 



SMALL SYSTEM SOFTWARE 



P.O. BOX 366 



NEWBURY PARK, CA 91320 



PROFESSIONAL SOFTWARE 

NEW! ELECTRIC PENCIL-IIB FOR HODEL-II. Super Pencil version runs under 
TRSDOS or CP/M. Automatic centering, dynamic print formatting, single-page 
printing, etc. Buffered keyboard eliminates missed characters at line ends! 
Diablo, NEC, Qume versions include bold face print, variable pitch, 8 more! 
TRSDOS PENCIL: Standard printer - $325; Diablo, NEC, Qume (specify) - $350 
CP/M PENCIL: Standard printer - $275; Diablo, NEC, Qume (specify) - $300 

ELECTRIC PENCIL FOR MODEL-I: TAPE-$99.95, DISK-$1 50.00. Popular video 
editor for creating and saving text files. Prints 'ormatted copy with right 
justification, page titling & numbering, etc. Upper case only, or lower 
case with modification. Reouires at least 16K. 

RSMII: ENHANCED RSM MONITOR FOR THE MODEL-II - $39.95. Relocatable version 
of RSM-2D plus screen editor for modifying either memory or disk sectors in 
both Hex and ASCII, split screen scrolling, and formatted serial or parallel 
printing. Sold on self-booting disk; directions to save as TRSDOS file. 

CP/M OPERATING SYSTEM: MODEL-I - $145.00; MODEL-II - $170.00. The 
8080/Z80 "Software Bus" for TRS-80's. Model-I includes TRS232 and RS-232-C 
software. Model-II supports single and double density disks, and reads 
TRSDOS files. Many uniaue utilities included in both versions! 

PRINTER SUPPORT 

TRS232 PRINTER INTERFACE - $59.95 Assembled & tested printer interface for 
RS232 or 20-mil current loop printers. Expansion interface not required. 
Print from level-II BASIC, CP/M, BASIC-IP, ELECTRIC PENCIL, etc. Standard 
cassette software included. Add $2.00 for shipping. 

TRS232 "FORMATTER" SOFTWARE PACKAGE - $14.95. Adds page and tine length 
control, printer pause, "smart" line termination, etc. to TRS232. 

RSH232: Ados RS-232-C capability to RSM-2/2D monitors - $9.95 
PEN232: RS-232-C for cassette version Electric Pencil - 9.95 
EDT232: TRS232 and RS-232-C for tape version of EDTASM - 9.95 



ESP-1: $29.95. 
LST-1: 8.00. 



OTHER PRODUCTS FOR THE TRS-80 



Assembler, Editor, Monitor (8080 mnemoni 
Listing of Level-1 BASIC with some comme 



CP/M tit 
ee your 



ital Research, Inc. TRS-80 tm Tandy Corp. 
er or order direct. Calif. Residents add 6% tax 



SMALL SYSTEM SOFTWARE 



P.O. BOX 366 



NEWBURY PARK, CA 9132C 
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INTERFACE 



How to connect up a SWTPC printer to your system 

PR-40 Printer Interface 



John W. Hise 
67727 SR 13 
Millersburg IN 46543 

When something with the 
impact of the TRS-80 
comes along— so different in 
physical make-up and software 



requirements from the typical 
hobbyist's S-100 system— it is 
difficult to explore state of the 
art hardware and software with- 
out purchasing a new system. 

Because of all the interest 
generated by the TRS-80 I had 
decided to buy a Level II unit 
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Photo 1. Underside of the connector interface showing wirewrap 
connections. 
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Photo 2. Finished interface cable in its enclosure. 



with 4K of RAM which I have 
since raised to 16K, and the ex- 
pansion interface. With some 
work, I could interface the many 
peripherals I already owned— a 
22-slot IMSAI, a North Star disk 
system, two video terminals, a 
teletype and a PR-40 printer. 

What's Missing? 

One of the first things I 
missed as I began to explore the 
TRS-80 was hardcopy output. 
However, an inexpensive printer 
of non-Radio Shack manufac- 
ture provided a solution. This ar- 
ticle describes the trials and 
tribulations of interfacing the 
SWTPC PR-40 printer to the 
TRS-80. I hope my experience is 
valuable to others who, like 
myself, cannot afford a one to 
2,000 dollar printer. 

Either hardware or software 
can resolve incompatibility be- 
tween an expansion interface 
output port and a printer input 
port. To keep everything simple, 
I would have liked to connect a 
cable from the printer to the 
TRS-80 and seen everything 
take off and run properly just by 
entering LPRINT or LLIST state- 
ments. But it dosen't work that 
way. 

The South West Technical 
Products Corp., or SWTPC (219 
W. Rhapsody, San Antonio, TX 
78216), PR-40 is a five by seven 
dot matrix impact printer that 
prints the 64 character upper- 
case ASCII set. It prints up to 40 
characters per line (as opposed 
to the Radio Shack printer's 132) 



at a rate of 75 lines per minute, 
on readily available 3-7/8" rolls 
of adding machine paper. 

A line is printed when either 
the internal 40 character line 
buffer is full or upon receipt of a 
carriage return. The PR-40 ac- 
cepts data as fast as one char- 
acter per microsecond. All in- 
puts and outputs are TTL com- 
patible and interface via a 12 pin 
nylon connector. 

The signals expected by the 
printer are D0-D6, representing 
ASCII data and an input data 
strobe signal. The printer will 
then send a status signal to the 
TRS-80 when it's time to send 
data. Hardware inside the print- 
er decodes a carriage return, 
ODH, and prints when it is re- 
ceived with data. A line feed is 
automatic whenever a carriage 
return is forced or decoded. 

PR-40 timing is shown in Fig. 
1. All signals represent positive 
logic; + 5 VDC is equivalent to a 
one. 

At point A on the descending 
edge of the signal the printer 
looks at the data, D0-D6, to see if 
a carriage return, ODH, is pres- 
ent. 

At point B on the rising edge 
of the strobe pulse data, D0-D6, 
are parallel loaded into a 
40-character line buffer. At C a 
control character, ODH, has 
been detected. The status 
signal goes low until the car- 
riage return is physically com- 
pleted. At D the status signal re- 
mains low indicating that the 
printer is busy. 
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MARK GORDON COMPUTERS 

A DIVISION OF MARK GORDON ASSOCIATES, INC. 
15 Kenwood Street, Cambridge, Massachusetts 02139, (617) 491-7505 ^270 



SORT-80 

Produced exclusively for 

Mark Gordon Computers by SBSG 

TRS-80* disk files may be sorted and merged using 
SORT-80, the general purpose, machine language, 
sort program. Written in assembly language for 
the Z-80 microprocessor, it can: 

— Sort files one disk in length 

— Sort Direct Access, Sequential Access and 
Basic Sequential Access files 

— Reblock and print records 

— Recontrol files from disk 

— Be executed from DOS 

— Be executed from BASIC 

— Be inserted in the job stream 

— Allow parameter specification 

• input/ output file specification 

• input/ output record size 

• lower/upper record limit 

• print contents of output file 

• input/ output file key specifiers 

The minimum requirement is a 32K TRS-80* Level II 
computer with one disk drive or a single drive 
Model II computer. It will operate on 35.40 and 77 
track drives, and has been tested on TRSDOS 2. 1, 
2.2, 2.3, NEWDOS 2.1, 3.0, and VTOS 3.0.1. It is 
compatible with most machine language printer 
drivers. Sort time is fast; for example, a 32K file will 
sort in approximately 40 seconds. $59. 

PCS 

Program Catalog System from SBSG 

This menu driven system provides the TRS-80* user 
with a computerized method to keep track of all 
programs and data files. The idea is to build 
and maintain on a file a disk detailing each 
program including program name, size, creation 
date, and a brief narrative as to function. Programs 
are provided to: 

— create, update, or display 

— print in disk number order 

— print in alphabetical order 

— print file listing 

— create a file automatically 

With a 32K system you can catalog 150 programs: 
witha48K system you can catalog 300 programs: or 
you can catalog 650 programs without sort. $29 

'TRS-80 is a registered trademark ot Radio Shack, a division ol Tandy Corp. 



InfoBox 

The information manager 

InfoBox is the easiest-to-use information manager 
available for the TRS-80*. It's ideal for keeping track 
of notes to yourself, phone numbers, birthdays, 
inventories, bibliographies, computer programs, 
music tapes, and much more. This fast assembly 
language program lets you enter free-format data, 
variable length items and lets you look up items by 
specifiying a string of characters or words that you 
want to find. You can also edit and delete items. 
Items entered into InfoBox can be written to and 
read from cassette and disk files. All or selected 
items can be printed on a parallel or serial printer. 
InfoBox occupies 3K. Specify cassette or disk 
version. Special introductory price $24.95 until 
lune 15; $29.95 after. 



DBUG+ 



The ultimate monitor/ disassembler 

Compare the features and price of DBUG+ with 
other monitor/disassembler programs. It offers nine 
true, single-byte breakpoints, single step program 
execution, hex and decimal arithmetic including 
multiply and divide and conversions, ASCII dump 
that distinguishes all 256 codes, disassembly to 
screen and printer in full Zilog mnemonics, 
and register set command. It also has 
the usual port I/O, hex and decimal memory dump, 
change, move, copy and exchange memory features 
offered by others. Ideal for the user who wants to 
experiement with assembly language or to write 
subroutines to call from BASIC: essential for the 
serious programmer. Special introductory price 
$24.95 to [une 15: $29.95 after. 



FMS 

File Management System by SBSG 

This menu driven program allows you to define and 
create files for your own use. You can; 

— sort these files in: 

• ascending order 

• descending order 

• on up to 3 seperate fields 

— scan the files 

— summarize any numeric or dollar data fields 

— print the field records 

— create, add to or delete field records 
$49.00 



Model II versions of SBSG software available. Dealer inquiries invited. 



s Reader Service index— see page 194 
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The pinout of the 12-pin con- 
nector, J-4, shown in Fig. 2 is the 
link to the TRS-80. 

Parallel In/Out Port 

The TRS-80 expansion inter- 
face has an eight-bit parallel 
output port. This memory- 
mapped output port that is ad- 
dressed like a software memory 
element, is located at 37E8H, 
14312D. To output to this port, 
an eight-bit byte of data is writ- 
ten to the address. 

Also located at this address is 
a memory-mapped four-bit input 
port. Data is input to this port by 
reading memory location 
37E8H. The four bits of data 
read in D4-D7, are used to in- 
dicate the following: 

D7— printer busy 
D6— printer out of paper 
D5— unit selected? 
D4— fault condition 

Data elements D0-D3 are not 
wired up in hardware and can 
only be input as ones. Of the 
above signals, most applica- 
tions will require only D7 to in- 
dicate if the printer is ready to 
receive data. Inputs D4-D6 must 
be terminated, if not used, to be 
compatible with the Radio 
Shack line printer software 
routine. 

Each time a byte of data is 
sent to memory address 37E8H, 
the MWRITE pulse generates 
the data strobe pulse for the 
printer. The data strobe pulse is 
a one microsecond pulse to 
ground. 

The parallel output port can 
be written to or read from at 
least three different ways. First, 



WAIT PRINTER 



DATA STROBE 



PRINTER STATUS 



INPUT LOW 



READY 
BUSY 



LI 



LI 

-*| h— i/.s 

LI 



W 



v© 



«® 



Fig. 1. PR-40 signal input timing requirements. 



you can write and enter a ma- 
chine language program that 
manipulates memory location 
37E8H. 

A second way uses the BASIC 
statements— POKE to output 
data and PEEK to input data. 
For example, POKE 14312,255 
enters a binary 1111 1111B into 
memory location 37E8H (in reali- 
ty the line printer output port 
latch). Any data, 0-255D, can 
thus be POKEd. 

Similarly, to input this port, 
A=PEEK(14312) returns the 
printer status data, the four up- 
per bits, D4-D7, as the value of A. 
Remember that the lower four 
bits, D0-D3, are not supported in 
hardware and are always input 
as ones. 

The third way to utilize this 
port is via the LLIST and LPRINT 
statements. Enter LLIST and a 
carriage return. The status bits 



Decimal address 


Mnemonic 


Hex code 


Decimal value 


32750 


LDA 


3A 


58 


32751 


E8 


E8 


232 


32752 


37 


37 


55 


32753 


AND n 


E6 


230 


32754 


80 


80 


128 


32755 


JRZ 


28 


40 


32756 


F9 


F9 


249 


32757 


LDA.C 


79 


121 


32758 


LDA 


32 


50 


32759 


E8 


E8 


232 


32760 


37 


37 


55 


32761 


CP 


FE 


254 


32762 


0D 


0D 


13 


32763 


RET NZ 


CO 


192 


32764 


LDA 


32 


50 


32765 


E8 


E8 


232 


32766 


37 


37 


55 


32767 


RET 


C9 


201 


Table 1. Machin 


e language 


code listing 


of software. 



are input at 37E8H and bit D7 is 
checked to see if the printer is 
busy. If not, the status bit D7 will 
be low - indicating the printer is 
ready for data. See Fig. 3. 

If no printer has been hooked 
up, D7 will be high, indicating 
the printer is busy, and the 
TRS-80 will lock up. There is no 
termination provided in the ex- 
pansion interface. 

Fig. 4 shows the connections, 
required by the printer of the ex- 
pansion interface. 

Constructing a Cable 

With the signal timing and 



voltage relationships in hand, 
we can construct cable with the 
34 pin expansion interface con- 
nector on one end and the 12 pin 
PR-40 printer connector on the 
other (Photo 1). 

In order to connect the cables 
easily and keep the printer com- 
patible with my IMSAI, I used the 
16 pin dip header and plug. The 
perforated board also allowed 
me to wire any required hard- 
ware circuit. (See Parts List.) 

To install the 34 pin Alpha 
connector, I carefully attached 
the 34-ribbon wire to the connec- 
tor. I then put the connector into 




1 GND 

2 STATUS 

3 INPUT STROBE 

4 GND 

5 D5 

6 D6 

7 NOT USED BY PR-40 (IS USED IN HARDWARE INTERFACE) 



Fig. 2. Pinout of the PR-40 12 pin designation. 



Quan. 


Description 


Source 


1 


Perforated circuit board 
cat. #276-1379 


Radio Shack 


1 


Mounting box 2ttx5%Xtt 


Radio Shack 


1 


16 pin WW IC socket 


Jameco Electronics 


1 


16 pin WW dip plug w/cover 


Jameco Electronics 


34 


Vector T44 miniwrap terminals 


Jameco Electronics 


6" 


34 conductor cable .1" center 


Jameco Electronics 


1 


Alpha 34 pin connector 


Pioneer Electronics 




part #FCC-170 






Parts List. 
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Please note: Our CRT SCREENS have been purchased by thousands 
of individuals, the Department of the Navy, several government agen- 
cies, and dozens of the country's top corporations and universities. 



• Give your CRT the luminous green characters found on the very expensive 
computer systems. 

• Add a professional look to your system and your programs. 

• Dramatically improved contrast for easier reading and improved graphics. 

We manufacture an optically correct, 1/8" plexiglas" screen that mounts easily 
over the CRT on your video monitor This is a quality accessory that enables your 
TRS-80" monitor to produce the luminous green characters identical to those 
found on expensive terminals. For business applications this means enhanced 
appearance and reduced eye strain, for the hobbyist, graphics are brighter and 
bolder The screen may be easily removed- no modification to monitor. 



Screen for Model I $1 9.95 

A Screen for Model 1 1 ... $24.95 

142 VISA - Mastercharge 

National Tricor, Inc. / 3335 Greenleaf Blvd., Kalamazoo, Ml 49008 / 6 1 6-375-751 ! 



We ship within 
24 hours. 
30-day money 
back guarantee 




THE BLINKING rUR5DR 

MACHINE LANGUAGE ROUTINE 

FOR TRS-B0 16K LEVEL II 
LOADS IN SECONDS FROM CASSETTE 
INTO LESS THAN 1/2K BYTES OF PROTECTED 
MEMORY AND TIES INTO ROM KEY SCANo 

Customize Your Cursors 

select any character or graphics block 

and watch it blink! 

change as often as you like. 

features: 



FAST REPEATING ^- KEY AND SPACE BAR 
INSTANT SWAP WITH RE S I DE NT CURSOR 
UNAFFECTED BYNEW OR RESET 

WORKS IN COMMAND- EOIT- EXECUTE MOOES 
KEY OEBOUNCE 



A System Cassette from Semi soft 



^290 



«t 



>■ 



* 



*g 



"X 



% Computers 
fc Gambling 
\ Magazine 



PRESENTS: 

PROBABILITY 
HANDICAPPING 
DEVICE I 

A 16K BASIC PROGRAM FOR: 

HORSE RACE HANDICAPPINB! 

This amazing program was written by a professional software 
consultant to TRW Space Systems and is being introduced by the 
publishers ot Computers and Gambling Magazine "PHD-1 ' is a 
large complex basic program requiring a full 16K It is carefully 
human factored tor easy use PHD-1 is a comprehensive horse 
racing system tor spotting overlays in thoroughbred sprint races 
(less than 1 mile). You simply sit down with your computer and 
the Racing Form the night before the race and answer 5 or 6 
questions about each horse's past performance Your computer 
then accurately predicts the win probability and odds-line for 
each horse allowing you to spot overlaid horses while at the track. 
The users manual contains a complete explanation of overlay bet- 
ting 

Statistics for thousands of horses were used to develop this 
handicapping system The appendix of the manual contains a 
detailed tab run of a 100 consecutive race system workout show- 
ing an amazing 45% positive return (45« for each $1 00 
wagered) A graph is also included showing PHD-1 s close fit to 
the ideal predicted probability vs actual win percentage curve 

This program features ,' Win probability and odds for each 
horse i ! Verification display of each horse's parameters prior to 
entry for easy error correction I ! Bubble-son routine lor final 
display . Facility for line printer output I . Cassette ARCHIVE 
routine to store PHD- 1 s output for later analysis 1 I Complete 
users manual 

The user's manual may be ordered seperately for your purusal 
lor $7 95 and will be credited if you purchase PHD-1 

PHD-1 User's Manual and 16K Cassette tor; 

Apple II Applesoft, Challenger (Specify Type), 

TRS-801 Level II, Pet $29.95 

Make checks payable to: Ca res add 6% 
^193 JOE COMPUTER 
22713 Ventura Blvd., Suite F, Woodland Hills, CA 91364 

•BE A WINNER: Get on the Computers and Gambling Products 
Magazine mailing list for $3.00 and receive available back issues. . 
t TRS-80 is a registered trademark ot Tandy Corporation 



ROM 

~W<(Shf built V\. (X clou/! 

And you need a good guide to explore 

it. SUPERMAP is an invaluable aid 

in discovering the hidden secrets of 

Level II ROM. SUPERMAP is a long 

detailed and commented memory map of 

ROM routines giving register setups 

for calling them. Reserved RAM is 

revealed along with DOS RAM usage. 

There are notes on the significant 

addresses in the Radio Shack Editor 

/Assembler, TBUG, and the Electric 

Pencil. Tape and 

memory format are 

given too. Learn 

which version of 

Level II ROM you 

have and what the 

differences are. 

All this and more 

for only 

SIX.XCV 
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ion to disk. 
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he directory 
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screen 


ach file and 
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f bytes used 



func- 



Whethe 
language pr 

three types of programming aids: 
and a disassembler. 

DISK-MOD will read in your 
modify it, and write the improved 
will not only allow you to display the 
but gives you the disk space used by 
free granules. DlSK*MOD can display 
by your text buffer and how many remain free 
file from a mounted disk. All cassette operati 
tional. DISK'MOD improves manual scrolling by allowing a full 
fifteen lines of text to be displayed instead of only seven as 
in the original E/A. The 'DEFM' output is altered to 8 bytes 
per line instead of only one. Output to the prin er is paged at 
56 lines per page with optional paper change prompting. The 'B' 
command branches to any address you choose instead of 0000H. The 
symbol table is sorted alphanumerically and output five across. 
You can protect high memory for monitors, drivers, et cetera and 
recover from reboots with your text buffer intact. You can move 
blocks of text which will allow you to keep and use a library of 
subroutines on disk. The global change feature becomes highly 
desirable when you have a disassembler which generates symbolic 
labels. 
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1 a programmer 


needs 


is a ir 


omtor 


to examine, 


modify, 


and 


deb 


g programs. 


TUTIL 


has many 


usefi 


1 features. 
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in ASCII 


and HEX. Output 
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>u can load SYSTEM tapes into 


memory 


execute or 


verify them 


and 


punch out new 


SYSTEM tapes. 


The best part is 


that an 


l/P. 


modi 


:y program for 


tape us 
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also included in 


the TUTIL package. Although r 
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features of 


the DISK 
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u to 


protect 


memory 
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from resets. Since BASIC'S pointers are not destroyed you may 
go back and forth to the E/A without having to reload it or your 
source text. DOTIL has all the above commands plus the ability 
to scroll through a disk drive sector by sector, load and save 
sectors from a buffer and enable/disable interrupts. 



thi 



iemble 



only 



rd tool is 
embles to video or printer 

compatible with E/A. Now yo 
else's code and modify it for your nee 
DISASSEMBLER 1.2 is the symbolic labels 
two pass program produces. DISK*MOD use 
the Z1A19 labels to BASIC, for example, 
lines per page with optional paper Chang 



Fuller Software 

630 E. Springdale 

Grand Prairie, TX 75051 

[214] 642-0441 



^Reader Service index— see page 194 



file may be writte 

DISK*MOD (32K+ DISK) 
DISASSEMBLER 1.2 (16K+) 
DISASSEMBLER 2.0 (32K+ DISK) 
TUTIL (16K, 32K S. 4 8K) 
DUTIL (16K, 32K & 48K DISK) 



ith DISASSEMBLER 2.0 . 



520 
S15 
$20 
$15 
$20 



DISASSEMBLER 1.2 not 

>ut also outputs to tape 
l can take apart someone 
is. The real beauty of 
and equates that this 
■s can easily change all 
Output to printer is 50 
>mpti 
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TIME 
BYTE I BYTE 2 BYTE 3 (0D H ) WAIT PRINTER 



D6 



DATA STROBE |NpuTLOW |J 

PRINTER STATUS ready [~| 



u 



_n_ 



IX 



Fig. 3. TRS-80 signal output specifications and expected status 
signal. 



TRS-80 MONITOR 



STATUS D7 06 05 04 03 02 01 
33 31 29 27 25 23 2 1 19 17 15 13 1 1 9 7 5 


OATA 
00 STROBE 

3 1 




34 32 30 28 26 24 22 20 18 16 14 12 10 8 6 


4 2 
SND 



EXPANSION INTERFACE 



Fig. 4. Circuit card pin designations on expansion interface. 



TRS-80 

EXPANSION 

INTERFACE 



LINE PRINTER 
34 PIN 
CARD EDGE 



<*- 



STROBE "U" 



UNMODIFIED 



(28 I 



21 STATUS 



OM>-^>HX 



2.4, 6.8,10. 
12, 14,16.18, 
20,22,23,24 



e*- 



SWTPC 
PR-40 
PRINTER 



J4-I0 
J4-II 
J4-I2 
J4-8 
J4-9 
J4-5 
J4-6 



-i r READY 
-«- U BUSY 
J4-2 

VZ-T—T STROBE 
^^ J4-3 
-<^- *5VDC 



-«- GND 

J4-I a J4-4 



UNMODIFIED 



Fig. 5. Interface schematic-hardware method. 



a bench vise and completed the 
crimp. 

With a hardware interface the 
PR-40 printer will electrically 
resemble a Radio Shack line 
printer. 

Fig. 5 and the signal timing 
diagrams for the PR-40 and the 
TRS-80 show that the status 
(busy) signal of the PR-40 is the 
opposite of what the TRS-80 ex- 
pects. 

Inverter IC1, wired into the 
status signal, corrects that 
situation and provides the 
TRS-80 software with the ex- 
pected signal. 

This would seem to be all that 
is needed. However, when only 
this is done and the LLIST state- 
ment is utilized, all carriage 
returns in the program listing 
are ignored. Careful study of the 
Radio Shack printer manual and 
the PR-40 circuit description 
finally revealed the problem. 

The PR-40 recognizes control 
codes (like the carriage return) 
on the falling edge of the strobe 
pulse (Fig. 1), while the TRS-80 
data to be output, D0-D7, is not 
valid on the falling edge (Fig. 3). 

However, in Fig. 6 (from the 
Radio Shack printer manual), 
the specifications indicate the 
falling edge of the strobe pulse 
should occur a minimum of one 
microsecond after valid data is 
present on data lines D0-D7. If 
the TRS-80 had output data to 
the printer per its own specifica- 
tions instead of those in Fig. 3, 
there would have been no prob- 
lem. (Alphanumeric data isn't af- 
fected because the printer 
recognizes it one microsecond 
after it is valid on data lines 
D0-D7 on the rising edge of the 
strobe pulse.) But since ODH, a 
carriage return, is a control 
character, it will never show up 
as valid data at the right time 
during the TRS-80 line printer 
output cycle. 

The strobe pulse had to be 
delayed just long enough for 
valid data to exist on lines D0-D7 
before the strobe pulse went to 
ground. I did this by using four 
inverters in series as shown in 
Fig. 5. This was no problem as 
the IC was needed to invert the 
printer status signal anyway. 

I used a 74L04 to provide max- 
imum signal delay per gate- 
about one-half as fast as a 
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THE CQ MP~Cfl5E 




ATTACHE STYLE CASES FOR CARRYING AND PROTECTING THE TRS-80 
COMPUTER. HIGH QUALITY LUGGAGE CONSTRUCTION. ONE CASE FOR 
COMPUTER. EXPANSION UNIT. TAPE RECORDER OR DISK DRIVES. SEC- 
OND CASE FOR MONITOR WITH EXTRA SPACE FOR MODEM OR MINI- 
PRINTER. NEVER A NEED TO REMOVE EQUIPMENT FROM CASE. SIMPLY 
REMOVE COVER. CONNECT POWER AND OPERATE. COVER CAN BE 
REPLACED AND LOCKED FOR SECURITY WITHOUT DISCONNECTING 
CABLES. OPTIONAL RF-MODULATOR CONVERTS ANY TV SET INTO A 
MONITOR MAKING IT UNNECESSARY TO CARRY MONITOR. 

RS20I TRS-80 Computer case S 109 

RS202 TRS-80 Monllor Case 84 

RS203 RF-Modulator 25 

P402 Line Primer II Case 89 

CC90 Malching Allache Case ...75 



cariPUTER case cariPflMv r i99 

5650 INDIAN MOUND CT., COLUMBUS, OHIO l^jg^ 
(614)868-9464 43213 ■■■■ 



ENGINEERING SOFTWARE 

New from SUPERIOR . 
for Structural and Design Engineers! 

STRUCTURAL MATRIX ANALYSIS PROGRAM Calculates mo- 
ments, shears, joint rotation and displacements, and axial forces in 
all members ot a two-dimensional trame. Structural analysis input 
ot joint coordinates, cross section properties tor each member, and 
any number of uniform or point loads on each member. Minimum 

48K. Level II. One disc 49.95 

SECTION PROPERTIES PROGRAM Computes section properties, 
i.e., moments of inertia, section modulus (top, bottom, left, right), 
radius of gyration of built-up members and various shaped indi- 
vidual members. 16K. Level II 14.95 



LEISURE PROGRAMS 

BOWLING SECRETARY Let your computer tally fees, total pins, 
games won/lost, hi-10. hi-30. men and women hi-10. hi-30 scratch 
and handicap, lane assignments with individual data, and next 

week's lanes. 32K, Level II, one disc 14.95 

Life 7.4 A mathematical simulation of cell colony evolution at a rate 
of 95 generations per minute by John Conway Patterns can be 
stored on disc or tape for recall at any time. Program can also be 
slowed to 1/3 normal speed or paused indefinitely for closer inspec- 
tion . 4K. Level II Tape. 5.95. Disc. 6.95 

TUMBLING CARDS Mix mind-challenging math, memory, and 
word skill problems with the fun, competition, and luck of an 
exciting casino-style game ot cards. Pyramid your skills into imagi- 
nary big-money winnings in the winners circle. 
16K, Level II Tape, 8.95. Disc. 10.95 

p"403 _ 

Postage paid 
Missouri resi- 
dents add 4'/2^ 
sales tax. 



+ :+::+: .-+::+: + + :+: + *** + * **###** -■+: :+: -•+: * * :+: # :+: **** * 

* SOFTWARE BY ROBERT M. CHAMBERS * 

* Jfc + * * * + :+: * ** * * * * * * * * * ** + 4l * + * * * :+c * * * * 

VERV REASONABLE PRICES !!!!!!!!!!! 



UPERIOR 
OFTWARE 

INC. 
P.O. BOX 11676 
KANSAS CITY, MO 64138 



Write 
SUPERIOR tor 

information 

about marketing 

your 

SOFTWARE. , 



iiyi 


TEACH YOUR 


111 


CHILDREN 


$5.95 Each— Two For $11.00 


ALPHA- 


—Alphabet recognition for 




pre-schoolers 


SIGMA- 


-Addition problems for 




Grades 1-3 


SIGMA-EX — Addition problems for 




the younger or slower 




learner 


SPE_L- 


-Spelling practice for 




Grades 2-4 


A compute 


r in for more than business or games. 


Level II — Minimum 16K 


LM 


Mercer Systems Inc. 


K 


87 Scooter Lane ^104 


D\ 


Hicksville, N.Y. 1 1801 




nergy 
nservation 
dule 
IRS-80 

up to 30% of the Cost of Your Entire System! 

Temperature measurement at up to four 
indoor or outdoor locations. Controls up to 
four remote devices. Expandable to 255. 

BASIC and Machine Language software 
documentation supplied. Runs in either with 
Level II. Level I and TBUG machine lan- 
guage only. 

Support software frees system to run other 
programs concurrently, updating only when 
changes occur. 

Ready to connect and use. Includes inter- 
face hardware, software documentation, and 
complete instructions. Assembled and tested. 
Under $200.00 

Think Tank Labs ^376 

p.o. box 552 

melbourne, f lorida 32901 

•IRS-80 is definitely noi a trademark of ihe lmerna] Revenue Service. 



RENUMBFR1 


1 -COMPLFTFLY RENUMBERS 




LEVEL II BASIC PROGRAMS. 


APPENDIX 1 1 


-APPENDS LEVEL II BASIC PRO- 




GRAMS TO ROUTINES FROM 




YOUR LIBRARY 


COMPRESS 1 


I -REMOVE SPACES AND 




REMARKS FROM YOUR LEVEL II 




PROGRAMS 


(-AST SORT 


-SORT ARRAYS FAST. LOADED 




FROM BASIC. EASY, EASY. EASY 




TO USE 


MhMDSP 


-DISPLAY CONTENTS OF 




MEMORY 


COPYU 


-COPYSYSTFM TAPES 


: BASIC PROGRAMS 


GAMES 


-OTHELLO, OZONE, CODE- 




BREAKER, SPACE FIGHTERS, 




BASEBALL, CRAZE E EIGHTS, 




STARSHIP LOST AND OTHERS 


TAPE LIBRARY 


-KEEP TRACK OF YOUR TAPES 


DOCUMENT 1 


! -TEXT EDITOR 


WRITE TO: 


ROBERT M. CHAMBERS 




74 STINSON AVE. 




NEPEAN ONTARIO 




CANADA K2H 6N4 






The program, "SSTV", is a slow scan TV pattern generator 
designed to run in a TRS-80 Level II with 16K of HAM. It is a 
machine language program that produces 9 gray-scale and 
checkerboard patterns in addition to test tones of 1200, 1500. 
and 2300 Hz. Each function is called by a single keyboard en- 
try. Its output is directed to the tape "AUX" plug, with the 
resulting audio to be used in a manner similar to that of the tape 
player in your slo-sean station. Just load and run the program, 
connect the tape "AUX" plug to your transmitter or tape' 
recorder and select the desired slo-sean output. 

Cassette & Documentation S35.00 

Cassette. Documentation & Source Listing. . S40.00 
N.Y. Residents add sales tax 

solutions o 

Route 55 ^277 (0 
La Grangeville, New York 12540 




UCSD* System for TRS-80 Model II* 

The most portable operating system now supports FORTRAN. Pascal and/or FORTRAN modules are compiled in universal P-code, so they 
can run on most microprocessors, often without recompiling. Programs execute up to 10 times faster than comparable BASIC programs, and 
use much less memory. Ready to run on TRS-80 Model II (64K). 

FEATURES PLUS, from PCD Systems 



■ Interactive operating system— dynamic 
overlays, disk file handling, run-time sup- 
port and block I/O routines. 

■ Fast, one pass compilers. 

■ Two Editors— one screen oriented for pro- 
gramming and text editing, one character 
oriented for hard copy terminals. 

■ File handler to manipulate disk files. 

■ Macro-assembler that produces code for 
linking with Pascal or Fortran programs. 

■ Linker for link-editing of object and as- 
sembly code modules. 

■ Library of program modules and utilities. 



Disk formatting program to initialize dis- 
kettes in single or double density formats. 

■ Configuration program for serial I/O. 

■ Disk-set program to permit separate as- 
signment of density and format charac- 
teristics for each disk drive. 

DOCUMENTATION 

■ UCSD System Manual (400 pages). 

■ Beginner's Guide To UCSD Pascal. 

■ Pascal User Manual & Report. 

■ Fortran User's Manual with Fortran 
systems. 




PCD Systems, Inc. 

PO Box 143 PennYan, NY 14527 315-536-3734 



PRICES 

■ UCSD System with Pascal Compiler $350 
with Pascal and Fortran Compilers $500 

■ Fortran Compiler alone 

(requires Version II.O) 

■ P-Code Interpreter alone 

(either LSI-11 or Z-80) 
Optional Utility Programs 

■ CP/M* to Pascal file conversion 

■ TRSDOS* to Pascal file conversion 

■ Z-80 Disassembler/Dump program 

ALSO AVAILABLE 

■ UCSD System for MINC* or PDT". 

■ Z-80 Adaptable System (you write BIOS). 

■ UCSD System for CP/M environments. 

PCD Systems is a licensed distributor of the 
UCSD System for Pascal and Fortran. Dealer 
inquiries are invited. 



$ 85 

$ 50 
$ 50 
$ 50 



•Trademark of Ihe Regents of the University of California 'Trademark of Tandy Corporation 'Trademark of Digital Research Trademark of Digital Equipment Corporation 



^96 



^Reader Service index— see page 194 
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PARALLEL DATA 



DATA STROBE 



jl.Oi.SL JIO/.SI 
"*|(MIN)r"" "*|(MIN)f 



,I.O/iS(MIN) 

500^S (MAX) 



Fig. 6. Required timing of the parallel data and strobe pulse. 



regular 7404 inverter. At approxi- 
mately nanoseconds delay per 
gate, the strobe signal is 
delayed .1 to .2 microseconds, 
enough for the PR-40 to act on 
the control characters. 

The IC1 needed + 5VDC, so I 
decided to get it from the PR-40 
via unused pin #7 in the J4 con- 
nector, as shown in Fig. 7. 

The finished cable is shown 
encased in Photo 2. 

Software Interface 

One of the intriguing aspects 
of microprocessors is that there 
are many ways to do any one 
thing. An equally successful 
way to interface the TRS-80/ 
PR-40 is to wire the two units 
together as shown in Fig. 8. 
Note that IC1 is totally eliminat- 
ed by using software. 

The machine language rou- 
tines that actually drive the line- 
printer are found by PEEKing 
memory locations 16422D and 
16423D for the hex address, 
— 058DH. These driver routines 
contain the desired output byte 
in the C register. 

The busy signal from the 
printer must be checked by in- 
putting the status bits at 
memory-mapped location 
37E8H to see if bit D7 is high. If it 
is, the printer is busy and the 
TRS-80 goes into a loop. If bit D7 
is low, the data is written to 
37E8H along with a strobe sig- 
nal to the printer. A carriage 
return signals the completion of 
the printed line. 

By changing the machine 
language driver address at 
16422D and 16423D to some 
other RAM address near the top 
of memory, a new driver routine 
can allow for the inverted busy 
signal and eliminate the strobe 
pulse timing problem. The rapid 
strobe pulse, encountered in the 
hardware interface, can be 
solved by sending two carriage 
returns to the PR40. Though the 
printer always misses the first 



return because of the timing 
problem, the code is latched at 
the output port. The second car- 
riage return now finds stable 
data when the strobe pulse goes 
to ground. 

The assembly language code 
for this line print driver is shown 
in Table 1. Written in Z-80 code, 
it can be located anywhere in 
RAM. Since the end of RAM in 
my 16K system is at decimal 
32767, the 18 byte assembly 
language program, should be 
located in 32750D to 32767D. A 
BASIC program that changes 
the line print driver address to 
RAM locations 32750D to 
32767D is shown in Listing 1. 

Changing line 10 enables 
other TRS-80 RAM configura- 
tions to use the same program. 



5 REM THE PROGRAM STORES R LINEPRINTER 

6 REM OUTPUT ROUTINE IN RAM MEMORY 

7 REM JOHN HISE 8/38/79 

10 M=16.REM =SIZE OF MEMORY IN "K" 

20 N=M*4+63 

30 S=1824*M+16333 

40 PRINT "IN RESPONSE TO MEMORY SIZE?" 

50 PRINT "ENTER: "; S-19; " FOR A "; M; "K S 

YSTEM" 

60 IF S>32767 THEN S=S-65536 

70 POKE 16421/ 2: POKE 16422, 236: POKE 1642 

3,N 

80 FOR X=S-17 TO S 

90 READ Y 

108 POKE X, Y 

118 NEXT 

128 END 

138 DATA 58, 232, 55, 238, 128, 48, 249, 121, 58 

,232,55,254 

148 DATA 13, 192, 58, 232, 55, 281 

Program Listing 1. BASIC program for software interface. 




BEADY HIGH IS 
8USY LOW 
TO TRS-80 



4CTER. CARRIAGE RETURN OECODED ON NEGATIVE GOING EDGE 



Fig. 7. PR-40 schematic showing signal inputs and outputs. 
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4K system use 10M =4 

16K system use 10M = 16 

32K system use 10M = 32 

48K system use 10M = 48 

Enter the following, ap- 
propriate to your memory size, 
after power up: 

4K system enter 20460 

16K system enter 32748 

32K system enter 49132 

48K system enter 65516 

The system is now ready for 
the LLIST and LPRINT com- 
mands. When outputting con- 
trol codes to the printer via 
CHR$ ( ) or POKE, all are ignored 
except 10D and 13D. To manual- 
ly force a carriage return enter 
either LPRINT or POKE 
14312,13. CHR$(10) or CHR$(13) 
imbedded in the LPRINT state- 
ment forces a carriage return/ 
line feed within the statement in 
addition to the one at the end of 
the statement. For example if 
A = 2and B = 3: 



LPRINT A;CHR$(13);B;CHR$(13); 
"TOTAL A + B= ";A + B 



TRS-80 

EXPANSION 

INTERFACE 


PIN DIP 
SOCKET 




, S 00 


10 




, 5 01 


II 


< 




.7 02 


12 




/ 9 D3 


6 


( 
( 
( 
( 
( 

( 


LINE PRINTER 
34 PIN 


.11 D4 


9 


CARD EDGE 


, 13 D5 


5 




, 15 D6 


6 




,17 07 


13 


READY -, r 
BUSY u 


, 21 STATUS 


2 


DATA 
, 1 STROBE 


3 




2.4,6.8. 10. 

12.14, 16. 18. 

, 20. 22, 23.24 


1 












STATUS- SOFTWARE 
MODIFIED 









16 

PIN DIP 

PLUG 



Fig. 8. Interface schematic-software method. 



SWTPC 
PR- 40 
PRINTER 



<<Ji<i J4-I0 
«^- J4-II 
«-2£ J4-IZ 
«J£ J4-8 
«*! J4-9 
«*£ J4-B 
«^ J4-6 



<<- U BUSY 
J4-2 



./£_T_T STROBE 
J4-3 



■<£- GND 

J4-I 8 J4-4 

UNMODIFIED 



The following would be output 
on the line printer when ENTER 
is depressed: 




Total A + B = 5 ■ 
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HERE'S H0WI 1. Input data to secretary 
2. Into computer 3. Printout back to me. 

PRESTO! Subdivision calcs in 1/2 the time 
of a programmable calculator. 

OUR MICROCOMPUTER SOFTWARE DOES: 

■ TRAVERSE GEOMETRY 

■ COORDINATE GEOMETRY 

■ PROFILE GRADES 

■ RADIAL STAKEOUT 

■ CIRCULAR CURVE GEOMETRY 

■ CIRCULAR CURVE STAKEOUT 

06VELOPED AND SUPPORTED BY ANDREW 
MACHEN REGISTERED CIVL ENGINEER. 



Complete Program Package 
With Instruction Manual 




Cal or write for FREE INFORMATION PACKET (714) 755-4033 
143c So. CEDROS.SOLANA BEACH CA. 92075 



NOBODY CAN MATCH OUR 
DOLLAR/QUALITY RATIO! 

MS-204 PRINTER 

INTRODUCTORY PRICE: wM 



^16 




$795 

CABLE: $34.50 

Compatible with TRS-80, Apple, Pet 
or any other Centronics-type system 

Features 

• 132/80 Columns, 63 LPM, Bi-Directional, Nominal Thruput 

• 100% Heavy Duty Cycle- High Reliability, 100 Million Character 
Print Head Life 

• Sprocket Feed; Variable Forms Width, 2.5" - 9.5" 

• Double Width Characters: 40,66 Characters per line 

• 9 x 7 Dot Matrix Character Font 

• 6-Channel Electronic Vertical Format Unit 

• Documentation Included 

Ask about our 8-inch Drives & Software 



M 



ATCHLESS 

YSTEMS 



1 8444 S. Broadway 
Gardena, CA 90248 
(213) 327-1010 

© 1980 Matchless Systems & MarketPlan 



■Reader Service index— see page 194 
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UTILITY 



An electronic video worksheet. 



The Graphics Coder 



7 CLEAR 

10 DIMC(200),D(200),S(200) 

20 Y=15360:A=0:F-0 

30 CLS 

40 POKEY+A,45:B=A:B=A:PRINT@960,A;B; 

50 AS=INKEYS 

60 IFA$=""THENGOTO50ELSE200 

100 F=F+1:C(F)=G:D(F)=Y+A:S(F)=A 

110 CLS 

120 F0RBA=1T0F: POKED (BA) ,C(BA) 

130 NEXTBA 

140 POKEY+A+1,45:A=A+1:GOSUB1000:PRINT@960,CHR$(30) ; :PRINT@960 ,A; 

B; :GOTO50 
150 CLS:PRINT"THESE POKE LOCATIONS AND GRAPHIC CODES WERE USED:" 
160 PRINTTAB(5) "POKE LOCATION" ;TAB{25 ) "GRAPHIC CODE" ;TAB (45) "PRIN 

T LOCATION" 
17 FORT=lTOF 

180 PRINTTAB(10)D(T) ;TAB(30)C(T) ;TAB( 50 ) S (T) 
185 E=E+1:IFE=14THENINPUT"PRESS ENTER TO CONTINUE" ; B$ : E=0 
190 NEXTT:GOTO600 

200 IFASC(A$)=9THENA=A+1:GOSUB1000:IFA>1023THENGOTO500ELSEPOKEY+A 
-1,32:POKEY+A,45:PRINT@960,CHR$(30) ; : PRINT8960 , A;B; :GOTO50 

210 IFASC(AS)=10THENA=A+64:GOSUB1000:IFA>1023THENGOTO500ELSEPOKEY 
+A-6 4,32:POKEY+A,45:PRINT@960,CHR$(30) ; : PRINT@960 ,A;B; :GOT05 



220 

225 
230 

235 
240 

250 
260 
270 
500 

510 

600 
610 
620 
650 
655 
660 

1001 
101t 
1028 
1506 
1516 
1526 
1536 

1546 
170e 
1710 
1720 
1730 
1806 
18ie 
1826 



IFASC(A$)=91THENA=A-64:GOSUB1000:IFA<0THENGOTO500ELSEPOKEY+A+ 
64,32:POKEY+A,45:PRINT@960,CHR$(30) ; : PRINT8960 ,A;B; :GOTO50 

IFAS=CHRS(6 8)THENGOTO1700 

IFASC (A$) =8THENA=A-1 :GOSUB1000 : IFA<0THENGOTO500ELSEPOKEY+A+1 , 
32:POKEY+A,45:PRINT@960,CHR$(30) ; :PRINT@960 , A;B; :GOTO50 

IFAS=CHRS(82)THENGOTO180 

IFA$=CHR$(32)THENIFA>880THENPRINT@256, " " ; : INPUT"CODE" ;G:GOT01 
500 

IFA$=CHR$(32)THENPRINT@896,"";:INPUT"CODE";G:GOTO1500 

IFAS=CHRS ( 81 ) THENGOTO150 

GOTO 50 

CLS:PRINTCHRS(23) : PRINT@512 , "THAT POSITION IS NOT" : PRINT"ON T 

HE SCREEN" 
FORX=1TO1000:NEXTX:A=0:GOTO110 

INPUT"DO YOU WISH TO DO MORE GRAPHICS" ;QS 

IFLEFTS (QS, 1 ) ="Y"THENGOTO650 

STOP 

INPUT'DO YOU WISH TO CLEAR THE RESIDENT GRAPHICS" ;QS 

IFLEFTS (QS,l)="Y"THENGOT07 

GOTO110 
) B=A 

) IFA>63THENH=INT(A/64) :B=A-(64*H) 
I RETURN 
I FORT=lTOF 

I IFD(T)=Y+ATHENGOTO1540 
I NEXTT 
I GOTO100 

I C(T)=G:CLS:GOTO120 
i FORT=lTOF 

I IFD(T)=Y+ATHENC(T)=32:GOTO110 
I NEXTT 
I GOTO110 
I A=D(F)-Y 
I IFA<0THENA=0 
I CLS:GOTO120 



Program Listing. 



U. F. Racine 

2520 S.E. Alexander Drive 

Topeka, KS 66605 



When programming on the 
TRS-80, I utilize graphics 
as often as possible. 

However, when displaying an 
outline map of the U.S. or a 
Lunar Lander with string or 
POKE graphics, I am faced with 
the task of assembling strings 
or computing the proper POKE 
locations. Whenever I am work- 
ing on a display, I find myself 
shuffling several pieces of pa- 
per, a video display worksheet, a 
scratch pad and a sheet with 
POKE locations. 

Finally, I let my TRS-80 do the 
work for me. After all, that is 
what computers are designed to 
do! 

I call the following program 
Graphics Coder. It's a video 
display worksheet. While it still 
requires a hand listing, unless 
you have a printer, it speeds up 
the development of graphic dis- 
plays. 

Cursor and Pseudo Cursor 

The program uses the — and 
*- cursor keys and the upward 
linefeed t and downward line- 
feed I to position the pseudo 
cursor. When the program runs, 



the pseudo cursor is initially 
located at the home position, 
0,0. At the bottom of .the screen, 
print location 960, the current 
print location and tab number of 
the pseudo cursor are dis- 
played. 

INKEY$ directs the cursor 
and edit functions. When the ap- 
propriate arrow key is pressed, 
the cursor moves one print posi- 
tion left or right, up or down. 

When the cursor is in the loca- 
tion where you wish to place a 
graphic character, depress the 
space bar. The program then 
prompts the user to enter the ap- 
propriate graphic code. For in- 
stance, if you enter 191, the en- 
tire graphic block at that print 
location is turned on. 

While I wrote the program to 
accept code-based TRS-80 
graphics, you can enter and dis- 
play any ASCII code. Both text 
and graphics can be assembled. 

The ASCII codes are found in 
section C/2 of the TRS-80 Level II 
User's Manual. If you are not 
familiar with TRS-80 graphics 
codes, refer to the book In- 
troduction to TRS-80 Graphics 
by Don Inman (dilithium Press, 
1979). 

Conversion 

You will need to convert from 
hexadecimal to decimal. Begin- 
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ning with the first character, 
number from 129 to 191. An 
alternative source of informa- 
tion can be found in William L 
Colsher's article "Getting the 
Most out of Your TRS-80" in the 
July, 1979 issue of Microcom- 
puting. The characters are 
printed, but in a much smaller 
version. 

Once the code is entered, the 
program clears the screen and 
displays all the code stored to 
that point. The cursor is also 
moved one position to the right. 

The program has two editing 
features. Firstly, if you enter the 
wrong code or want to change 
the code in a location, return the 
cursor to that location, press the 
space bar and enter the new 
code. The program changes the 
code for that location. 

Secondly, if you wish to de- 
lete a character and not replace 
it with another code, return the 
cursor to that position and press 
the D key. The program sub- 
stitutes a space for that code 
(CHR$(32)(). 

After editing the display, reset 



it by hitting the R key. This func- 
tion clears the video display, 
prints all the characters stored 
and places the cursor one posi- 
tion to the right of the last print 
location containing a character. 

At any point during the pro- 
gram run, the print locations, 
graphic or ACSII codes and tab 
locations can be displayed in 
blocks of 14 by pressing the Q 
key. It is then a simple matter 
either to write down the informa- 
tion or print it out. 

After listing the display data 
currently stored, the program 
asks the user if he wishes to 
continue. If the input is yes, the 
user can retain the stored code 
or begin a new display. 

The program can be modified 
to include the line number, if it is 
necessary: 

20Y= 15360: A = 0:H = 1 

1010 IF A>63 THEN H = INT(A/64): 

B = A-(64*H): H = H + 1 

Add H to the print statements 
in lines 40, 140, 200, 210, 220, 
and 230. The lines should read: 
PRINT@960,A;B;H;:GOTO. ■ 



SO 



microcomputing 



DIKD€RS 

order 

yours 

todof 




Keep your library of 80 Microcomputing safe from loss 
or damage in these handsomely appointed binders with 
rich dark green covers and gold lettering. Each binder 
holds 12 issues making an EXCELLENT REFERENCE HAND- 
BOOK. Several binders form a quality library you can be 
proud of. 

$7.50 each. . .3 for $21.75. . . 6 for $42.00. . . 
Postage paid in USA. Foreign orders please include $2.50 for postage 

Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 



Allow 6-fl weeks for delivery. 



Please no C.O.D. orders, no phone orders. 



AJE.M. 
Computer Services 

Now Offers: 

Osborne© Extended 

Osborne Basic Accounting System 
integrated with invoicing, 
insurance, inventory, etc. 

Installation & Training 
Manual 

Pamela Donovan with her years 

o( training experience guides you 

through this important phase. 

$20.00 

Special Introductory 
Package for 
TRS 80 Model II © 

• CBASIC Osborne General Ledger 

• CBASIC c Osborne c Accounts Payable Receivable 

• CBASIC A.E.M.'s Integrated Invoicing 
»CBASIC* Osborne* Payroll 

• Training Manual 
»Demo Disc 

• Accounting Manuals 

all lor $850.00 
uses lifeboat CP/M<SJ 

Osborne Programs $ 195.00/ ea. 
A.E.M.'s Integrated Invoicing $250.00 
CBASIC c CP M° Together $250,00 
Accounting Manuals $20.00 ea. 





A.E.M. ^368 

2930 E. Northern Ave. 
Phoenix, AZ 85028 
Phone (602) 992-8382 



AT LAST 



WILL-O-SCREEN 

The $1 .98 color display screen 
for your TRS-80®(model I or II) 

If you spend any time at all in tront 
of your video display, you need this 
wonderful attachment. 

■ reduces eye strain & fatigue 

■ decreases glare 

■ non-electronic 

■ removable 

■ adds "zip" to your graphics 

■ will not mar surface 
or void guarantee 

■ adds a "professional" look 
to your computer 

■ flips up 

■ mounts in seconds 

■ reduces screen contrast 

■ monitor controls unaffected 

■ no tools required 

■ money back guarantee 

Your eyes are worth it! 

■ State color: 

red, gold, green, blue, amber 

$ 1 .98 each or all 5 colors for $8.88 

■ Send check or M.O. to: 



WILL-O-SCREEN 

Williams Enterprises 

3101 Cheverly Ave. 

.Cheverly.MD 20785. 



^314 



) trademark of Radio Shack Div ot Tandy Corp 



QUALITY TRS-80 SOFTWARE 



KEYWORD Indexing System 

A scries of programs that will create a data file on disc, build an 

Index of all occurrences of "Keywords" In the text of the data tile 

and allow Inquiries or searches Into the flic using the Indexed 

keywords. The system features! 

■flexible record lengths with location pointers 

■deletion of non keywords from Index hy system 

•"and" "or" "not" logic for Inquiries 

• Interface for user written Inquiries 

KEYWORD INDEX— 2 disc J2K DOS system $39.95 

SORTS for HOME and BUSINESS 

No computer user should be without a vmatlle.easy to use sort 
program. The Northeast Mlcroware In memory sort programs are 
written In Level II BASIC and have the following features^ 
•Sort ALPHA or NUMERIC data 

• Sort on up to 5 fields simultaneously 
•In ascending or descending sequence 
•Supports kh. video or tape I/O 

•Supports scq. disk and printer I (SORT IID) 

•Supports user I/O routines 

•User exits (SORT IID only) 

S0RTII-I6K Level II In memory sort $ 1 9.95 

SORT IID— J2K DOS In memory sort $29.95 

FOR the SERIOUS GAMBLER 
BLACKJACK SIMLLATOR. Allows you to simulate (he playing of 
thousands of hands of 111 and analyze the results on tape In Level 
II BASIC. $19.95 

Manuals for all programs available for $3.00 ea. 
(price deductible on purchase of program) 

"TRS-80 is a registered trademark of TANDY CORP." 

( c Wrthea S tc7VlICROWAR£) 

BOX 2133, W4 
BOSTON, MA. 02106 



•^Reader Service index — see page 194 
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WE MEAN BUSINESS! 

BUSINESS SOFTWARE, THAT IS 



TRS-80 



USE YOUR 
FOR MORE 
THAN FUN AND GAMES 



THE DATA DCJBBER $49.95 

Duplicates any program tape to TRS-80 quality. Recon- 
structs date pulses to ensure accurate CLOADs. Permits 
easy loading of even poor quality commercial tapes with- 
out constant volume adjusting. Money-back guarantee if 
not satisfied. 



THE ELECTRIC SECRETARY $75.00 

A powerful word processor to turn your TRS-80 into an 
automatic typewriter Features page numbering, movable 
margins, headers, variable page length, and title centering. 
Enter text, revise, correct, and output to printer page for 
matted, justified, even hyphenated as required Cross- 
coupling files permits individually addressed form letters. 
Complete with upper; lower case conversion information 
on diskette. Specify if RS-232 adapter is installed in 
interface. 

MAILROOM PLUS $75.00 

A versatile and powerful mailing program to print labels 
by sequential coding: zip, city, state, customer ID code, 
even last name. Sorts by any code in minutes and stores 
sequentially in a single string (approx. 1500 records per 
diskette). Includes ACJTOPRINT Supplied on diskette 

MINIMAIL $50.00 

A compact version of MAILROOM PLUS but without 
customer coding. Features alpha-lookahead for dupli- 
cates. Supplied on diskette. 

FORMLET $35.00 

Generates form letters from MINIMAIL. records. Prepare 
your letter, bulletin, notice, advertisement, etc , then load 
the MINIMAIL files. Your printer will print the inside 
address, letter, and repeat for each name in the file— all 
properly spaced and justified. Supplied on cassette. 

AUTOBOOT $15.00 

Simplifies automatic BASIC program loading from your 
DOS Permits sequencing through your choice of DOS 
commands, selects files and memory size you specify, and 
loads or runs selected program. Allows user to see direc- 
tory and free space before program runs automatically 
Supplied on cassette. 

SIR ECHO $10.00 

A handy program to make your printer work like an 
electric typewriter. Use alone or merge with your programs 
to make what appears on the screen echo to the printer. 
Supplied on cassette. 

TELEFON $20.00 

Make your TRS-80 a smart terminal. Communicate with 
time-share and other computers, bulletin boards, etc. 
Transfer programs over the phone. For disk systems with 
modem. 

UPPER/LOWER CASE CONVERSION $20.00 

Reprint of KILOBAUD article explaining how to modify the 
TRS-80 to display both upper and lower case characters. Kit 
contains step-by-step instructions, parts, and necessary soft- 
ware on cassette for case reversal, echo, and automatic line 
feed routines 



User group discounts available 
Dealer inquiries invited 



•TRS-80 is a trademark of the Tandy Corp 



TERMS Check, money or- 
der, Visa. Mastercharge 
Washington residents add 
5 3% for tax. 



THE PERIPHERAL PEOPLE 

RO.Box524,Dep't.M 
Mercer Island, WA 98040 

* ^43 (206)232-4505 



MODEL II SOFTWARE 

HOST 

HOST allows you complete control of your Model II 
system from a remote location. HOST will allow you 
to perform any Model II function as though you were 
actually sitting at the Keyboard, yet still allows the 
Model II to operate normally. With HOST you can 
send and receive programs, data files, access disk 
and printer. Just connect your Model II via telephone 
or direct line, to any standard terminal. You can even 
use a second Model II or a Model I as terminal! HOST 
gives you the power of a second computer system 
for only $139.°° 

SPRINT 

SPRINT adds a screen print command to your 
Model II. The contents of the screen will be sent to 
your printer at the press of a key, or by software con- 
trol SPRINT is loaded in via DOS. and remains in 
the system, letting you print out in DOS, or BASIC 
SPRINT requires no modification to your programs. 
Only $19.95 

Order now from: COMPU-SERVICES 

P.O. Box 324 
Somerset, MA 0272b 
^363 
TERMS Cash or Money Order. Personal checks require 
3 weeks processing time. Add $2.00 for postage and 
shipping Mass. residents add 5°/o Sales Tax 



NEW FROM 



[ MAXELL* or BDy§an ] 

P A 

I H— i 

T 8" SINGLE SIDE u 

R DOUBLE DENSITY Box of 10 tor $60 E 

§ 8 DOUBLE SIDE R 

8 DOUBLE DENSITY Box of 10 tor $ 70 A 

3 V MINI Bo. of 10 tor i 50 £ 

f DYSAN* DISKS H 

q 5 V MINI Boxo»B(or$25 M 

M (Specify -8" Soft or Hard S*ctor/5" Soft or Hard Sactor) A 

I -. 

A C.O.D.- (1.O0 Additional £} 

L 238 EXCHANGE STREET M 

J CHICOPEE, MA. 01013 f. 

A N 

• 413-592-4761 £ 

R O 

j established 1960 - cloaad mondayt | 
^■fl ATARI BBBBBBBl TI/99-4 ■■■■■ PET MaV 



96 CHfiF. PER LINE. fiBCDEFGHIJKLt1N0PQR?Ti.iui,i:<YrC- - ]'.'abcd«f»Ki / 



BllSE I I 

<Th» G 



hie Lin* Pt 



p, 64, 72. SO. 96. 120. Md 132 CKmetin ri 

z imctor ran - hjxiliupy owncra? font 



Exrtnti 


mi Interact 


Ittn Uith 


VitKout 


Kodtl 800 KST K99.00 


•699.00 


Priittr/Uttrtact Ciblt MO. 00 




rfodifitd RH>I0 SHACK Line Printer II 




Inttrrtct C*l». 


WO. 00 


TOTAL J739.00 


1789.00 


OUR PRICE *710.00 


*7"30 . 00 


NOTE : TH I S EMT I RE flD Hfl: 


BEEN 


CRERTED OH THE Bfi! 


:E II 


LINE PRINTER. 





ji RUS ftUDIO/UIDEO SYSTEMS V 367 

f 2485 Rutumnual • Or. £ 

San Jose, CO 95132 I 

„ PH. 4 08-946-1265 „ 

<C OS 

132 CH*. PES LI*. (eaffO^IJ^U«KKTlJUIXYZt^r. , *C(i.f^hii^ll.no«rsluw«-<:>~I 




AUDEX 

SOUND EXPERIMENTER 

For TRS-80 Level II, 16K 



Gives you complete access to sounds, 
using multiple indexed routines. Jump 
to any of them instantly. Each sets up 
the parameters for a specific sound cat- 
egory. You input a few codes-hear the 
result immediately. Write the created 
sounds into your own programs, or add 
them to existing software. 

Needs RS 277-1008 ($10.95 from Radio 
Shack) or equivalent mini speaker /amp. 
Easy instructions are part of A UDEX. 

CASSETTE, $9.95 

Florida residents add 4% sales tax 
ORDER TODAY FROM 




Suite 406, 537 S. Sequoia Drive 
West Palm Beach, FL 33409 «^ 217 



•TRS-ao LVI 

% STAT-BALL % 
Baseball Simulation 




% STAT-BALL % is not an arcade lype game, bul a 
comprehensive, 3 part statistical baseball simulation 
package thai uses real life pitcher and bailer statistics lo 
simulate game play. 

During the game, 12 performance categories are 
computed and displayed tor batters, 10 lor pitchers. These 
slats reflect the player's game performance and will follow 
closely a player's actual ability. Slats may be viewed on a 
per game basis or kepi lor many games 

Agonize when your best power hitler drops a rouline 
fly. feel the thrill ot victory when he hit's a deep fly over Ihe 
wall. All action is described as il happens to add tension and 
excilemenl to this engrossing game. 

YOU'RE THE MANAGER! Select your own lineup, 
make all types of substitutions, call your own strategy and 
live with n 1 ! Play modern, old timer, or mixed teams. 

This package consists of 3 programs: 

(1) GAME 

(2) RECORDS (Sorts up lo 150 players 

inio 14 categories based 
on relative performance. 

(3) WORKUP/EDIT (Establish, edit, or mix 

players) 

Features include: 

• Solilare or head lo head compelelion 

• Baiters ability ratings include bunting. 

running, and errors. 

• Pilcher tiring lactor 

• 3 offensive and defensive strategy 

options. 

• Full 25 man rosters 

• Printer option (32 chr/ln or more) 

• Top quality tape 

• Deiailed instructions 

• FREE 79 Pirates and Orioles lor series 

replay 

For prompt, 1st class delivery send 
$25.00 check or money order lo: 



J. L.S. SOFTWARE 

P.O. Box 10385 

Chicago. Illinois 60610 



^•315 



(We pay shipping and handling) 
(•Trademark, TANDY CORP.) 
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DISASSEMBLED HANDBOOK 
FOR TRS-80 

VOLUME 1— $10. POSTPAID 

Using ROM Calls in assembly language programming 
Self-programmed learning course — 10 Chapters 
All BASIC ROM Calls— ROM ancillary functions 
CINT, CSNG & CDBL arith/trig/log/etc. demo pgms 

VOLUME 2— $15. POSTPAID 
Advanced assembly language course— 13 Chapters 
Storing video in MEM for later use & recall 
Split-screen video with scroll/store/recall 
Decoding single & double precision numbers 

COMMENTS 

COMPUTER INFORMATION EXCHANGE— ship 100 

Vol.2 

George Blank— Vol. I good intro. to ROM CALLs 

SOFTSIDE— will reprint 3000 copies of Vol. I 

Allan Moluf — I especially recommend this book 

S-80 BULLETIN— A must for every 80 bookshelf 

Charles Butler— most informative and accurate 

INTERFACE— save you I year's assy. lang. study 

Joni Kosloski— we sold over 500 first 30 days 

THE ALTERNATE SOURCE— std. text for using ROM 

Miller Microcomputing — ship us a canon ASAP 

CHICATRUG — ship us another carton via Air Mail 

Bill McLaughlin — ship another 300 air freight 

RICHCRA FT ENGINEERING L TD. " 276 

Drawer 1065, Wahmeda Industrial Park 
Chautauqua, New York 14722 
phone (716) 753-2654 for COD orders 



68 Dysan 

wfCORPORATION 



Solve your dtec probtcma, buy 100% surface 
tested Dyaan dtattettee All orders shipped 
from stock, wtthsn 24 hours. Call toll FREE 
(800) 235-4137 for prices and InfarmatlorL 
VW* and Master Card accepted. All orders 
sent postage patd 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (In Cal call 
(805) 543-1037 




SORTFILE. A PROFESSIONAL SORT . . . 



* BASIC program with assembler routines 

* Internal sort time of 4 seconds 
for 500 multi-keyed items 

* Any combination of data types and 
ascend-descend directions for keys 

* Six output options: 

a) New data file 

b) New data file with selected 
and/or rearranged data fields 

c) Tag file (keys + record pointers) 

d) Pointer file (record pointers only) 

e) Data records displayed on screen 

f) Data records printed on printer 

* Runs with 1 disk and 16K memory 

* Sorts files too large for memory 

* Free "SEEFILE" utility included 

. . . at, CJ- K*rvCu*t ^AictJ 

Diskette: $23.95 

Cassette: $19.95 ^399 

Documentation: S3. 00 (refundable) 

SOFTWARE EFFICIENCY 



7800 Stanford Ave. St. Louis, MO 63130 



Ask Your Dealer For 

ABACUS® 

software ^311 

MAILLIST - 29.95 

TAPECOPY 79.80 

TEXT EDITOR 69.95 

IN VEN TORY 29.95 

FILE SORTER 24.95 

PROGRAM EDITOR 79.80 

LOWER CASE KIT 24.95 

Prices may vary with 
dealers. For Catalog 
write or call below: 

P.O. Box 77 

E. Greenbush, N.Y. 12061 

checks, mastercharge, visa OK 
(518)477-8222 




TORY 



BREAK THROUGH TO NEW DIMENSIONS 
IN INTERGALACTIC WARFARE ! $19.95 

• UNIQUE DISPLAY sptoscreen gives. each 

player a private display. 

• INTELLIGENT OPPONENT P* V%* stall against 

another human!! 

ACTION SOUNDS* GRAPHICS explosions, 
weapons, ere 

• FLEET BATTLE CRAFT "^seeko^eWSP 

evil enemy patrols. 

• CHALLENGING "^ uer ir"9,JP e galaxy 
*»<> n*. ■ a «*.^ rec J u,res bold strategy! 
TRS 80 L2 16K REQUIRED. For cassette 
and instructions send check or money order. 

•POBoj 660595 
» MIAMI FL 33156 



»^225 




SOFTWARE fo, ,he TBS -ALT 



SiS0'ftac3.««rir.Ciiit.nMic(«i,B» 




1;400 crrarac 



Vo 



.speed, .arid Whether or not the phrase shows on -»e sew" . i< so the 
Tettel being skiiihi) is mqtilighted. ST&95 

TIC-TACTOE-2.2 » 
,Th(s game not-only hola\ you.- interest, it won't give It back.Oc-: 
casionaltv it makes a '.vrong move and you need to be'rftgdv.. Set 
.youf ofyfi Vme tiro't for thinking; ii you're too stow you wilt loose a 



tun 



(Jar- 



vl.-.'.n. 



nay > 



it a challenging gs 

BANJO PLAYER 1.6 • : 

Leatrj. to chord the banjo by pi* 



■ray i 



. Thii 



$6.58 : 



1 119 ( 



iny itsngDtfi' I 
, song you wanfc A .graphic banjo, nock is disolayed on your CRT 

with the timins. S14.9B . 

FORM 007 ■. : » __. - ....... . ■,' .;. 

Thls'idr'rn.n on clear plastic. It is a CRT worksheet that comes with'-, 
'in 1%'of matching :ho 1?" screen grap.Vcs f ■„:'. my location on the 
screen by: The set <«.») Nos. The prinr S>-"«. No S . In hex oV dec 
the POKE ......... and PEEK (.-.-) Nos Also on the side is a 

chart to cfetine any combination ot the si* parr block used'in POKE-. 
ing graphics. - - •'..'•: . ■ ~ -SJ.95 



EI^JDY COMPUTER PROGRAMS 



P Q Q D BQX 1535 



GQlETR Cfl 33017 



Tandy Cup';'.,. :,.n 



m 



MicroMint 

presents 

COMM-80! 

The TRS-80 I/O 
solution. 




The COMM-80 is the only interface you 
need to turn your TRS-80 Level I or II 
into a timesharing terminal with provi- 
sions for a printer. The COMM-80 
combines the most used features of the 
RS expansion interface in a low cost 
unit containing a built-in RS-232-C inter- 
face (50-19,200 baud software select- 
able), a full 8 bit parallel port (34 pin 
edge card Centronics compatible) and a 
TRS-BUS connector for future, expansion. 
Up to 16 units can be chained together 
and addressed separately. Interface 
your TRS-80 to all standard RS-232-C de- 
vices including modems, CRT Terminals, 
printers and other computers. Smart 
terminal software 
(will run in 4K) 
is included at no 
extra cost. 




COMM-80 



Assembled and tested .. . $179.95 

Includes case, power supply, ribbon 
cable, parallel printer port, serial 
port and TRS-BUS connector plus 
smart terminal software (please specify 
Level I or II). 

NY residents add 7% sales tax. 

As featured in: 

"I/O Expansion for the TRS-80' 

BYTE, June 1980 



To order call (51 6) 374-6793 
or write: The MicroMint Inc. 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries invited. 



TRS-80 is trademark ol Tandy Corp. 



1^-310 




THE INTERFACE CONNECTION 



^Reader Service index — see page 194 
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UTILITY 



Keep your files safe with this simple utility. 

Disk File Protection 



Dan Keen 

and 

Dave Dischert 

RD 1, Box 432 

State Highway 83 

Cape May Court House, NJ 

08210 



One of the problems with 
TRSDOS version 2.1 is the 
frequent overwrite on disks. 
Radio Shack has since released 
a new version, 2.2, and this prob- 
lem appears to be solved. . 

But for those very critical 
times when you want to leave 
nothing to chance, structure 
your programs around this con- 
trol routine and put your mind at 
ease. 

Using the Program 

The routine uses a sequential 
file to tell the computer where to 
put the random file information. 
The sequential file keeps track 
of where the last random file 
data is where new material will 
be put on disk. There is never 
any overwrite. 



e clearsoo 

5 REM * TEST PROGRAM FOR USING SEQUENTIAL AND RANDOM FILES 

10 ONERRORGOTO1000 

20 OPEN" I ", 2, " INDEX" : INPUTS, RX, SRX : CLOSE 

30 ONERRORGOTOO 

40 0PEN"R",1, "FILENAME" : FORX=0TO4 : FIELD1.. X*50 AS PHS'.XX. SB 
AS fl*00 :NEXT 

50 I F < SR.-:=0 .' AND (. RK«>1 > GOT O10O 

60 I FSR.--J-K0 THENCE Tl, RK-1 : B*«fl*<4> : GOTO80 

?0 GET1, RY. : B*=A* C SRE-1 > 

80 PRINT "B*""j B* 

90 PRINT"LAST RECORD WAS #"; RX-1 ; PRINT"LAST SUB REC WAS #"i 
SRK 
106 INPUT "ENTER NEW WORD" J B* 
110 LSET A*',SRX.'=B* 

120 SRX=SRX+1 ; IFSRX=5THENSRK=0 : PUT1, RK : RJS=RSS+1 : QOTOA50 
140 PUT1, &Y. 

150 OPEN "0" * 2, ' INDEX" PRINT #2, &'/., SRX : CLOSE : END 
1000 R.\'=l : SRH=0 • OPEN"U", 2, "INDEX" : PPINT#2. RX, SRK.: CLOSE : RUN 



Program Listing. 



First, let's define record and 
subrecord. A record is 256 bytes, 
one full buffer. A subrecord is a 
section of a record. Several sub- 
records make up a record. R per- 
cent is the variable used for the 
record number, and SR percent 
for the subrecord. 

The number of subrecords per 
record is established in the field- 
ing (line 40). Lines 60 and 120 
must have proper values which 
match up with the number of 
subrecords. 

In the control program, we 
have chosen five subrecords to 
fill up one record. Fielding is 
setup as usual, as described in 
the TRSDOS owners manual on 
page 7-72. Use PH$ as 
PHONEYS to position the sub- 
record within the buffer. The 
manual calls it STARTHERE$. 

The array in line 60, A$(4), 
holds the last subrecord data in 
the previous record. The number 
four would be changed if you 
use other than five subrecords. 
By the same token, IF SR% =5 
in line 120 would also need 
modification. 

The first thing the computer 
tries to do is input data from a 
nonexistent file (line 20). The 
ONERROR routine sends execu- 
tion to 1000 where the file is 
created. RUN terminates the er- 



ror and it will not occur again. 
RESUME is not needed. Line 30 
keeps the machine on the look- 
out for usual blunders. 

An error would occur in line 
60, if the program were allowed 
to get there. (Line 60 tries to get 
record number 0, which is not a 
legal record number.) But line 50 
sees that this won't happen. 

The last of the data entered 
are retrieved in either 60 or 70, 
depending on the values of the 
record and subrecords. The sub- 
record numbers and record 
number, if need be, are incre- 
mented in line 120. Information 
is then put in the proper random 
file. The new R percent and SR 
percent values are stored in line 
150. 

In Conclusion 

It's easy to make errors when 
incorporating this routine into 
your programs. If trouble oc- 
curs, check the values in lines 
40, 60 and 120. 

The DISKDUMP/BAS utility 
provided on the TRSDOS disk is 
a powerful aid in debugging this 
type of program. With DISK- 
DUMP you can see exactly what 
went on the disk, and determine 
if the problem lies in the writing 
or reading section of your pro- 
gram.! 
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INTEGRATED 
EYPLUS UTILITY 

PACKAGE 



Keyplus is a collection of utilities that can be enabled directly 
from the keyboard of a Level II TRS-80. Seven different keyboard 
entry modes include BASIC shorthand (2 modes), direct graphic 
character input (3 modes), typewriter style input and standard 
TRS-80 entry. 

Keyplus supports auto-repeat, lowercase video (optional hard- 
ware modification required), restoration of lost programs, key- 
board debounce, single key stroke user definable strings and more! 

Designed for ease of use, Keyplus routines may be enabled or 
disenabled in two key strokes. 

The Level II version of Keyplus is available for $ 14.95 and a more 
powerful disk version (32 or 48K) sells for $19.95. Pennsylvania 
residents add 6% sales tax. 

TRS-80 is a registered trademark of TANDY CORP. 




SJW, INC. 

P.O. BOX 438 




^244 



HUNTINGDON VALLEY, 

PA 19006 

215-947-2057 




The world's most popular microcomputer, with 16K of memory 
and Level II BASIC for only $685.00 complete with full 90-day 
Radio Shack warranty. 

We accept check, money order or phone orders with 
Visa or Master Charge. (Shipping costs added to 
charge orders). 

Disk drives, printers, peripherals, software & games. . . 
you name it, we've got it 
(both Radio Shack & other 
brands). Write or call for 
our complete price list. 




32 EAST MAIN • MILAN, MICHIGAN 48160 • (313) 439-1508 



nieDATVTRYJVSKHX) 



_j |M ii jf- 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. 



Features: 

• 300 Baud 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty - parts and 
labor 

• High quality Selectric printing 
Off-line use as typewriter 

• Optional tractor feed available 

• 15 inch carriage width 



Also works with Ex- 
atron's Stringy Floppy, 
for fast loading of pro- 
grams. 



HOW TO ORDER 
DATA-TRANS lOOO 

1. We accept Visa, Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 







Desk and table top models also available. 
For orders and information 

DATA-TRANS 

2154 OToole St. *m 

UnitE 

San Jose, CA 95131 

Phone: (408) 263-9246 



^Reader Service index— see page 194 
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TUTORIAL 



See how your 80 sorts data, graphically. 



Graphic Sort 



C. A. de Zoysa 
P.O. Box 170 
Key port, NJ 07735 



Using a lot of paper, arrang- 
ing and rearranging arrays 
and subscripted variables, I was 
helping a friend learn about 
computer sort methods. 
Through this maze of subscript- 
ed variables we managed to get 
an idea of how the computer 



carried out its process of sort- 
ing. It occurred to me to write a 
simple program which would 
graphically demonstrate the 
sorting process on the video dis- 
play terminal. 

The sort technique I have 
used is one that most beginners 
go through. Although it is not 
the most efficient method of 
sorting, it adapted itself very 
well to graphic display. 

The BASIC Sort 

The program was written for a 
TRS-80 Level II. The data state- 
ment is restricted to eight items, 
which eliminates the need for 
DIMensioning and permits the 
data to be displayed in single 
lines. 

Only one subscripted variable 
is used. Other variables have 
been kept to a minimum. 



A 
I 


—Array element 

—Dummy variable for keyboard input 




L 


— Flag to check if switch takes place 




J 


—Subscript — inner loop 




N 


— 1. Subscript during read 
—2. Subscript— outer loop 




T 


—Variable for temporary storage during switches 


i Q 


— 1. Tab counter when printing headings 
—2. Line counter during output 




X 


— 1. Array element indicator when printing 
—2. Array subscript during output 

Table 1. List of Variables. 


headings 



The program should run on 
most microcomputers with little 
or no program modification pro- 
vided the video display terminal 



can handle 64 characters per 
line. 

The graphics display program 
listed (see Program Listing 1) 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

17 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 



390 
400 
410 
420 
430 
440 
450 
460 



FOR N = 1 TO 8 

READ A(N) 

NEXT N 

DATA 254,-12,101,567,45,0.123,33,309 

CLS : PRINT "ORIGINAL ORDER: " ; : GOSUB 260 

PRINT : PRINT : GOSUB 360 

PRINT : Q = 

FOR N = 1 TO 8 

FOR J = 1 TO 7 

IF A(J) < A(J+1) THEN 150 

T = A(J) 

A(J) = A(J+1) 

A(J+1) = T 

L = 1 

GOSUB 250 

PRINT 

NEXT J 

NEXT N 

PRINT 

PRINT 

PRINT 



GOSUB 26 



END SORT" 
PRINT "SORTED ORDER: 
PRINT 

INPUT "HIT ENTER TO REPEAT"; I 
RESTORE : GOTO 10 
END 

PRINT TAB(l) N; TAB(5) J; 
FOR X = 1 TO 8 
PRINT TAB(13) A(X) 
NEXT X 

IF L = 1 PRINT TAB(55) J; TAB(60) J+l; : 
Q = Q + 1 
IF Q > 8 THEN 330 
RETURN 

PRINT : INPUT "HIT ENTER TO CONTINUE"; I 
CLS : GOSUB 360 
Q = : RETURN 
REM PRINT HEADINGS 
PRINT TAB (3) "LOOP"; 

S" 
PRINT "SUBSCRIPTS"; 

CHED" 
PRINT TAB(2)"N" 
Q = 

FOR X = 1 TO 8 
PRINT TAB(Q+13) X; 
Q = Q + 5 
NEXT X 
PRINT 
RETURN 



TAB (29) "ARRAY"; TAB (55) "ELEMENT 
TAB (28) "ELEMENTS"; TAB(55)"SWIT 
TAB (6) "J"; 



Program Listing 1. 
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DISC DRIVES 

POR TRS 80* 

"FLIPPY"— 250K bytes/disc 
FAST — 5ms Track to Track Access 



REAL VALUE 

AEROCOMP offers the best value in 
microcomputer disc drives on the market today! 
Reliability, features and cost tough to beat. We 
deliver... and we stand behind- our products, as 
evidenced by the only FREE TRIAL OFFER in the in- 
dustry. Examine your systems needs and order to- 
day! 

MYSTERY REMOVED 

There appears to be some confusion in the 
terminology used to describe disc drives and their 
features. Here's what we mean: 



•FLIPPY 



•TRACK 
DENSITY 



•DOUBLE 

DENSITY 



Allows the use of both sides of 
a diskette with a single- 
headed drive by simply turning 
the diskette over (Model 
40-1). 

specified in tracks per inch 
(TPI) . 

Refers to the number of tracks 
per radial inch on the diskette.. 
Typically 48 TPI = 40 usable- 
tracks and 96 TPI = 80 useable 
tracks. 

refers to recording density in 
bits per inch (bpi). Typically 
single density means data can 
be recorded up to 2,938 bpi; 
double density means data can 
be recorded up to 5,876 bpi. 

COMPARE AND 



•DOUBLE- refers to number of read/write 
SIDED heads. Single-sided is one 
head, read/write one side on- 
ly: double-sided is dual heads 
allowing read/write opera- 
tions on both sides of the 
diskette. A double sided drive 
appears as two separate 
drives to the controller. 

•CAPACITY unformated capacity is the 
total amount of storage space 
available on a diskette. 
Typically 125K bytes on a 40 
track 5.25in. diskette. For- 
mated capacity is the total 
USABLE storage space on a 
diskette. Typically 102K bytes 
on a 40 track 5.25in. diskette. 

•ACCESS the time required for the head 

TIME to move from one track to the 

next. Typically 5 to 40 
milliseconds (ms). 

FREE TRIAL OFFER 

Order your AEROCOMP Disc Drive and use it 
with your system for up to 14 days. If you are not 
satisfied for ANY REASON (except misuse or im- 
proper handling), return it, packed in the original 
shipping container, for a FULL REFUND. We have 
complete confidence in our products and we know 
you will be satisfied! ORDER TODAY! 

WARRANTY 

We offer you a 90 day unconditional warranty 
on parts and labor against any defect in materials 
and workmanship. In the event service, for any 
reason, becomes necessary, our service depart- 
ment is fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disc Drives are completely 
assembled at the factory and ready to plug in 
when you receive them. Each drive is 100% bench 
tested prior to shipment. We even enclose a copy 
of the test checklist, signed by the test technician, 
with every drive. AEROCOMP MEANS RELIABILITY! 

ORDER NOW 

MODEL 40-1 DISC DRIVE $339.95ea. 

Single-sided, "Flippy", 48TPI. 
(40 track; single density unfor 
mated 125K bytes/side; double 
density unformated 
bytes/side). 
MODEL 80-2 DISC DRIVE $439.9Sea. 
Double-sided, 48TPI. 
(80 track/40 per side; 
density unformated 
bytes; double density 
mated 500K bvtes). 



250K 



single 
250K 
unfor- 



BUY AEROCOMP! 



ACCESS HEAD DISC CAPACITY EASY- FREE 
"FLIPPY" TIME LOAD EJECTOR (unformoted ENTRY TRIAL 
(track to SOLENOID single DOOR 
track) density) 


AEROCOMP 


YES 


Smi. 


YES 


YES 


2SOK byte i 

(both .Id..; 


YES 


YES 


RADIO 
SHACK* 


NO 


40ms. 


YES 


NO 


I09K bytes 


NO 


NO 


PERCOM 


YES 


25ms. 


YES 


NO 


250K bytes 
(both sides) 


YES 


NO 


MPI 


NO 


5ms. 


YES 


YES 


I25K bytes 


YES 


NO 


SHUGART 


NO 


40ms. 


YES 


NO 


I09K bytes 


NO 


NO 


SIEMENS 


NO 


25ms. 


YES 


NO 


I25K bytes 


YES 


NO 


TANDON 


NO 


5ms. 


NO 


NO 


I25K bytes 


NO 


NO 


PERTEC 


YES 


25ms. 


YES 


NO 


250K bytes 
(both sides) 


NO 


NO 


BASF 


NO 


12ms. 


YES 


NO 


I25K bytes 


NO 


NO 



MODEL 80- 1 



MODEL 
160-2 



DISC DRIVE $439.93«a. 

Single-sided, "Flippy", 96TPI. 
(80 track; single density unfor- 
mated 250K bytes/side; double 
density unformated 500K 
bytes/side). 

DISC DRIVE S393.93oa. 
Double-sided, 96TPI. 
(160 track/80 per side; single 
density unformated 500K 
bytes; double density unfor- 
mated 1 megabyte). 



All models are capable of single or double density 
and ore complete with power supply and silver 
enclosure. Send for information on AEROCOMP 2- 
and 3-drive systems available in 40 and 80 track. 

SELECT EITHER A 2-DRIVE OR 4-DRIVE CABLE 

FOR USE WITH YOUR DRIVE(S): 

2-DRIVE CABLE (for use with 
1-or 2-drive systems) 
$24.93»a. 

4-DRIVE CABLE (for use with 
1-, 2-, 3-or 4-drive systems) 
* 34. 95m 

Add $1.25 shipping and hand- 
ling 

MINI DISKETTES (5.25 in), Box of 10 $29.93 

add $1.25 shipping and hand- 
ling 



DISC OPERATING SYSTEMS 
NEWDOS + (40 TRACK) 
NEWDOS/80 (80 TRACK) 



$109.00 
$149.00 



SPECIAL COMBINATION OFFER 

Model 40-1 Disc Drive $339.95 
2-Drive Cable 24.95 

Disc Operating System 
(NEWDOS + ) 109.00 



Reg. $473.90 
Special $399.93 

SPECIAL OFFER AS ABOVE EXCEPT WITH 
NEWDOS/80 

Reg. $513.90 
Special 429.93 
Free Freight with Specials 

To order by mail, specify Model Number(s) of 
Drive, cable, etc. (above), enclose check, money 
order, VISA or MASTERCHARGE card number and 
expiration date, or request COD shipment. Texas 
residents add 5% sales tax. add $4.00 per drive for 
shipping and handling. Please allow 2 weeks for 
personal checks to clear our bank. No personal 
checks will be accepted on COD shipments-cash, 
money orders or certifed checks only. You will 
receive a card showing the exact COD amount 
before your shipment arrives. Be sure to include 
your name and shipping address. WE SHIP PROMP- 
TLY! In the event there is a slight delay, you will 
be notified of the shipping date and we will NOT 
deposit your money order or charge your 
bankcard until the day we ship! 



FOR FAST SERVICE ON VISA/MASTERCHARGE 
or COD ORDERS CALL TOLL FREE NOW I 
(800) 824-7888. ASK FOR OPERATOR 24. 

In California dial (800) 852-7777, Operator 24. In 

Alaska and Hawaii dial (800) 824-7919, Operator 

24. 

TOLL FREE LINES WILL ACCEPT ORDER ONLYl 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



i dota sheets is believed reliable but cannot be guaranteed, comparing Aer 



nts the track to tr 



rk ot Tandy Radio Shock 



AEROCOMP, INC.— 

Redbird Airport, Bldg. 8 
P.O. Box 24829 
Dallas, TX 75224 



^Reader Service index — see page 194 
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MARK GORDON 

COMPUTERS 

DIVISION OF MARK GORDON ASSOCIATES, INC. <^270 

15 KENWOOD ST., CAMBRIDGE, MASSACHUSETTS 02139 
(61 7) 242-2749 (61 7) 491 -7505 

COMPUTERS 

Level-ll 4K System 529.00 

Level-ll 1 6K System 659.00 

Model-ll 64K System 3499.00 

DISK DRIVES 

40 Track 5V* inch drive 319.00 

77 Track 5'/* inch drive 549.00 

4 Disk Drive Cable 39.00 

PRINTERS 

Centronics 730 899.00 

Centronics 779-2 999.00 

Comprint 9 1 2p 599.00 

Integral Data 440G 999.00 

NEC 5510 w-tractor 2679.00 

Tl 810 Basic 1895.00 

MISC HARDWARE 

Expansion int. TRS-80(Ok) 249.00 

Novation Cat modem 1 59.00 

1 6K Memory Kit 49.00 

Leedex Monitor 109.00 

Printer Cable for above 49.00 

ISO-2 Isolator 54.00 

AC LINE FILTER 24.00 

STORAGE MEDIA 

Verbatim-box I0-5 1 /. 25.00 

Memorex-box 10- 5 'A 22.00 

Plastic Storage Box 5.00 

OPERATING SYSTEMS 

NEWDOS by APPARAT INC 49.00 

NEWDOS + by APPARAT INC 99.00 

MMS FORTH DISKETTE-PRIMER 64.95 

DISKETTE TRS-80* 
BUSINESS SOFTWARE BY SBSG 

Free enhancements and upgrades to registered owners for 
the cost of media and mailing. 30 day free telephone sup- 
port. User reference on request. 
Fully Interactive Accounting Package, General Ledger, 

Accounts Payable, Accounts Receivable and Payroll. 

Report Generating. 

Complete Package (requires 3 or 4 drives) $475.00 

Individual Modules (requires 2 or 3 drives) $ 1 25.00 

Inventory II: (requires 2 or 3 drives) $ 99.00 

Mailing List Name &* Address II 

(requires 2 drives) $129.00 

Intelligent Terminal System ST-80 III: $ 1 50.00 

The Electric Pencil from Michael Shrayer $ 1 50.00 

File Management System: $ 49. OO 



FINE PRINT 

TRS-80 is a Tandy Corporation trademark. Use of above operating sys- 
tems may require the use of Radio Shack TRS-DOS. Radio Shack 
equipment subject to the will and whim of Radio Shack. 

ORDERING INFORMATION 

We accept Visa and Mastercharge. We will ship C.O.D. certified check 
or money orders only. All orders must include 4 percent for shipping 
and handling. Massachusetts residents add 5 percent sales tax. 

The Company cannot be liable for pictorial or typographical Inaccuracies. 



IS 



HARD CDPV 



STDRflBE 

a problem? 



The year's half over and your copies 
of 80 Microcomputing are still lying 
around in messy piles or worse! 




Straighten out the situation with 80 '{\t ! ///}■*'■ 

Microcomputing Library Shelf Boxes 7/v < - r r jj r T ' 

. . . sturdy, corrugated, white, dirt-re- '*'•* - - ■*'*-'' »*■■**■ -> 



sistant boxes will keep your issues of 80 Microcomputing orderly 
and available for constant reference. Self-sticking labels are 
available for the boxes, too, not only for 80 but also for Kilobaud/ 
Microcomputing, 73 Maga7ine. CQ, QST, Ham Radio, Personal 
Computing, Interface Age, Byte and Radio Electronics Ask for 
whichever labels you want with your box order. Fach box holds a 
full year of the above magazines. Your magazine library is your 
prime reference: Keep it handy and keep it neat with these strong 
library shelf boxes. One box(BX1000) is $2.00, 2-7 boxes(BX1001) 
are $1 .50 each, and 8 or more boxes (BX1002) are $1 .25 each Be 
sure to specify which labels we should send. Shipping and han- 
dling charges are $1.00 per order. Call in your credit card orders 
on our toll free line 800-258-5473, or use the order card in the back 
of the magazine and mail to: 



m 



microcomputing 



Peterborough, 
NH 03458 



,'ks tor delivery No COD i 




A recent survey showed that 20% of the 73 subscribers also read 
Kilobaud MICROCOMPUTING magazine . . . and enjoy it. This is the best way 
to learn and keep up with the rapidly developing world of microcomputers. 
There's nothing to be afraid of, you just have to read an interesting 
magazine and you'll learn. Try a subscription to Kilobaud MICRCOMPUTING 
and see for yourself. 

D New subscription n Renewal O 12 issues for S25. 00 

a Payment enclosed S D 24 issues for S38.00 

n mc 



D VISA 



Cardtt 



Signature 
Name 



LJ AE D Bill me □ 36 issues for S53.00 

Interbank # 

Exp. date 



Address 
City 



.State 



-Zip 



— tor even taster ordering service call toll tree (800) 258-5473 
Canadian: S27, one year only, U.S. funds. Other foreign: 
$35, one year only, U.S. funds. Please allow 6-8 weeks for 308B6 

^delivery. ^J 

MICROCOMPUTING • POB 997 • Farmingdale NY 1 1 737^ 
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sorts a group of eight numbers 
in ascending order. Both deci- 
mal and negative numbers have 
been included in the data for a 
more vivid demonstration. 

To sort in descending order, 
change the < sign in line 100 to 
>. 

The program uses two nested 
FOR-NEXT loops. As the loops 
are executing, their subscripts, 
N for the outer loop and J for the 
inner loop, are displayed at the 
left of the screen. After each 
iteration, the array is displayed 
in the center of the screen. 

If two elements are switched, 
their subscripts are displayed at 
the right, so you will know when 
a comparison has caused a 
change in the position of array 
elements. Hitting ENTER keeps 
the program executing. 

Two Subroutines 

The sorting process is carried 
out by lines 80 to 180. Two sub- 
routines are used. One prints 
the headings and the other dis- 



plays the array and subscripts 
after each iteration. Table 1 lists 
all the variables and their func- 
tions. 

You may substitute your own 
data in line 40, but the number of 
items should be restricted to 
eight. Each item should be no 
longer than four places includ- 
ing signs and decimal points. 
PRINT statements should be en- 
tered exactly as listed for prop- 
erly spaced output. Note that 
some PRINT statements have 
two semicolons at the end. 
These are necessary. 

After you have studied the 
operation of the program, its 
efficiency may be improved by 
inserting the following program 
lines: 



85 c = o 
135 c = 1 
175 IF C = 0THEN 190 



These lines prevent further loop 
iterations after the desired 
sort.H 



SOFTWARE 
WANTED 

If you are an 

inventive programmer 

and could use 

an extra income, 

please call: 

(213)894-9154 

We are interested in 
Games and Business software. 

Royalty or Gash-out basis. 

DATASOFT "n 
16606 Sehoenborn St. 
Sepulveda, Ga. 91343 



INTERFACE EXPANSION BOARD! 



For the TRS 80' 



MD 



MICRO-DG9IGM P*5 




The Interface Expansion Board gives 
your computer these features: 



32 K Memory 
Real-Time Clock 
Parallel Port 
RS-232 Port 
2K E-Prom Option 
Phone Modem 
Dual Cassette Line 
On Board Supply 
Silk Screen 
Solder Mask 
Expansion Port 
Manual 



•FREE PAMPHLET AVAILABLE' 
Call or write 



PC Board & user manual 
INTRODUCTORY OFFER 

5995 

Add 3.00 for shipping 
& handling. Texas res- 
idents add 5% sales 
tax. 



MOO-DGSIGN 

P.O. Box 18054 
Austin, Texas 78760 

1-512-458-2937 



^379 



Expire Date. 
Signature 



.Card #. 



'TRS 80 is a Trademark ol Tandy Corp. 



TRS-80- HELP ? 

"...how did I get along without it?" is the usual reaction to this advanced disk indexing program. 

AUTOMATICALLY create, sort, print, search a Master Index of all disk files. 

AUTOMATICALLY read file names, disk numbers (no hand entry). 

AUTOMATICALLY print disk labels (optional). 

AUTOMATICALLY update Index from revised disks. 

AUTOMATICALLY add optional file descriptions. 

AUTOMATICALLY label disks as "DOS' or DATA. NEW 

AUTOMATICALLY purge disks of unwanted files. NEW 

• FINDISK-II (on disk or tape 32K min - now works with RS 1 c mod) $20.00 

Other powerful programs from Documan available on tape or disk: 

• STRUCT-I beam design and moment transfer w. graphics (16K) $15.00 

• SOLAR-I essential calculations for passive solar design (32K) $30.00 

• RIA-I complex analysis of real estate investments (32K) $30.00 

• DEPRECIATE-I calculate, print 12 facts on depreciable items (32K) $15.00 

^ 88 VISA / MASTER CHARGE Shipping $ 1 . 00 each (Mich . add sales tax) 

DOCUMAN SOFTWARE BOX 387-A KALAMAZOO, Ml 49005 (616)344-0805 



< 



KQS 80 



> 




KOQYOSHfi 



A TRS-80 WORD PROCESSING 
SYSTEM FOR LESS THAN $600 

(If you own IBM Selectric or equivalent.) 

Turn your typewriter and TRS-80 into 
a new word processing system with a 
new device, the "KGS-80". 

• Plug in compatible with TRS-80. 

• No mechanical modification to the type- 
writer. 

• Can be installed in 5 seconds. 

• Software, a versatile Simple Letterwriter, in- 
cluded. 



179 Riveredge Rd. Tenafly NJ 07670 (201) 569-8769 ""* 

DEALER INQUIRIES INVITED 



^Reader Service index — see page 194 
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UTILITY 



/ love my serial interface. 



Pencil RS232 Driver 



Dick Kinsey 

5754 Thompson Rd. 

DeWitt, NY 13214 



The Electric Pencil by 
Michael Shrayer was intend- 
ed to be used with either one of 
two printer interface options: 
the Radio Shack expansion in- 
terface with a parallel printer or 
the Small Systems Hardware 
TRS232 serial printer interface. 



Unfortunately, it does not sup- 
port a conventional RS-232-C in- 
terface. 

If this presents a problem, 
you can solve it in one of three 
ways: Buy the disk version of the 
Electric Pencil ($150), as it sup- 
ports an RS-232-C interface and 
is also usable on a cassette-only 
system, buy a Small Systems 
Hardware TRS232 board ($50) to 
use in place of your RS-232-C in- 
terface; or, modify the cassette 
Pencil ($0). I chose the last ap- 
proach. 

Software Modification 

The Electric Pencil loads into 



Address 


Mnemonic 


Comment 


17270 


CALL 21 149 


;the location of the new subroutine 


17273 


NOP 


;a byte no longer used 


20095 


CALL 21 149 




20098 


NOP 




21149 


PUSH BC 


;save all necessary 


21150 


PUSH DE 


registers 


21151 


PUSH HL 


;HL contains file space start address 


21152 


PUSH HL 


;and (HL) = 


21153 


POP DE 


;store HL in the DE register 


21154 


LD HL,(16561) 


;letch specified memory size and 


21157 


SBCHL.DE 


;subtract to determine number of 


21159 


PUSH HL 


;bytes available for file space 


21160 


POP BC 


;store in BC register 


; 21161 


POP HL 


;restore file space start address 


21162 


INCDE 


;DE = HL+1 


21163 


LDIR 


■.clear out file space 


21165 


POPDE 


;restore the DE and 


21166 


POPBC 


:BC registers 


21167 


RET 


;return to caller 

Table 7. 



low memory and clears it from 
address 21224 to the top of your 
memory. Any I/O driver program 
previously loaded in high mem- 
ory is thereby erased. 

To protect the driver software 
required by an RS-232-C, I 
changed the Pencil program so 
that it fetches the memory size 
from reserved RAM and clears 
memory only to this point. It is 
written as a subroutine which is 
called from the two places in the 
program that do a clearing op- 
eration. The coding for this por- 
tion of the software change can 
be seen in Table 1. 

All that remains is to connect 
the driver program you pre- 
viously loaded into high mem- 
ory. Table 2 gives the coding for 
this patch. 

The patch is general, so you 
can specify any memory size 
you desire and locate your driver 



program anywhere in the now 
protected high memory area. 

For anyone who recently in- 
creased memory to 32K, to 
POKE or PEEK an address 
above 32767, use desired ad- 
dress -65536 and not the for- 
mula given in the Radio Shack 
Level II Reference Manual. 

BASIC Changes 

If you don't have a monitor 
program that locates in high 
memory, you will have to make 
the Electric Pencil software 
changes described above using 
the POKE command. I have writ- 
ten two BASIC programs to ac- 
complish this painlessly. 

Running the first CLOAD 
relocates the pointers for BASIC 
source statements just above 
the area of memory that Electric 
Pencil occupies. PENCIL is then 
loaded under SYSTEM, and the 



Address 


Mnemonic 


Comment 


21136 


PUSH BC 


;save registers that 


21137 


PUSH HL 


:will be used 


21138 


LDC.A 


itransfer character to be printed 


21139 


LD HL,(16422) 


;fetch the driver address from reserved RAM | 


21142 


CALL 21148 


iplaces program counter on stack to 
provide return address 


21145 


POP HL 


;restore the HL and 


21146 


POP BC 


;BC registers 


21147 


RET 


;return to caller 


21148 


JP(HL) 


jumps to driver program 

Table 2. 
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Games from BIG FIVE will 
turn your computer into a 




SUPER 
NOVA® 

$14.95, 16K 
Level I or II 



"Huge ASTEROIDS have Invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they destroy 
you!" 



TRS-80 
HOME ARCADE 




METEOR 
MISSION® 

$9.95, 4K 
Level I or II 



"The second Big Bang has occurred and 
the galaxy is full of stray meteors. Can 
you survive to dock your ship with the 
space station?" 



"Super Nova is the best TRS-80 game on the market!" 

"It's more fun playing SUPER NOVA at home than wasting quarters 

at an arcade!" 

"My high score is 62,000, but I'm working on topping 100!" 



BIG FIVE SOFTWARE CO. 

P.O. Box 9078-185 ^ 357 
Van Nuys, CA 91409 

©1980 by Bill Hogue 

TRS-80 is a trademark of Tandy Corp. 

Calif. Res. add 6% tax, UPS/CO. D. add $3.00 



PRINTERS & CRT'S From Orange micro 




baxe_ inc. 



IMPACT PRINTER 



649. 



00 



"The base 2 outperforms every printer in Its 
price range. Do a comparison and see for 
yourself . . ." 

• GRAPHICS • TRACTORS /FRICTION FEED 

• 2K Input Buffer • RS-232 Serial, Centronics® Parallel, 
IEEE-488, 20 ma • TRS-80 Cable option • 60 LPM - 100 
CPS • Fast form feed • User programmable character 
set • 64, 72, 80, 96, 120, 132 Columns/ line • Expanded 
characters • 9.5" wide paper • Automatic skip-over- 
perforation • Horizontal & Vertical tabs • Programmable 
vertical line spacing • Intel 8085 Microprocessor — over 
40 software commands • Self test • 15 Baud rates to 
9600 Baud • Optional foreign character sets 

Interfaces to TRS-80, Apple, Atari, PET, Northstar, and most 
other computers. 




TELEVIDEO CRT'S! 

PRICES SLASHED! 



91 2C 
920C 



$CALL 
$CALL 



AXIOM 

IMP-1 629 

IMP-|. ,...715 

Other models — $ Call 

CENTRONICS 

779 w/tractors 1059 

730.. ,................$ Call 

737.. r. .„«,........-.-. $Call 

COMPRINT 
912 Parallel ...; ..j ....... 499 

912Serial 535 



PRINTERS 

OKIDATA 



Microline80 659 

w/tractors 779 

PAPER TIGER 

IDS440 869 

w/graphlcs 959 

QUME 

Letter Quality 5/45 2499 

w/tractors , . . . 



toll free (800) 854-8275 

CALIF. ONLY (714) 630-3322 on for free catalog 



m 

no 



Phone orders WELCOME. Same day 
shipment for VISA, MASTER 
CHARGE, and AMERICAN EX- 
PRESS. Personal checks require 2 
weeks to clear. Add 3% for ship- 
ping and handling. California resi- 
dents add 6%. Manufacturer's 
warranty included. Prices subject to 
revision. 



Orange 
micro 

P.O. Box 2076 
Yorba Linda, CA 92686 



8EST SELLING INFORMATION 

MANAGEMENT SYSTEM IN 

MICROS TODAY!! 



SELECTOR III-C2 

■Powerful 

■Creates and Maintains Multi- key data 

bases. 
■Prints FORMATED, SORTED REPORTS with 

numerical summaries. 
■Source code supplied 
■Prints MAILING LABELS - and more! 
■Comes with APPLICATIONS PROGRAMS 

including: 

■Sales Activity BExpense Register 

■ Inventory BChecks Register 

■Payables ■Client/Patient Record 

■Receivables ^Appointments 

■NAD ■Library 

File management and report writing modules 
contain linkage to user subroutines to add 
virtually any special purpose application. 



n information manage- 



STATE OF THE ART 

ment systems! 

NEW — "Ready-to-run" version for the 
TRS-80® Model I, only from Business 
Microproducts. Also available for Model II. 

Requires CP/M operating system or 
derivative and CBASIC2. 

Offered on 5 'A" or 8" all versions. . $295.* 
CBASIC2 with Selector Purchase. . . $75.* 



TRSDOS-»-CP/M 

FILE /THAN 



"BRIDGES THE GAP" 



■Machine language COM FILE 
directly compaiiDie with youf 
CP/M system 

■Automated Terminal Con- 
figurator 

■Memory displayed in Doth HEX 
and ASCII 

■Any disk Sector Selected and 
displayed in dotn HEX and 
ASCII 

■Transfers Doth data and pro- 
gram files Oy tile name Dyte Dy 
Dyte 

■And more 
FILETRAN Disk anO Manual 
Manual alone (manual price credited to system 



iNewly created files scanned 
tor potential errors between 
level II BASIC & MBASIC 5.0 
or latei 

CP/M tiles scanned lor any 
seiecied siring 

Searches any program lor ah 
occurences ol any string 
Generates a variable cross 
reference invaluaOle feature 
lor any system level conver 
sion and debugging 
IDispiays both CP/M & 
TRSOOS directories 



$99 
S20 



ORDER NOW 



nv/n 

BUSINESS - 382 

UWUOWPRODUCTS 

A DIVISION OF THE READY CORPORATION 

LIVERMORE FINANCIAL CENTER 

1838 Catalina Court • Livermore. CA 94550 

(415) 449-4412 

VISA M/C 




NEVADA 
COBOL 



^ A POWERFUL subset of ANSI-74 
y A PRICE that's UNBEATABLE-S99 
^ EXTENDED arithmetic & I/O features 
> FAST compilation and execution 
^ EASY to use - Generates small executable 
ob|ect modules 

• UNIQUE — Easily understood error 
messages 

^CP/M compatible 

^ Also available ON TRS-80 

^ REQUIRES only 16K-RAM 

• Designed tor PORTABILITY 

STANDARD FEATURES 

■ Random access tile structure 

■ Sequential tiles — Fixed and variable length 

■ Debugging capability 

■ Copy statement 

■ Data types & character string. 16 Bit Binary 
and packed decimal (Comp-3) 

■ 18-Digit accuracy 

■ Hexidecimal non-numeric literals 

■ Powertul editing 

■ interactive accept/display 



Ottered on both 5 'A' 
versions 



and 8" 



diskette, all 
$99* 



'CA residents add 6% sales tax. Inter- 
continental shipping $3.00. Allow 2 weeks 
delivery 

TRS-80 is a trademark ot the Tandy Corp 
CP/M is a trademark ot Digital Research 




TRS-80's 



DISCOUNTS of 10%, 15% and More 
available. 

WE PAY Domestic U.P.S. shipping and 
insurance on minimum orders. 

NO TAXES are collected on out-of-state 
shipments. 

TOLL FREE Order Number 800/531 -7466. 

OPEN 8:00 a.m. to 6:00 p.m., Central 
Time, Monday through Friday; 
9:00 a.m. to 6:00 p.m., Saturday. 



Pan American Electronics 

Incorporated 

a Radio /hack 



AUTHORIZED SALES CENTER 



1117 CONWAY MISSION, TEXAS 78572 

TOLL FREE ORDER NUMBER 800/531-7466 

TEXAS AND PRINCIPAL TELEPHONE NUMBER 512/581-2765 
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break key is used to CLOAD the the prompt (*?). In the course of 



second program, the one that 
POKEs the software changes. 

The modified Electric Pencil 
is then run, using SYSTEM and 
entering /17232 in response to 



clearing out the file space, it 
erases the now useless BASIC 
program. The instructions for 
this are displayed by the BASIC 
programs. ■ 



10CLS 

20 PRINT® 385,"1. LOAD PENCIL' USING SYSTEM' -TAKES ABOUT 75 

SECONDS' 

30 PRINT© 513, "2. HIT BREAK KEY AND CLOAD' THE SOFTWARE PATCH' 

40 PRINT(« 900."" 

50 POKE 16633,2:POKE 16634,84:POKE 16548,0:POKE 16549,84 

60 POKE21503.0:END 

Program Listing 1. 

10 FOR X = 21 136 TO 21 148 
20 READ Y:POKE X,Y:NEXT 
30 FOR X = 17270 TO 17273 
40 HEAD Y:POKE X,Y:NEXT 
- 50 FOR X = 20095 TO 20098 
60 READ Y:POKE X.Y:NEXT 
70 FOR X = 21 149 TO 21 167 
80 READ Y:POKE X,Y:NEXT 

90 CLS:PRINT<rt449."3. ENTER M7232 UNDER 'SYSTEM' " 
100 PRINT© 900,"": END 

110 DATA 197,229,79,42,38,64,205,156,82,225,193,201,233 
120 DATA 205,157,82,0 
130 DATA 205,157,82,0 

140 DATA 197,213,229,229.209,42.177,64,237,82.229,193 
150 DATA 225,19.237,176.209,193,201 



Program Listing 2. 



-"TRS-80 is a registered trademark of TANDY CORP."- 



Call about our fantastic price on 

4-drlve complete system. 
Level II 4K $5S7.IO 

Level II 1 6K $720.00 



Expansion Interface $269.00 ^(^fcS^-K^g^fi'M^ 
Expansion Interlace I6K $403.20 ' ? S5E??'*S8jSH^=s 
Expansion Interface 32K $524.00 ^^^*^^^^E 
1 6K Memory Kit for TRS-80 or Apple ">**- iSES?? 
$79.95 

TRS-80 & NORTH STAR ADD-ON DRIVES 


CUSTOM 


il^" CABLE 


ENCLOSURE ■&*'* 


IS INCLUDED 



Single drive system in custom enclosure T.' $414.12 

Single drive system in metol enclosure $375.00 

Double drive system in custom enclosure $824.14 

MPI $279.00 . 

MPI. D52. duol heoded $349.00 

Shugort SA400 $286.00 

Shugort SA800 $479.00 

Tondom single sided $279.00 

Tondom double sided $425.00 

Siemen 8" drive $430.00 

Single tier wolnut enclosure for Shugort $27.00 

Double tier wolnut enclosure for Shugort $45.00 

Atori 400 $548.49 

Atori 800 $994.49 

Hozeltine 1400, 18 month warranty $649.95 

Centronics Pi Printer (TRS-80 odd on) $398.95 

Centronics 779-2 tractor (TRS-80 odd on) $1049.95 

Tl Printer $ 1 599.00 

Case 2 $599.00 

Horizon 1 . 32K $2290.00 

Superbrain $2695.00 

SPECIAL! MINI FLOPPY DISKS, box of 10 (with plastic box) only 
$28.00 (without plastic box) only $26.50. Box of 10. 8" disks (in plastic 
box $30.00). Centronic 779 ribbons $3.50 each. 

W£ ACCCPT BANK AUHICARO. VIS*. MASTC* CHA'Ot 

29-02 23rd Ave., Astoria, N.Y. 11105 
TWX 7105822107 (212)728-5252 
(800)221-1340 ^303 



ZOfO 

/y/tenru 



1 6K MEMORY 

TMS4116-30JDH 

16Kx1 Dynamic RAMs 

for: TRS-80™, Apple, 

Exldy and others. 

8 $59.00 
8 $74.00 

for Canadian customers 

Add $3 to help cover postage and 
handling. Sask. residence add 
5% sales tax. 

TRS-80tm installation information 
is available on request. 

TAITRONICS ENTERPRIZES 

1263 Wallace St. ^380 

Regina Sask. Can. 

S4N 3Z2 ph. (306) 527-2088 




CalData Systems Presents 



^-294 



WordMagic II 

Complete WORD PROCESSING 

designed specifically for 

The Radio Shack TRS-80 Model II Computer 

WordMagic II" is a Word Processor designed specifi- 
cally for the Radio Shack TRS-80 Model II Computer." 

FEATURES INCLUDE: 

• Mailing List/Labels Generation 
•Automatic Merging of Mailing Data 

with Text Files to created "PER- 
SONALIZED" Form Letters 

•Automatic wrap-around in text entry 

•Margination, Paging, Complete Cur- 
sor Movement 

•Complete Editing Commands — Inser- 
tion, Global Substitution, Overwrite, 
etc. 

•Centering, Smooth Right, Left Justify 

•Table of Contents Generation 

•Automatic Page Numbering 

•Variable Form Lengths 

• Underlining 
•Line Numbering 

e Radio Suae* Oivision ol Tandy Corporaiion 



Requires 64K Modal II. 1RSDOS A BASIC (not provided with WordMagic) 
Introductory Pricing: S12S.00 Manual S20. {Cat. Res. add tax) 



CalData Systems vVU' P.O. Box 178446 
San Diego, CA 92117 (714) 272-2661 



&mi 



SPECIAL 
PRICE 

TRS-80* -I Or -II 
MEMORY EXPANSION 

CHIPSET: $59!! 

We've done it again ... 8 low power, 250 
ns 16K dynamic RAMs at a trend-setting 
price. Expands memory in TRS-80*, Apple, 
Heath H89, Exldy Sorcerer, newer pets, 
etc. Don't be impressed with fancy packag- 
ing or four color ads; our chip set gives all 
the performance you want at a price you 
can afford. Offer good while supplies last. 
Add S3 for TRS-80* compatible DIP shunts 
and complete installation instructions. 

* TRS-80 is a trademark of tne Tandy corooration. 



ncled. 



TERMS: Cal res add lax. Allow 5% shipping, exc 
VISA'/Mastercharge" call our 24 hr. order desk al 
(415) 562-0636. COD ok with street address for UPS 
Prices suDject to change without notice. 



WE ALSO MANUFACTURE AN EXTENSIVE 

LINE OF S-100 PRODUCTS; SEE COMPUPRO 

S-100 BOARDS IN PERSON AT FINER 

COMPUTER STORES WORLD-WIDE. 

(ompuPro™ 



from 



ELECTRONICS "* 1^75 

, 725, Oakland Airport, CA 94614 



■ Reader Service index — see page 194 
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UTILITY 



Use the first program on your tape to keep track of the tape. 



Cassette File 



James Tallman 
3468 S.E. Roanoke 
Hillsboro, OR 97123 



If you want to store more than 
one program for your TRS-80 
on a particular tape, a method of 
keeping track of the beginnings 
of each program Is useful. 

The CTR-41 tape recorder has 
a tape counter that can Indicate 
where a program is saved on the 
cassette. To maintain a record 
of which program begins at 
what counter reading, simply jot 
down the tape count indication 
and program name. 

However, if a written log is 
lost, you have no easy way of re- 
covering the information. You 
can write a program to store the 
tape directory as the first file on 



any cassette. Such a program 
stores the information in DATA 
statements. 

The program begins by clear- 
ing the screen and printing a 
heading (lines 110 and 130). For 
Level II machines an extra state- 
ment is required, because of an 
error In Radio Shack's ROMs. 
(See my note attached to the 
Program Listing.) 

Statement 140 reads the pro- 
gram's name as A$ and three 
numbers, A, B and C. They are 
expected to be the tape 
counter's start of three copies 
of the program in A$. You can 
modify this if you want only one 
or two copies. 

Any negative value read for A 
ends the program (line 150). I 
usually put a -1 value at the 
end of the program to indicate 
this. 

The program then prints out 
A$ and the three starting count- 
er locations of each of the three 



copies of the program. Control 
goes back to line 140 for another 
read and checks for a negative 
A. The program ends when 
either the negative value for A is 
read or the list of data is ex- 
hausted. 



It's important to set the 
counter to zero at the start of the 
tape for the counts to be reli- 
able. Also, I use the next-to-the- 
last line to indicate the next 
available place on the tape to 
save a subsequent program. ■ 



100 REM CASSETTE FILE PROGRAM 
110 CLS 

•120 POKE 16553:255 
130 PRINT" PROGRAMS "/'COPY #1","COPY #2","COPY #3" 
140 READA$,A,B,C 
150 IFA<0END 
160 PRINT A$,A,B,C:GOTO 140 
500 DATA SLOWPOKE, 104, 109, 114 
510 DATA BLACKJACK, 122, 180, 235 
520 DATA CASSETTE TEST, 288, 297, 305 
530 DATA NEXT AVAILABLE, 313, 0, 
9999 DATA END, -1,0,0 



This program works with both Level I and Level II BASIC. 

•Required on Level II because of an error in Radio Shack ROMs. If this line is 
omitted, the program re-reads through an automatic RESTORE. (See Radio 
Shack's addendum to the Level II BASIC Reference Manual, item #1.) 



Program Listing. 



Call us, Write us, or Circle our reader service # 

If you like to receive mail related to the TRS-80" Model I or Model II, then send us 
your name and address. Companies and individuals all across the country have 
products and prog rams they want to tell you about. Products that will enable you 
to use and enjoy your computer more. 

Each day a trip to your mailbox can bring you useful, interesting information 
on accessories, business programs, game programs, hardware, supplies, etc. 

And by mailing directly to you the companies can go 
into greater detail on their products and services. So 
send your name and address today. Tell us if you own a 
Model I or Model II and if your interest is in personal/ 
hobby or business use. 



A 



TRS-80" Reg Trademark of Radio Shack 
^216 




National Tricor, lnc/3335 Greenleaf Blvd./Kalamazoo. Ml 49008/616-375-7519 






Subscribe to 

m 



microcomputing 



fill out the 
reply card 
on page 194 
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SO YOU WANT TO USE 
YOUR TRS-80 TO: 

Relearn French. Help your children with 
their reading. Teach your entire family to 
program. But Interaction Is So Awkward 
In BASIC. 

BPILOT IS THE LANGUAGE 
FOR YOU 

BPILOT is a version of PILOT written 
especially for the TRS-80 with either Level II 
or Disk BASIC. PILOT was developed by 
teachers for Computer Aided Instruction. 
PILOT allows you to concentrate on the 
instructional goals, not the computer. 

BPILOT HAS 3 VERY 
IMPORTANT FEATURES: 

1. BPILOT is a complete PILOT. It includes 
the execute Indirect command, a complete 
Match instruction, and long labels. 

2. You create BPILOT programs using the 
TRS-80 commends you are familiar with 
(AUTO, EDIT, LIST, TRON . . .). There are no 
new (and confusing) system commands. 

3. BPILOT allows you to use both PILOT and 
BASIC instructions In your programs. 
Besides increasing the power of PILOT, this 
makes it easy to learn PILOT if you know 
BASIC, and easy to teach your children 
BASIC once they know PILOT. 

BPILOT is a concise assembly language 
program making extensive use of the Level II 
ROMs. On a 4K system, the Level II version 
of BPILOT leaves 2K for programs. On a 16K 
system, the Disk version leaves 4K for 

Jtrograms. At $24.95 for either version, 
ncluding a reference manual and 3 
demonstration programs, BPILOT Is a true 
bargain. For more Information or to order, 
contact: ^ 3M Computer Aided and 

/• , A\ A ( Managed Instruction 
Vw/» /VIlP.O. Box 2030 

Goleta, C A 93018 



THE WAIT 
IS OVER 

Now for the first time, Cpaids, is 

making available its Federal 1040 

Tax package for the TRS-80 

Model II. 

Featuring-1% and 3% medical limitation 
incorporated, auto checks for FICA over 
withholding, auto earned income credit, 
auto dividend exclusions, types tax 
preparer's Fed. ID and SSN; proformas all 
forms for subsequent years. 

Schedules - A, B, C, D, E, F, G, R/RP, 
SE, TC, ES 

Forms - 2106, 2119, 2210, 2441, 3468, 
3903, 4625, 4972, 4726, 4797, 5695, 
6521 

Requires 64 K with dual disks using 
CP/M. 

CALL TOLL FREE 
800-321-2430 



^•388 




1640 Franklin Ave., Kent, Ohio 44240 



MANAGEMENT SYSTEMS SOFTWARE 

ANNOUNCES 
TWO NEW BUSINESS PROGRAMS FOR THE SMALL BUSINESSMAN 

BY 

JEROME S. OSTERYOUNG, PH.D. 

RENOWNED BUSINESS EDUCATOR AND AUTHOR OF 5 BUSINESS TEXTS 

PROFORMA CASH-FLOW PROGRAM * LEASE-PURCHASE PROGRAM 

FORECASTS CASH NEEDS AND LIQUIDITY EVALUATES LEASE VS PURCHASE DECISION 

FOR UP TO 12 PERIODS INCORPORATES LATEST TAX IMPLICATIONS 

$125.00 EXTENSIVE DOCUMENTATION WITH EACH PROGRAM $100.00 

CASSETTE OR DISK 

WRITE FOR BROCHURE 

MANAGEMENT SYSTEMS SOFTWARE 

5200 BRITTANY DRIVE, #1006 ST. PETERSBURG FL 33715 
(813)864-4347 ^87 



— TRS-80 MODEL II USERS — 




»>110 



Introductory Often Duy both covers & love 

Preserve— Protect— Display your equipment with CRYSTAL CLEAR 

PLASTIC COVERS M ° del ' covers also available. * Crown Plastic Co. 

• Keyboard & CRT. ..MOD 1 1. ..$24.95 ea. pii»$i.so g 3746 N. College 317-925-5566 

• Line Printer II MOD II $14.95 ea. Postageeach. | Indianapolis, IN 46225 

MOD II Combination price $34.95 Including postage M odiano residents odd 4% sales tax) 



i Off Tack 
2 END RUK 



orpnsc 

7 1.0HO PASS 

8 FIELD OOAI. 

9 ran 

10 TIIO OUT 
n RESTORE 



2 DOW 7 YARDS TO QO 



[ 



30 kO >0 UO 30 



] 



FOOTBALL 

fe; TRS-80* 

Now you can play football at home on your Level I 4K 
TRS-80". You and your opponent plan strategies against 
each other. The computer analyzes the ollensive and 
defensive plays and calculates yardage lost or gained 
Send $19.95 tor your football cassette and instructions. 

FERIN ENTERPRISES r» 
6310 Underwood Ave. S.W. 
Cedar Rapids, Iowa 52404 

"TRS-80 is a trademark of the Tandy Corp. 



* Reader Service index— see page 194 
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Instant Software New Releases 




EXECUTIVE EXPENSE 
REPORT GENERATOR 

How often have you returned from a 
long, successful business trip and 
dreaded facing that ugly beast, THE EX- 
PENSE REPORT? 

Before you left, you firmly resolved to 
note every expense in a little black book. 
It all worked fine for about two days. 
Now, you stare disgustedly at a pile of 
crumpled bills and scraps of paper, 



which you've dug out of various jacket 
pockets. 

This program will take away that pain. 
No, it won't tell you how to cheat on that 
expense report! It will simply tell you 
how to play the game using established 
rules. 

The jumble of figures you attempted 
to add could drive you up the proverbial 
wall. No matter what you try to do, the 
grand total refuses to equal the original 
cash advance for the trip. 

However, when you supply your tale 
of woe to this program, your answer will 
be a clear expense layout, plausible and 
quickly done. (The program has hard- 
copy capability; you'll need a printer.) 
You'll be able to present a reasonable 
and credible expense sheet. 

Gone are the desperate guessing 
games; now you can start your next 
business trip with an easy mind because 
you've got the Executive Expense Report 
Generator. 

For the TRS-80 Level II16K. Order No. 
0135R $9.95 



ENERGY CONSUMPTION 

The Energy Consumption program 
will record your utility bills for up to a five 
year period. All you have to do is supply 
data for the following six categories, 
which will be stored on a data tape: 

1. GAS$$- Dollars spent on natural 
gas. 

2. CCF — Hundreds of cubic feet of 
natural gas used. 

3. H20$$- Dollars spent on water. 

4. GAL — Gallons of water used. 

5. PWR$$- Dollars spent on electricity. 

6. KWH- Kilowatt hours of electricity 
used. 

These six monthly averages and unit 
costs will be calculated upon your re- 
quest. The statistics section allows im- 
mediate retrieval of all information. You 
can compare data for a single month, or 
for multi-month periods in any combina- 
tion. 

The program is ideal for the following 
applications: 

A. Comparing your costs versus the 
rising costs of energy. 

B. Examining the seasonal effects upon 
your energy consumption. 




C. Analyzing the effectiveness of any 
conservation measures you may 
have undertaken. 

For the TRS-80 Level II 16K. Order No. 

0132R $9.95 



ENHANCED BASIC 

Enhance the power of your TRS-80 
Level II microcomputer with the En- 
hanced BASIC package. This package 
gives you many functions found in Disk 
BASIC plus other new features, without 
having to add a disk drive system. 

You can have: 

1. Enhanced string handling capabili- 
ties. 

A. An INSTR search function for 
finding strings within strings. 

B. Edit strings by replacement of 
portions of strings with sub- 
strings. 

C. Input a whole line of characters 
into a string variable with your 
own prompts. 

2. Build your own functions. 

A. Use this routine as a shorthand 
for repeated, complex relation- 
ships. 

B. Use your own function names. 

3. Use hexadecimal and octal con- 
stants directly. 

A. Avoid the hassle of hex-to-deci- 
mal manipulations. 

B. Use numeric and strings forms. 

4. A decimal-to-hexadecimal conver- 
sion function. 

A. Use it directly in program or cal- 
culator mode. 

B. Convert from variables or con- 
stants. 

5. Use up to ten user defined machine- 
language subroutines. 

A. Define the entry points with a 
new statement. 

B. POKE in machine-language sub- 
routines with this easy to use fea- 
ture. 

C. Use this to create faster graphics 
routines. 

6. Simulate keyboard INPUT from the 
cassette recorder. This powerful fea- 
ture will allow you to run a "key- 
board" session from tape. 

A. Record programs, commands, 
and input responses on tape. 

B. The programs can RUN and oper- 
ate exactly as if you were at the 
keyboard. 

7. A keyboard debounce routine 

The package documentation includes 
detailed instructions, with listings of 
sample programs, that will have you 
practicing and using Enhanced BASIC 
in no time at all. 

So stretch the limits of both your 
imagination and your TRS-80 with the 
Enhanced BASIC package. 

Order No. 0077R (cassette version) 
$24.95 



TO ORDER: Look for these programs at the dealer nearest you. If your store does not stock Instant Software send your 
order with payment to: Instant Software Inc., Order Dept., Peterborough, N.H. 03458 (add $1.00 for handling) or call 
toll-free 1-800-258-5473 (VISA, Master Charge and American Express accepted). 



Instant Software 



Prices subject to change without notice 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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Instant Software New Releases 
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THE RUSSIAN DISK 

Scholars and diplomats know that in 
order to understand a foreign culture, 
you must know its language. In today's 
international politics and commerce, 
one of the most valuable languages to 
know is Russian. The Russian Disk can 
put you well on the road to mastering 
this vital language. 

This package will give you on-screen 
displays of the Cyrillic letters of the Rus- 
sian alphabet, detailed instructions of 
their proper pronunciation, plus exer- 
cises to aid you in recognizing and 
speaking simple Russian words. 

This package not only teaches you 
the words but also presents you with a 
quiz. You pick the words upon which you 
wish to work, then the computer will 
score you on your progress in learning 
the lesson. 

You can even practice typing in Rus- 
sian. The program will allow you to type 
letters, or words, using the complete 
Cyrillic alphabet, so that you can prac- 
tice writing hotel names, tourist attrac- 
tions and street addresses. 

This program is excellent for stu- 
dents, businessmen, scientists, and 
anyone who is interested in learning the 
Russian language. 

This package requires the following 
minimum system: 

1. ATRS-80Level II 16K. 

2. An Expansion Interface with 16K 
RAM. 

3. A single disk drive. 

4. Any compatible Disk Operating 
System. 

Order No. 0212RD $24.95 



THEWORDSLINGER 

When you think of word processors 
for the TRS-80, you think of multi-disk 
systems with lots of expensive RAM 
and peripherals. The Wordslinger 
system changes all that. 

The Wordslinger is an economical 
word processing program that was 
designed for the individual user or 
small business. It's ideal for personal 
or business correspondence. The pro- 
gram has automatic formatting for let- 
terhead stationary and envelope ad- 
dressing. You can write and edit 
business letters, reports, forms, even 
schoolwork. Text is stored on cassette 



tapes for fast, inexpensive retrieval. 
Once you've used The Wordslinger, you 
won't want to go back to your type- 
writer. , 

One of The Wordslinger's major ad- 
vantages is that you don't need disk 
drives or an Expansion Interface. The 
minimum system required is the TRS-80 
Level II with 16K of RAM and an ap- 
propriate printer (you may need an Ex- 
pansion Interface if your printer can't 
operate with just a printer interface 
cable, such as Radio Shack's part 
#26-1411 or 26-1416). 

Complete text editing is yours for the 
asking, just ask for The Wordslinger. 
Order No. 01 29R $29.95. 



DLDIS 

DLDIS is a three-pass, label-assigning 
disassembler which assigns labels 
(where appropriate) to routines in a 
machine language program to give an 
output which is identical to a hand- 
assembled source code. Using DLDIS, 
you have options which enable you to 
send the disassembly to either a 
lineprinter (Radio Shack parallel port) or 
to tape (for subsequent reassembly by 
Apparat's extension of Radio Shack's 
EDTASM™). Because of the use of 
labels, it is a simple matter to change 
any object code program by disassem- 
bling, and then making changes to the 
resultant source without losing track of 
jump/load addresses. DLDIS even has 
a comments column to display any 
ASCII characters used in a LD or CP op- 
code. 

Since DLDIS works only on in-memory 
programs, it has been made relocatable 
so that you may move it around in 
memory to avoid the program you wish 
to disassemble. As an added option you 
may also jump to memory locations and 
transfer control between DLDIS and 
other utility programs in your computer. 

This package requires the following 
minimum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interface. 

3. A single disk drive. 

4. Any compatible Disk Operating 
System. 

Order No. 0231 RD (disk-based ver- 
sion) $19.95. 



TO ORDER: Look for these programs at the dealer nearest you. If your store 
does not stock Instant Software send your order with payment to: Instant 
Software Inc., Order Dept., Peterborough, N.H. 03458 (Add $1.00 for 
handling) or call toll-free 1-800-258-5473 (VISA, Master Charge and 
American Express accepted). 




Instant Software 



SALES ANALYSIS — 

If your business is sales, whether as a 
salesperson or salesmanager, you're 
faced with some unique problems. How 
do you keep track of your day-to-day 
work, in what areas can you improve 
your sales technique, and how can you 
determine who your best prospects are? 
The Sales Analysis package is the 
answer to all these problems and more. 

This package is divided into several 
modules: 

The Sales Analysis module is design- 
ed to provide guidelines for determining 
an individual's sales performance, to 
analyze this performance and show you 
where it can be improved. 

The Data Storage module allows you 
to store data in an automated process- 
ing ledger. 

A Management Analysis module can 
take all the sales records for your group 
and show you who your best salesper- 
sons are, who needs more training and 
in what areas, and give you a sales 
forecast based on the projected im- 
provement of your group's sales techni- 
ques. 

Finally, the Market Analysis module, 
combined with the marketing data you 
supply, can show you where determined 
sales efforts can produce the most suc- 
cess. 

If your specialty is sales, then the 
Sales Analysis package is what you 
need. For the TRS-80 Level II 16K. 
Order No. 01 31 R (cassette-based) $24.95 

^2 Prices subject to change without notice. 

PETERBOROUGH, N.H. 03458 
603-924-7296 



^Reader Sen/ice index — see page 194 
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TUTORIAL 



How to incorporate machine code into your BASIC programs. 



Machine Code USR 



Larry McDonald 
4130 Ferrarra St. 
Jacksonville, FL 32217 

The major advantage that a 
machine language program 
has over a BASIC interpreter 
program is the speed of its exe- 
cution. This proves very useful 
for long running programs or 
when producing high-speed 
graphics. 

Program Listing 1 is a BASIC 
program that branches to a 
short machine language sub- 
routine and uses this subroutine 
to paint the screen white. Con- 
trol returns immediately to the 
BASIC program where we delay 
several seconds and then print a 
message. 

Before you try Listing 1, try 



the two test programs below 
and time them for comparison. 



Testl ..10FORX = 0TO127:FORY = 0TO47: 
SET(X,Y):NEXTY:NEXTX 

Test 2 . . 10FORX = 15360TO16384:POKEX, 
191: NEXTX (191 in POKE is ASCII 
code for white graphics byte.) 



Test 1 requires approximately 
47 seconds from the time you hit 
the ENTER key until the word 
READY is displayed. Test 2 runs 
much faster and only requires 
about seven seconds to com- 
pletely paint the screen. 

Whiting Out the Screen 

Now that you've made these 
comparisons, enter Listing 1. 
The first portion loads the ma- 
chine language program (Exam- 



100 
1 10 
120 
130 
140 
150 

ieo 

170 
180 



DATA 229. 
DATA 17.1 
PRINT "Z~0 
PRINT "WHE 
TRINT'A M 
INPUT'PRE 
FOR N=203 
PRINT :PRI 
TRINT "THA 
PRINT ITRI 
TRINT 'MAC 
INPUT'PRE 
P0KE16526 
X=USR (0) 
REM -AD 
FOR N=1T0 
PRIHT :PRI 
PRINT "BAS 
FRINT :PRI 



. 11 



1 .50 . . 60 ,33 . . 60 

.255.3.23 7. 17 6.225.201 

1INE LANGUAGE SUBROUTINE" :PRINT 

ENTER KEY IS TRESSED, THE PROGRAM HILL ENTER' 
! LANGUAGE PROGRAM VIA THE POKE COMMAND .': PRI NT 
rER TO POKE THE PROGRAM INTO MEMORY • ". AS : CLS 
1364; READH; POKE N.M:NEXTN 

THIS POINT, A PROGRAM HAS BEEN LOADED" 
L CAUSE THE SCREEN TO BE PAINTED WHITE. ' 

WILL USE THE USR(O) COMMAND TO BRANCH TO THIS" 
LANGUAGE PROGRAM" :PRINT 

'■: ENTER KEY TO BRANCH TO THE SU3R0U TINE " ', AS ; CLS 
'OKE16527 .79 



ELAY LOOP TO KEEP THE SCREEN WHITE FOR SEVERAL SECONDS 

1200 :NEXTN ;CLS 

NT "AT THIS POINT. WE HAVE RETURNED BACK TO THE' 

IC PROGRAM AND HAVE CONTINUED EXECUTING. ■ 

NT 'END OF PROGRAM ..." 



Program 1. BASIC Program to White Screen. 



pie 1) and waits for the ENTER 
key to be depressed before ac- 
tually executing the subroutine. 
For comparison purposes, be- 
gin timing when you press EN- 
TER and count until the screen 
is completely white. When you 
run this program, you should 



find that the screen is complete- 
ly white before your finger has 
been lifted from the ENTER key 
(one second or less). 

You can really appreciate the 
meaning of the term microsec- 
ond when you realize that this 
simple program performed over 



100 
101 
105 
110 

120 
130 

140 

150 

151 

152 

153 

160 

169 

170 

179 

180 

185 

189 

190 

199 

200 

210 

2Z0 

230 

999 

1000 

1010 

1020 

1030 

1040 



POKE 16553.255 

CLS 

DIM BS(16),C(16) 

DATA , 0','l','2', , 3', , <i', , 5','6','7','8', , 9', , A','B', , C','D','E','F' 

DATA 0,1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 

FOR N=1T016:READBS(N)=NEXTN 

FOR N=ir016 :READC(N) :NEXTN 

PRINT" HEXADECIMAL DUMP ROUTINE" : PRINT 

PRINT'UIRITTEN IN LEVEL II BASIC WITH Z-80 MACHINE LANGUAGE SRTN' 

PRINT: INPUT'ENTER STARTING DUMP ADDRESS IN HEXADECIMAL *; AS 

REM NEXT LINE SPLITS AS INTO FOUR SEPARATE CHARACTERS 

A1S=MIDS(AS,1,1):A2S=MIDS(AS,2,I>:A3S=MID$(AS,3,1):A4S=MIDS(A$,4,1) 

REM NEXT FIVE LINES CONVERT HEX CHARACTERS TO DECIMAL 

N = 

SRS=A1$:GOSUB1000:A1=SR:N=0 

SRS=A2S:GOSUB1000:A2=SR:N=0 

SRS=A3S:GOSUB10 00:A3=SR:N=0 

SRS=A4S=GOSUB100 :A4=SR 

REM AT THIS POINT I HAVE CONVERTED ALL FOUR DIGITS AND AM READY 

REM TO MULTIPLY TO GET THE VALUES TO POKE TO THE SUBROUTINE. 

REM VARIABLE MS REPRESENTS THE MOST SIGNIFICANT BYTE, VARIABLE 

REM LS REPRESENTS THE LEAST SIGNIFICANT BYTE. 

MS=(A1*16)+A2:LS=(A3*16)+A4 

REM POKE DUMP L0C TO SUBROUTINE (MS TO 4F7D, LS TO 4F7C) 

POKE 20349, MStPOKE 20348, LS 

REM POKE START OF SUBROUTINE (4F7A) TO 16526+16527 

POKE 16527, 79:POKE 16526,122 

CLS 

REM NOW WE BRANCH TO MACHINE LANGUAGE ROUTINE 

X=USR(0) 

REM NOW WE HAVE RETURNED 

PRINT2960, " ; : INPUT' 1=C0NT . ,2 = NEW DUMP,3 = END PR0GRAM';Y 

IF Y=1THEN190 

IF Y=2THEN90 

END 

REM THIS IS THE CONVERSION MATCH SRTN TO DERIVE POKE VALUES 

N = N*1 

IFN>16THENPRINT'ERR0R. -RE-ENTER VALUE' :GOT090 

IF SRS=BS(N)THEN 1030 ELSE 1000 

SR=C(N):RETURN 

END 

Program 2. Hexadecimal Dump Program. 
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iss has yULQN 

for TRS-80* 
& YOUR COLOR TV 

NO MODIFICATION 
JUST PLUG INTO EXPANSION BUS 

64x32 GRAPHICS IN EIGHT COLORS 
EXPANDABLE TO 128x192 FOUR COLORS 
OR 256x192 SINGLE COLOR. 
MODELS INCLUDE RF UP-MODULATOR PARTS 
SOME ASSEMBLY REQUIRED- 
ASCII UPPER WITH INVERSE VIDEO 
MIX LOW-RES GRAPHICS & 
ASCII ON THE SCREEN. 
EXCHANGE WARRANTY ON PARTS. 
ADD S7 00 FOR 48 K SYSTEM. 

SPECIAL OFFER! 

UNTIL SEPT. 15, 1980 
Model C-2000 (Regularly S189 95 ) 

$1499 5 

Model C-1000 (Regularly $129 95 ) 

(LESS CASE, CABLE AND POWER SUPPLY) 



$99^ 



Mn. Residents Add 4% Sales Tax 

ADD $300 FOR SHIPPING & HANDLING 

= = Uinlbeiiralbecil wmm 
= =:§eipwuce visa- 

= =By§[beim§ Uric,, 

1011 WEST BROADWAY "* 378 
MINNEAPOLIS, MN., 55411 
(612) 522-6631 

'Trademark of Tandy Cc 



.SPIDER MOUNTAIN ADVENTURE^ 
/ ' ' \ 

Beyond the desolate outback of GRAYLOCKLAND lies the lair ol 
the spider SHELOB. Once a wizard's cavernous tortress. SPIDER 
MOUNTAIN is now a deadly trap from which only the most skilled 
adventurers emerge. Treasuie awai Is the fortunate. DEATH stalks the 
foolish. 

Can YOU solve the riddle of the SPIDER MOUNTAIN ADVENTURE, 
and come back alive? 

S14.95ontape $19.95ondisk 



LOST DUTCHMAN'S GOLD 



Deep in Arizona's Superstition mountains, under the watchful eye 
of Apache Indians, Ihe fabled LOST DUTCHMAN'S GOLDMINE awaits 
the adveniurer bold enough to challange the fates. With only a mule 
and a Winchester, and Ihe ghost ol an old gold prospecter named 
BACKPACK SAM to guide you. do you dare to venture into the misty 
mountains, where it is said that the Devil, himsell, prolects the LOST 
DUTCHMAN'S GOLD? 
$14.95 on tape $19.95 on disk 



DEAT H DREADNAUGHT ADVEN TURE 

This mind chilling thriller will freeze the blood in your veins. You are 
trapped aboard an ancient alien battlecruiser whose entire crew was 
murdered brutaly. You are the scout team's only survivor. Your ship's 
been smashed, but one alien shuttlecraft remains intact As you move 
about the wreck Ihe danger increases. You must secure air. food, fuel 
and batteries. Now, as prescious seconds of your life tick away you 
suddenly realize YOU ARE NOT ALONE! The creature that ripped this 
Ship apart is ALIVE and waiting for you to make a mislake. CAN YOU 
\ ESCAPE? Or will YOU be the creature's next victim. 
$14.95ontape $19.95ondisk 

WARNING: DEATH DREADNAUGHT IS RATED R due 10 
EXTREME descriplions of VIOLENCE 



SEND CHECK OR M/O (SHIPMENT WITHIN FIVE DAYS OF RECEIPT) 



■SEN 



SPECIAL 

TRIPLE ADVENTURE DISKETTE 

$35.00 

DOUBLE TAPE OR DISKETTE 

(ADVENTURES OF YOUR CHOICE) 

$24.95 

DEALER INOUIRYS INVITED ^364 



The 

I Programmers 

I Guild 



PO Box 66 
Peterboro. NH 03458 
PH (603) 924-6065 A 



Introducing 

COBOL + FORTRAN + 
64K RAM 

FOR YOUR TRS-80 

• Release your software chains with the NEW 
FREFDOM OPTION, a plugable change that restruc- 
tures the TRS-80* on command to perform like a 
large Z80 system. All the TRS-80* features are re- 
tained. All TRS-80' software will run without inter- 
ference. The option is supplied with a fully assem- 
bled & tested FREEDOM BOARD. T8/OS on a 5V4" 
disk, and complete instructions. T8/OS allows your 
TRS-80" to execute most software originally written 
for CDOS,, TSA/OS,, and CPIM, operating systems. 
T8/OS opens the door to higher level languages and 
existing programs. 

♦ To further enhance your TRS-80' processing power, 
a MEMORY EXPANSION OPTION is available to re- 
place, on command, the ROM and provide A FULL 
64K RAM. This option is switched into operation by 
the FREEDOM BOARD providing 57K of USER RAM 
with T8/OS loaded. Both options are fully assembled 
& tested and fit into the TRS-80* keyboard enclo- 
sure. Write for more details. 6 Mo. Board Warranty. 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION. . . . $295 

Send Check or Money Order to: 

(MASS. RESIDENTS, PLEASE INCLUDE 5% TAX) 

(•E«W« ltd* ,'i4i 

P.O.Box 2368 • Woburn, MA. 01888 
(617) 944- 5329 



NEW & IN STOCK 



77 TRACK 
DISK DRIVES 



$599. 



00 



SVi" drive with power supply and enclosure. 



C-ITOH™ STARWRITER $2195.00 

(DAISY WHEEL PRINTER) 



SUPERBRAIN 



1M 



COMPUSTAR 



TM 



300 - K DISK STORAGE 64 K $2995.00 

10 Maxell Diskettes FREE WITH EVERY UNIT 



TRS-80™ 64 K MODEL II $3626.00 

IN STOCK • IMMEDIATE DELIVERY 

ORDER NOW (1) 800 345-8102 



MODEL II DISK DRIVES 

1 drive, single enclosure S 899.00 

1 drive, multiple enclosure S1069.50 

additional drives for multiple enclos ur e S 540.00 



MODEL I DISK DRIVES pertec 40 trk $340.00 

$159,00 less than Radio Shack 



EXPANSION INTERFACES 



0K $278.10 



16 K $376,10 



32 K $474.10 



List Our Price 
TRS-80 4K Level II $619,00 $575.70 
TRS-80 16K Level II S849.00 $ 789.60 
Telephone Modem $199.00 S 185.10 
RS 232 $ 92.10, 



NEC 5510 (In Stock) 
Centronics 730 
Centronics 737 
Centronics 779 Sale 



Our Price 
$2950.00 
$ 695.00 
$ 950.00 
$ 995.00 



VR DATA 

ORDER 1-800-345-8102 

NOW (215) 461-5300 



s Reader Service index — see page 194 



777 HENDERSON BOULEVARD TUT 

FOLCROFT INDUSTRIAL PARK ■■*■ 

FOLCROFT. PA 19032 JK| 

Our Prices Are For Cash ' ''^^~, 

Payment Terms. Call For Other Terms. 



• 31 



V R DATA'S TRS-80™ 
SWEEPSTAKES 

Celebrating V. R. DATA'S 8th Anniversary 

OVER $1700.00 in PRIZES 
GRAND PRIZE - 16 K Lll TRS-80 

TWO SECOND PRIZES - DISK DRIVES 

FOUR THIRD PRIZES — 8 50.°° gift certificates 

SWEEPSTAKES RULES 

1. ALL ENTRIES MUST BE SUBMITTED ON 
ORIGINAL ENTRY BLANK. 

2. ONE ENTRY PER PERSON. 

3. WINNERS SELECTED BY RANDOM DRAWING, 
NOTIFIED BY MAIL. 

4. ENTRIES MUST BE RECEIVED BY 10/31/80. 

5. VOID WHERE PROHIBITED BY LAW, 
NO PURCHASE NECESSARY. 

MAIL NOW TO ENTER V, R. DATA'S SWEEPSTAKES 



name . ,.:.,. '.:.:., 

ADDRESS 

CITY... .....STATE.... .ZIP. 

TELEPHONE .. .OCCUPATION 

COMPUTER EQUIPMENT OWNED ,, 



INTENDED USE. , 

M SE 



FOR CATALOG 
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Q W R D F R\M\A TTERRBGCYPQGZIVJBPCEB 
SHNOBTXA D\0\F REEIDEASEEDSRPVYXXON 
VLTWGYROS G\R\E DPVJKLMRHECTVXHNAFH 
BJELFEQAZG Z\P\P CRYPTOUPZAXZQJEJTS 
ZDQINKFSNAG T\H\L GFJSEYWTVNPFJVZVC 
BVLFGULMNSNE K\0\T TSCYMBCGWBQOFMPO 
U0VZKBFI8EPUY A^E XMOLERZJXACHYRU 
PKBMYUCWOCGLDMRXSEWMCZTIONGULYK 
ZMHOUPXBLKACAPJJUKBFLIPCNEFQAFE 
JWTAYCJGWHETMNHAQZQJLOWERCASETH 
HRSSKVCDGCBOAPTGTHTXTPMLEILRETQ 
EYINDLXXCBCVXDZHOPRYVYPRVADNTOL 

FREE IDEA SEEDS f" 
Have you ordered yours? If not, you better reconsider. More 
than 5000 happy subscribers think you don't know what you are 
missing. These are FREE programs for your TRS-80 and all you 
have to do to get them is send us a legal size SASE. That Is 
all there is to it. Simple? You betl Every month there's a 
new program and you really don't want to miss any of them! 
When you stop and think about it there are only three ways to 
build your software library. One way is to write the program 
yourself. Another way is to purchase programs. The best way 
is to have the programs given to you and that is just what we 
are doing 1 All FREE IDEA SEEDS are our own original programs 
and we want you to have them to use, rewrite, and expand. 
Send your legal size SASE to: 
CECDAT, Inc. ^ 62 PO Box 8963 Moscow, ID 838*»3 



this publication 
is available in 
microform 




Please send me additional information. 

University Microfilms International 

300 North Zeeb Road 1 8 Bedford Row 

Dept. P.R. Dept. P.R. 

Ann Arbor, Ml 48106 London, WC1R 4EJ 

U.S.A. England 

Name 

Institution : 

Street 

City 

State 



Zip 







TART OF 


CONTROL ROUTINE — 








4F7A 


E5 








PUSH HL 


.SAVE HL BEFORE WE CHANGE IT 


4F7B 


21 


If 


tt 




LD HL,»M#H 


.LD START ADD TO HL 


4F7E 


11 


40 


3C 




LD DE, 3C40H 


.LD VIDEO ADD TO DE 


4F81 


0E 


08 






LD C, 8 


.LD 8 TO C FOR LINE COUNT 


4F83 


06 


10 




LOOP 


LD B, 16 


.LD 16 TO B FOR BYTE COUNT 


4F85 


CD 


AB 


<iF 




CALL LOCI 


.CALL SRTN TO PRINT BYTE L0C 


4F88 


7E 






L00P1 


LD A, (HL) 


-LD BYTE TO ACCUMULATOR 


4F89 


CD 


C6 


4F 




CALL CVERT2 


.CALL 2 DIG. CONV. ROUTINE 


4F8C 


23 








INC HL 


.INCREMENT BYTE POINTER 


4F8D 


3E 


20 






LD A, 20H 


-LD BLANK TO ACCUM. ( SEPARATOR 


4F8F 


12 








LD (DE), A 


.LD ACCUM W/BLANK TO SCREEN 


4F90 


13 








INC DE 


.INCREMENT VIDEO POINTER 


4F91 


05 








DEC B 


.DECREMENT BYTE COUNTER 


4F92 


C2 


88 


4F 




JNZ, L00P1 


.IF NOT 16 BYTES, JMP LC0P1 


4F95 


06 


09 






LD B, 09 


-LD 9 TO B, TO SPACE TO NEXT 


4F97 


13 






L00P2 


INC DE 


.INCREMENT VIDEO 9 TIMES 


4F98 


05 








DEC B 


.DECREMENT COUNTER 


4F99 


C2 


97 


IF 




JNZ, L00P2 


.B NOT 0, JUMP L00P2 


4F9C 


0D 








DEC C 


.DECREMENT C (LINE COUNTER) 


4F9D 


C2 


83 


4F 




JNZ, LOOP 


.IF NOT 6 LINES, JMP LOOP 


4FA0 


22 


7C 


4F 




LD (4F7C), HL 


-SAVE POINTER LOC TO CONT. 


4FA3 


El 








POP HL 


-RESTORE HL BEFORE RETURN 


4FA4 


C9 








RET 


.FINAL RETURN TO BASIC 


4FA5 


00 


00 


00 




NOP 


-FILLER BYTES IF NEEDED 


4FA8 


00 


00 


00 




NOP 


-FILLER BYTES IF NEEDED 




END OF CONTROL ROUTINE START OF 


LOCATION SRTN 


4FAB 


7C 






LOCI 


LD A, H 


.LD H REG TO A REG 


4FAC 


CD 


C6 


4F 




CALL CVERT2 


.CALL CONV.RTN TO DECODE BYTE 


'.FAF 


7D 








LD A, L 


.LD L REG TO A REG 


4FB0 


CD 


C6 


4F 




CALL CVERT2 


.CALL CONV.RTN TO DECODE BYTE 


4FB3 


3E 


20 






LD A, 20H 


.THIS AND NEXT 6 LINES SIMPLY 


4FB5 


12 








LD (DE), A 


.LOAD BLANK TO ACCUM. AND 


4FB6 


13 








INC DE. 


.THEN LOAD TO VIDEO - PURPOSE 


4FB7 


12 








LD (DE), A 


.IS TO LEAVE THREE SPACES 


4FB8 


13 








INC DE 




4FB9 


12 








LD (DE), A 




4FBA 


13 








INC DE 




4FBB 


C9 








RET 


.RETURN FROM THIS SRTN 




END OF LOCATION SRTN 






4FBC 


00 


00 


00 00 




NOP 




4FC0 


00 


00 


00 00 




NOP 


-THESE 3 NOP'S JUST FILLERS 


•tFCt 


00 


00 






NOP 






START 


OF 2 


DIGIT CONVERSION ROUTINE - 




4FC6 


D9 






CVERT2 


EXX 


-EXCHANGE REG. TO USE C 


4FC7 


<iF 








LD C, A 


-LD ACCUM. TO C TO SAVE 


4FC8 


D9 








EXX 


.EXCHANGE BACK TO NORMAL REG. 


4FC9 


CB 


3F 






SRL A 


-THIS AND NEXT THREE LINES 


4FCB 


CB 


3F 






SRL A 


-USED TO SHIFT MS BITS TO 


4FCD 


CB 


3F 






SRL A 


.THE LS BITS AND ZERO OUT 


4FCF 


CB 


3F 






SRL A 


-THE MS BITS(TO DECODE LEFT) 


4FD1 


CD 


El 


4F 




CALL TST1 


-CALL SRTN TO CONVRT TO ASCII 


4FD4 


12 








LD (DE), A 


-LD CONVRTED BYTE TO VIDEO 


4FD5 


13 








INC DE 


-INCREMENT VIDEO FOR NEXT 


4FD6 


D9 








EXX 


-EXCHANGE REG. TO RESTOR BYTE 


4FD7 


79 








LD A, C 


-LD BYTE BACK TO ACCUM. 


4FD8 


D9 








EXX 


-EXCHANGE BACK TO NORMAL REG. 


4FD9 


E6 


OF 






AND, 0FH 


.AND TO MASK OFF MS BITS 


4FDB 


CD 


El 


4F 




CALL TST1 


.CALL SRTN TO CONVRT TO ASCII 


4FDE 


12 








LD (DE), A 


.LD CONVRTED BYTE TO VIDEO 


4FDF 


13 








INC DE 


.INCREMENT VIDEO FOR NEXT 


4FE0 


C9 








RET 


.RETURN FROM THIS SRTN 




EHE 


OF 


2 DIGIT CONVERSION ROUTINE — 


— START OF ASCII SRTN 


■•FE1 


C6 


30 




TST1 


ADD A, 30H 


.ADD TO CVERT TO ASCII 


4FE3 


FE 


3A 






CP 3AH 


-CPARE TO SEE IF ALPHA 


4FE5 


FA 


EA 


r,F 




JPM, TST2 


-IF NUMERIC, JP TO RET (TST2) 


4FE8 


C6 


07 






ADD A, 07H 


.ELSE, ADD 7 FOR ALPHA 


4FEA 


C9 






TST2 


RET 


-RETURN FROM THIS SRTN 




ENt 


OF 


ASCII SRTN — 








Program Listing 3. Hexadecimal Dump Routine. 



4F7A 


E5 




PUSH HI 


SAVE HL REG. 


4F7B 


3E BF 




LD A, BFH 


LD GRAPHICS BYTE TO A 


4F7D 


32 00 3C 




LD (3C00),A 


LD A TO 3C00 


4F80 


21 00 3C 




LD HL, 3C00H 


LD VIDEO ADD TO HL . 


4F83 


11 01 3C 




LD DE, 3C01H 


LD VIDEO+1 TO DE. 


4F86 


01 FF 3F 




LD BC, 3FFH 


LD 1023 TO BC. 


4F89 


ED B0 




LDIR 


BLOCK TRANSFER INSTR. 


4F8B 


El 




POP HL 


RESTORE HL REG. 


4F8C 


C9 




RET 


RETURN TO BASIC PROG. 




Example 1. 


Mach 


ine Language £ 


ubroutine. 



a thousand operations in the 
time it took us to press and re- 
lease the ENTER key. 

Program Listing 2 is a hexa- 
decimal dump program. The BA- 
SIC program obtains the desired 
starting address. This address 
is then converted to hexadeci- 
mal and inserted into the sub- 



routine via the POKE command. 
The starting location of the ma- 
chine language routine is then 
POKEd into memory locations 
16526 and 16527. 

At this point, I use a state- 
ment containing the USR(O) 
function (for instance, X = 
USR(O)) which causes control to 
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pass to the memory location 
loaded into bytes 16526 and 
16527. 

The machine language rou- 
tine handles the actual conver- 
sion and display of the dump. 
This program displays eight 
lines of sixteen bytes per line (32 
characters). It also displays the 
starting location for each line as 
the first four characters on the 
line. 

The time required to convert 
and display each screen (eight 
lines by 16 bytes) is usually 
about one second. When the 
machine language subroutine is 
completed, control is returned 
to the BASIC program by means 
of an unconditional return (RET). 

At this point, the BASIC pro- 



/START 
■8UBR0U T 



3 



LOAD DUMP LOC 
TO HI REG. 
(POKED TO THIS 
INSTRUCTION! 



LOAD START 
VIDEO ADDRESS 
TO OE REG. 
(3C40I 



LOCI CALL LOCI 



SRTN TO PRINT 
LOCATION AT 
BEGIN OF LINE 



CVERT2 CALL CVERT2 



TO CONVERT THE 
BYTE TO TWO 
DIGITS 



LOAD THE SPACE 
IN 'A' REG TO 
NEXT MEMORY 
LOCATION (DE) 




Fig. lb 



CVEST2 CALL CVERT2 



TO CONVERT THE 
1ST BYTE TO TWO 
DIGITS 



CVERT2 CALL CVERT2 



TO CONVERT THE 
2ND BYTE TO TWO 
DIGITS 



LOAD SPACE IN A' 
REG. TO NEXT VIDEO 
LOCATION (DE) 



LOAD SPACE IN A' 



LOAO SPACE IN A' 
REG. TO NEXT VIDEO 
LOCATION (DEI 



/RETURN TO "\ 

^CALLING BOUTINS J 

Fig. 1a 



LOAD 9 TO B REG 
AS COUNTER TO 
INCREMENT OE TO 
BEGIN OF NEXT LINE 




DECREMENT C 
REG. TO SHOW 
THAT LINE WAS 
COMPLETED. 




SAVE HL POINTER 
TO 4F7C AS START 
ADDRESS IF 
CONTINUING 
SAME DUMP 



f RETURN \ 
I TO BASIC J 




u^A ecc 

tpy Conned 
X \ Softujeor . 




•CANNED SOFTWARE (. 



SOFTWARE! 



Yes! Quality Software for the TRS-80 is now 
written & available. BCC is pleased to be able to 
present some very fine software now with even 
more available in the very near future. Also we 
develop custom designed software for your 
every need. Write us for a FREE price quote. 

Jtrs-80 is a trade mark ol (hi- Radio Shack I 

* For Software Think BCC 



o Mail Base 80 

A RANDOM ACCESS progr; 



HOI) I (Requires 48K t. h drives) Sb9.9'> 

_ MOD lilRequiros 48K h U dr i vcs)S129 .9'> 

which keeps track .si an unlimited number ..I entries. I'l 

Irect access of Information in any order. Today, list all people w!„ 

nding bills I, tomorrow produce a list in zip-rode order. EXCELLENT! 



o Oil Delivery 

A system for the "*8( 

o Vendor mo» i ^m 

This program keeps track of 
direct access ol coded inlor 
various other fields. 



i 48K t 2 drives) S19.9S 
unlimited number (h'lO per disk) uf 
Linn by vendor number , (. also permit 



^=^ For Supplies Think BCC -=^0, 

oDJSkS & TapeS _«. I«h diskettes 1M Brand SM.« (10 In pus. ease) 

8 Inch diskettes )M Brand $04. V> (Box of III) __5V'Vurbat in S39.9S (Box ..I 10) 

Cassettes Very High quality S)6/dn?' C20's. AIM) 'n STAC stackable cassette 

holders. Each holds 8 cassettes. S3. ilea 

D PrinterS The fabulous BASK 2 PRINTER 9b .liar ASCII with Traitor Feed t. 2K 
Buffer. This printer just can't be beat!!! $649.0') (2 for SI200.00) 
RECONDITIONED CENTRONICS 102A O30 chars/sec!!!) S1 100.00 



4t : . Master Charge Ex P' I)a,u 
3£ : i Visa Signature _ 



ORDER NOW! All progra 
additional charge of $7.00 



me on quality cassettes. Programs arc available on diskette for an 
rder. NYS residents add 7%. Check boxes of items being ordered: 



» of items ordered Total amount enclosed I All items must be prepaid) 

Bourrut Consulting Corporation 

21 Friendly fid. Smithtown. n.Y. 11787 ^57 J 



^Reader Service index— see page 194 
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gram gives you three options. If 
you enter a one, the next con- 
secutive eight lines will be 
displayed. If you enter a two, 
you are allowed to specify a new 
dump location. A three ends the 
program. 

Program Listing 3 is the ma- 
chine language subroutine. Al- 
though the format is similar to 
an assembler's output, it was 
manually entered. 

When actually entering the 
data (via T-BUG), you use only 
the first two columns. The first 
column identifies the memory 
location, while the second col- 
umn contains the actual hexa- 
decimal values. 

The program can be saved on 
tape with T-BUG (suggested 



name = HEXDMP), and the BA- 
SIC program can be saved im- 
mediately following it. 

When you power up your Lev- 
el II, answer the 'MEMORY?' 
statement with 20340. The sub- 
routine loads via the system 
command, and then the main 
program loads and executes in 
the normal manner. 

Comments have been added 
to Listing 3 to identify the var- 
ious program functions. 

Easier Loading 

Since it is a short routine, it 
may be easier for you to load the 
machine language subroutine 
as part of the BASIC program, 
using the POKE statement. Add- 
ing the statements shown in Ex- 



32 DATA 2 29, 33, 122, 79, 17, S4, 60, 14, 8, 6, 16, 20 5, 171, 79, 126 .2 05, 19B. 79 

33 DATA 35,62 ,32, 18 ,19, S, 194, 136.79 ,6 ,9 ,19, 5, 194, 151 ,79 ,13 , 194 

3 4 DATA 131 ,79,34 ,124 ,79,22 5,201 . , 0, , 0,0, 0, 124,20 5, 19 8 ,79 ,125 ,205 

35 DATA 198, 79, 62. 32, 18, 19, 18, 19, 18, 19, 20 1.0, 0,0, 0.0, 0,0, 0,0, 0,21 7 

3 6 DATA 7 9,217,20 3,63 ,2 03 ,6 3,20 3,63 ,2 03 ,63,205,225,79,10,19,217,121 

3 7 DATA 217.230 ,15,20 5,225,79,18,19,201 ,198,48, 2S4, 58 ,250 .2 34 .79 

38 DATA 198,7,201 

Example 2. Additions to POKE Machine Language Subrou- 
tine. 
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VIDEO SCREEN 
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Application. COMPLETELY 
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BUSINESS APPLICATION ADVANTAGES 




• Standard Auto. Operator Error Prompts 
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Easier Prog. Development 
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Improved Performance 




DISTRIBUTED ON DISKETTE - - - INCLUDES: 




• Screen Prep. Utility 


• ISAM Subroutines 




• DATAENTR Subroutines 


• ISAM Utilities 




• Example Program 


• Documentation 




• Complete Documentation 


• Mail list Sample Application 
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$90.00 




TRS-80* MODEL 1 & II SOFTWARE FROM: 
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Redding, CA 96001 (916)221-0740 
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CHARACTER TO 
ASCII 
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WITH OF IHEX1 TO 
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BITS 



Fig. 1c 



ample 2 to Program Listing 2, 
eliminates a separate load of 
the subroutine. 

For those interested in delv- 
ing into machine language pro- 
gramming, a flowchart of the 
subroutine logic is included as 
Fig. 1. 

While experimenting with the 
USR(0) function, you might en- 
counter one or two idiosyn- 
crasies. The first is that you 
have to save the HL registers 
(PUSH HL) as the first part of the 
subroutine and then restore 
these registers (POP HL) before 
returning to the BASIC program. 
Failing to do this causes the pro- 
gram to dump the program loca- 
tion only, instead of dumping 
the location you specified. Ap- 
parently, the USR(O) function 
transfers the address from 
16526 and 16527 to the HL regis- 
ters. 

The second idiosyncrasy is 
the result of a programming er- 
ror of mine. You might make the 
same. Initially, if I ran Program 



TSTl CALL TST1 



/RETURN TO "\ 

^CALLING ROUTINE J 



Listing 1 a second time, my ma- 
chine reset itself. I realize now 
that while painting the screen, I 
accidently moved the graphics 
byte 1025 times, instead of 1024 
times. This overlays the byte at 
4000 hex that contains the vec- 
tors for the RST instructions, ac- 
cording to the memory map. 

I mention the error here, be- 
cause the same error exists in 
the Radio Shack Assembler 
manual example program. 

Conclusion 

A word of warning: When ex- 
perimenting with machine lan- 
guage programs, It is very easy 
to make a mistake that causes 
the computer to reset Itself and 
wipe out the program, There- 
fore, It is a good practice to save 
the program before you attempt 
to run it. If you encounter any 
problem with these two sample 
programs, check carefully to 
see that you have the right 
numbers in the right places for 
the data statements, and that 
the POKE statements are as 
shown. ■ 



ADO 30 (HEX) TO 
THE CONTENTS OF 
THE 'A' REG 




ADD 7 (HEX) TO 
CONTENTS OF 
'A' REGISTER 



.CALLING ROUT 



s) 



Fig. 1d 
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THE HUMAN ADVENTURE! 

The Human Adventure is the ultimate in edu- 
cational game simulations. The entire human 
body is mapped into a complex maze that 
allows exploration of all major organ systems. 
As you travel through the body, your progress 
is mapped on the CAT-scan in the lower por- 
tion of the screen. Status reports, command 
input, energy levels, and full descriptions of 
all organs, veins, and arteries are displayed at 
all times and updated as you move. 

Will you merely explore? Or will you race 
against time to save a patient from cancer? 
Can you maintain sufficient energy levels to 
allow laser defense against white cell attacks? 
Will your immune defense screens hold? Will 
your supply of interferon hold out? What dif- 
ficulty level do you dare choose? 

Med Systems guarantees satisfaction. Return 
any order within two weeks for a complete 
and cheerful refund. 

TRS-80 Level II 16K $9.95 

Look soon for APPLE, PET, SORCERER, and 

NORTHSTAR. 

&] Med Sys £ g Software [visa] 

P.O. Box 2674 Chapel Hill, NC 27514 



For Canadian^ 
* OwnersT^i 

Lower Case Modification . , $65.00 
Cassette Load Modification . $20.00 
Radio Shack Numeric Keyboard 

Installation $50.00 

(You supply numeric pad) 

RS232C Serial 1/0 Port for Printer 
etc. (Complete with connectors) 
For Use With or Without Expansion 
Box $169.95 

For a complete catalog and credit 
vouchers worth $25.00 on future 
purchases send $5.00 to: 

•All Quotas in Canadian Funds 

ORTHON ^l p E? 



• 108 



12411 Stony Plain Rd., 
Edmonton, Alta, T5N 3N3 




These popular, professionally developed 
applications are low-priced. Guaranteed 
performance! Detailed booklet included. 

• BUDGET 8. INVESTMENT 817.95 

• BUDGET & CHECKING S 1^.95 

• HOME INFO RETRIEVAL 811.95 

• MATH (ages 5 and up) 8 7.95 

• STOCK PORTFOLIO 818.95 

• AUTOMOBILE 812.95 

• MASTERMIND game 810.95 

• MONTE CARLO game 8 7.95 

• and others from S 1+.95 

Send order, or 81.00 for descriptive 
catalogue (free with order) to: ^116 

NEWBY SOFTWARE DEVELOPMENT CO. 
299 DAWLISH AVE. TORONTO. CANADA M4N 1J6 



EDUCATIONAL 

SOFTWARE 

TRS-80* 

80 + Programs in: 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GAMES 



MATH 
BIOLOGY 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
MAILING LABELS 



Programs are grouped Into packages of 
4 to 7 programs priced at $14.95 per 
package Including shipping and han- 
dling. Available on disk or tape. 

Write for catalog: ^ 89 

MICRO LEARNINGWARE, BOX 2 1 34, 
|JN. MANKATO MN 56001, 507-625-2205^ 
)"TRS-80 is a registered trademark ot TANDY CORP."i 



SMALL QUANTITY 

STOCK CONTINUOUS 



FORMS 



• STATEMENTS 
• INVOICES 
• CHECKS 

• BILL OF LADING 
• SPEED-O-GRAM 
IMPRINTING AVAILABLE 

STOCK PRINTOUT PAPER 

9-1/2 x 11 1 PART 
14-7/8 x 11 1 PART 

STOCK CONTINUOUS LABELS 

Call or Write for Prices & Samples 



P®fF 



Discount data forms, inc. 

407 bsedhoujer lade south 

LOmBflRD, ILLinOIS 60148 

(312)629-6850 .„ 
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***** SECURITY CONTROL CENTER ***** 

You con control light when you're not ot home, ot rondom 
times. Turn video or recording equipment, oppllonce. bell, 
loud olorm device on ond off ot preset times, even months 
odvonce. * Comes with progrom. control module, ond oc 
odoptot * '(i29.30)* 

* * * AUTOMATIC TELEPHONE DIALER * * * 

You con dial telephone automatically 500 or more. Even if 
you forgot telephone number, if you remember part of it, 
you can find the number through search command. 

• Comes with program, control module and ac adaptor 

•($29.50)' 

****** 80-DEEP***** 

To be used to signal the end of long sort and signal you in 
cose of loading error. It also lets you know with one beep, 
two beeps, etc. Exactly what part of the program you are in. 

* Comes with instruction, control module and ac adaptor 

•($29.50). ^^ 

* * S-C COMPUTER TECHNOLOGY * * 

P.O. Dox 1246, Covina CA 91722 

Phone (213) 332-2216 or 966-9868 

k — Visa and Mastercharge accepted — A 



779 UPPER CASE/Iower case 
"Conversion Kit I" 

Expand the capabilities of your 779 line printer to 
include word processing!! Available to all Centronics 
779/TRS 80 Printer I owners is the option of lower 
case and changing slash Zero to standard 0. No etch 
cuts or soldering needed. Installs in minutes with a 
screwdriver. No program modification or additional 
interface is required. Price $125.00 

Motor control "CONVERSION KIT II" 

FOR ALL CENTRONICS 779/TRS 80 PRINTER I UNE PRINTERSII 

Our Conversion Kit ll" Motor Controller gives your 779 
the ability tc turn the motor on and off automatically. 
Removes the annoying noise of constant run, 
increasing the life span of your 779 / TRS 80 line printer 
motor! No soldering, software or nardware changes 
needed, installs easily. Price $95.00 

SAVE! Buy Service Technologies 'Conversion Kit I" 
and "Conversion Kit ii" together for the single price 
Of $199.00 

To order, please send check or money order in the 
proper amount to: f . rr- , , q 

C/eroice ..Jechnoloqiea, J/nc. 

32 Nightingale Rd. 

Nashua, N.H. 03062 *-' 297 

(603) 883-5369 
visa and Master Charge accepted (please include 
signature, expiration date and phone numben 

Service Technologies will pay all shipping and 
handling. 




This program wax developed for QUI Family business The goal was an orderly transi- 
tion from hand-kept boob to computerized bookkeeping. Accounts receivable in- 
eluding sales tax was the most lime consuming, thus the beginning. Time spent on ac- 
counts receivable has been cut in hall. More detailed statements sent earlier have de 
creased the outstanding receivable!. 

This program is designed lor business people, not computer or accounting experts. All 
inputs arc structured for fast and efficient operation. If a math check is required, exten- 
sions and totals are checked (aster than with a calculator If a malh check is not re- 



quired, only the amount of sale, less any taj 
formation on all customers and will disp) 
taxable customers making a taxable purchi 
the place of business, picking up at the plai 
gram. Amount ol tax and taxable sales are 
districts. 

Every entry can Ik- edited at any time. II 
after statements are printed, the correction 
Sales tax and monthly data in disk (lies an 

Bate of service charge and customers to n 

Overview and Sample Reports $5.00 

illation 125.00 



. is entered. The program stores sales tax in- 
y the proper tax. if any is required. Son- 
se, customers from a tax district other than 
e ol business are easily handled by the pro- 
i.mipilcil and stored for up to 100 sails rav 

in iiii'irriit nr missing transaction is lound 
; can be made and the statement reprinted, 
adjusted by this process 

^eivesersicfc .li.ir^i.iri. %,-l.s till lis tin- user 



Docu 

Program Disk & Docu 



nlatii 



.1200.00 



solutions* 

•277 Route 55 v^ 

La Grangeville, New York 12540 




^Reader Service index— see page 194 



80 Microcomputing, August 1980 • 183 



REVIEW 



For the computer neophyte, 
find out what a TRS-80 can do, 



The TRS 80 



Alexander Maclean 
WA2SUT/NNN0ZVB 
18 Indian Spring Trail 
Denville NJ 07834 



Only one small computer 
system is designed for 
home consumption, assuming 
little or no background in either 
computer programming or elec- 
tronics—the Radio Shack TRS- 
80. 

Once it is set up, which takes 
about 10-15 minutes the first 
time, you are ready to begin with 
the Level I manual which lives 
up to its reputation for being one 
of the best introductions to the 
computers and their language. 
Once you start playing with the 
computer you enter a mental 
state known as manic-keypres- 
sive. You won't want to stop un- 
til you get through the book as 
quickly as you can. 

Flaws Along the Way 

There are areas where I would 
fault the manual, especially 
since it's intended for a begin- 
ner. 

While there are few obvious 
errors, I should have known 
there was going to be trouble 
when one of their examples re- 



ferred to "Watts law." 

Often you have to refer to the 
answer pages to solve a prob- 
lem and find that their solution 
requires information you were 
not given. 

Some problems, they don't 
even mention. There is an infor- 
mation storing line, called a 
data line, which they say can ap- 
pear in any part of the pro- 
gram—beginning, middle, end 
or wherever. What they don't tell 
you is that data lines must be in 
the proper order among them- 
selves or there will be trouble. 

Imagine a list of quantities 
such as volts, ohms and am- 
peres. The data for these 
catagories can appear at any 
point in the program, but the 
information must be in the order 
of the headings, thus the volts 
data must be before the ohms 
data which is before the 
amperes data. 

Their graphics section in par- 
ticular lacks explanation. You 
are shown examples of graphics 
procedures, but you are left to 
figure out exactly what is hap- 
pening. You can imitate the 
manual, but you do not get a 
really firm grasp of what you are 
doing and why. 

It will probably take you about 
one to two weeks work (at 
several hours per day) to go over 
all of the material in the in- 
struction part of the manual. 



The Next Plateau 

That is where the next plateau 
begins. What can I do with the 
computer? That is where the 
Radio Shack manual, like others 
lets you down rather badly. 
There is an information gap be- 
tween learning the various me- 
chanical computer functions 
and developing working pro- 
grams based upon your own in- 
formation and needs. 

There are a few sample pro- 
grams in the back of the manual. 
Some are more than novelties, 
but even if studied they really 
only give you bits and pieces of 
information. Your learning de- 
pends on your ability to analyze. 

There is an additional Level I 
BASIC instruction course avail- 
able from Radio Shack for about 
$13, consisting of eight taped 
lessons to be played on your 
computer. Each lesson contains 
two to four parts. 

One salesman told me that 
the lessons were meant for peo- 
ple who weren't going to learn 
the manual, another said they 
were supplemental information 
to the manual. I tried the course 
to see what it did. It took several 
hours to cover what in actuality 
was very little information. 

For the material covered I 
think they could have done bet- 
ter with a small paperback 
costing a buck rather than a set 



of tapes costing much more. 

You will get better with exper- 
ience and there is no substitute 
for working with the computer. 
You'll start thinking in computer 
terms and find that you can 
build longer programs from your 
own information. 

This still leaves unanswered 
the question of what you can ac- 
tually do with your computer. 

There is potential in the Level 
1 4K, but it has limitations. Much 
depends on how well you can 
take the individual language ele- 
ments and combine them to do 
work. 

While you can store data or 
do record keeping with it, it 
takes computer memory that 
you don't really have. 

What the machine does best 
is manipulate numbers repeti- 
tively. Let's take a simple exam- 
ple, ohms law: E = IR. This ele- 
mentary formula can solve 
many problems. 

If we assume 10 volts and 10 
ohms we can solve for current (I) 
by the use of I = E/R. For one 
value we can do it easily with a 
pocket calculator or even pencil 
and paper. In what Radio Shack 
calls the calculator mode, you 
can use your computer as a poc- 
ket calculator. But a TRS-80 is 
more expensive. 

But suppose you wanted to 
know the current as you varied 
both the voltage and the resis- 



184 • 80 Microcomputing, August 1980 



SUPERIOR SOFTWARE PACKAGES 
DISK BASED TRS-80* 

SMARTTERM »$79.95 

UNQUESTIONABLY THE BEST 

SMART TERMINAL PACKAGE 

FOR THE TRS-80 

•True Break Key 

•Auto Repeat (Typomatic) keys 

• Programmable 'soft' keys 

• Forward/Reverse Scrolling 

Multipage Display 
•Transmit from Disk File, Screen 
or Buffer 

• Receive to Disk File, Buffer or printer 

• Multi Protocol Capability 

SPOOL-80 • $39.95 

A TRUE DISK-TO-PRINT DESPOOLER 
FOR THE TRS-80 

• Print Disk Files While Running 

Other Programs 

• Prints Compressed Basic Files 
•Includes RS-232 Driver for 

Serial Printers 

CALL US FOR YOUR CUSTOM 
SOFTWARE REQUIREMENTS 

MICRON, INC. Modem 

10045 Waterford Drive Versions 

Ellicott City, MD 21043 Available 

(301)461-2721 Soon 

• TRS-80 is a Trademark of Tandy Corp. 



Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

REMsdft proudly announces a more effi- 
cient way, using your own TRS-80® . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience. 
Our unique package, "INTRODUCTION TO TRS-80* 
ASSEMBLY PROGRAMMING", will provide you with 
the following: 

• Ten 45-minute lessons on audio cassettes. 

• A driver program to make your TRS-80® video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A textbook on TRS-80® Assembly Language 
Programming. 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer. 

• How to access and use powerful routines in your 
Level II ROM. 

This course was developed and recorded by 
Joseph E. Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio. The minimum 
system required is a Level II, 16K RAM. 

REMASSEM-1 only $69.95 



REMsdft, Inc. 

571 E. 185 St. 
Euclid, Ohio 44119 

(216)531-1338 





<wo 



Include $1.50 lor shipping and handling. 
Ohio residents add 5'/?% sales tax. 

TRS-80 '- is a trademark ot the Tandy Corp. 



YOU'VE LOVED OUR WAR GAMES AND OUR FANTASY GAMES: 
AND NOW YOU'LL GO CRAZY FOR OUR — 

NEW COMPUTER GAMES! 

HERE ARE SOME OF OUR NEWEST: 

COMPUTER AMBUSH 

A computer simulation of squad level combat during World 
War II. In this two-player or solitaire game each player com- 
mands up to ten soldiers and attempts to complete one of the 
many different missions that can be assigned. An exciting 
simulation that brings realism to your computer. 
TRS-80 Model I. 32 K Disk $59.95 

Apple II, 48 K Disk $59.95 

RESCUE AT RIGEL 

As Sudden Smith you can free the prisoners of the High Tol- 
lah in this science fiction simulation of role-playing in which 
the computer is the referee. This STARQUEST scenario ties 
role-playing with the universe of Invasion Orion in a fast- 
paced game using graphics and real-time action. 
TRS-80 Level II, 16K Tape $19.95 

Apple II, 32K Tape $19.95 

TRS-80 Model I, 32 K Disk $24.95 

Apple II, 48 K Disk $24.95 

WORLD'S EDGE 

The year is 1998 and Earth is doomed unless you can ob- 
tain two kilograms of a rare mineral found only on an aster- 
oid. The search can be costly as the natives of the asteroid 
would dearly like to see you end your life, but only you can 
save the Earth. This machine language 'ADVENTURE' takes 
you to the edge of tomorrow for hours of computer fun. 
TRS-80 Level II, 16K Tape $14.95 

ASK ABOUT OUR 180 DAY GUARANTEED SALES POLICY 

DEALER & DISTRIBUTOR INFORMATION 
^ 355 AVAILABLE ON REQUEST O 

MAIL ORDERS WELCOME! 

01956 Pass Road 

Gulfport, MS. 39531 

(601)896-8600 




DISTRIBUTORS 




CHALLENGING 
NEW— EXCITING 




*A game of skill and daring that will 
not be forgotten in a few plays like 
other cassette games. 

'Travel through one of over a million 
random dungeons, each with a maze of 
over 25 random rooms, 

'Search for countless treasures while 
you fight against monsters, traps, and 
time. 

•TRS-80 Level II. I 6I< BASIC cassette 
comes with easy printed instructions, 
complete with sound effects. 

BK-I $7.95 
[Pa. residents — add 6% sales tax) 

Send your check ot money order now to: 

JMS Corp. ^249 
Box 18083 
Pittsburgh, Pa. 15236 



BRING YOUR TRS-80 
KEYBOARD TO LIFE! 

More Ihon o year 090 we used ihis headline lo introduce AUTOK and 
OEDIT. !he keyboard oulorepeal and quick edit utilities for level II BASIC. 
They've been very popular, but we couldn't resist working them over 
onywoy. in response to customer suggestions. The result? KEYEDIT, vast- 
ly improved AUTOK. QEDIT. and a tew things more. 

With KEYEDIT and your Level II or Disk BASIC system, you get: 

• Debouncing. No need to use Radio Shack's KBFIXI 

• Autorepeat on every key. Just hold a key down, and alter a hall- 
second delay, the character repeats about eight per second. 

• Single-keystroke keyword entry. Hold down SHIFT, hit a letter key. 
and on entire BASIC keyword is spelled out ot once. Plus, you can os- 
sign any keyword to any key! 

• Keyboard macro facility. Any frequently-typed pattern can be defined 
and later invoked in a single keystroke. You just fill in the blanks. 
Takes the drudgery out of repetitive keying. 

• Screen-oriented editing. KEYEDIls cursor moves anywhere in a display- 
ed program listing for instant insertions and deletions. Plus, whole 
statements can be copied to other ports of the program or combined to 
form longer ones, without retyping the text. Mokes BASIC s EDIT func- 
tion obsolete I 

• Eosy loading. KEYEDIT loads from cassette using CLOAD (even though 
it's written in machine language/, and may be saved on disk. Features 
can be deleted selectively just by deleting lines. Once RUN. KEYEDIT pro- 
tects itself in memory ond links into BASIC, where it unobtrusively 
awaits your command. 



Thorough do 



mat 



on. Each le 
lodification 



.plained in'de 



llong with 



KEYEDIT will save you hours of effort in BASIC program development. So 
why waste another minute? Bring your keyboard to life today with 
KEYEDITI 



Q 



DISCOVERY BAY 
SOFTWARE CO. 

P.O. Box 464 Port Townsend, WA 98368 




^ Reader Service index — see page 194 
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tance, say 10 to 100 volts in ten 
volt steps with the resistance 
changing at each voltage level 
from 1 to 10 ohms in one ohm 
steps. 

This takes 100 separate cal- 
culations. It would take some 
time to work out with the pocket 
calculator or using the com- 
puter in its calculator mode. 
But you could write a short pro- 
gram to solve it. The computer 
takes off on RUN and you have 
the answers in a few seconds. 

Now suppose you wanted to 
know the power for each set of 
values. We have 100 values 
which means 100 more calcula- 
tions for the power formula. This 
takes only a few extra lines add- 
ed to the program. Now you 
have twice as much information. 

Let's get real mean. Suppose 
you had a precision requirement 
and needed to know the values 
from 1 to 100 volts in 1 volt steps 
and 1 to 100 ohms in 1 ohm 
steps. The program would be 
just about the same length. Just 
a few numbers would change. 
But you would be talking about 



10,000 calculations, plus 
another 10,000 for the power for- 
mula. 

Try that on your pocket cal- 
culator or with pencil and paper. 
On a computer, it might take 
some time to run, but it would. 

Three Salesmen 

Now let's look at another op- 
eration. Let's assume we have 
three salesmen, as in Table 1. 
Smith, Jones and Rogers each 
earn so much in sales, spend so 
much to make it and have a total 
earnings and percentage figure. 

We would like the computer 
to list names and figures and 
then do calculations based 



upon the data. Here is where we 
run into computer problems. 

The basic computer will not 
give you a list of names and 
figures like that. However, the 
computer can take the earnings 
and costs and figure the net 
earnings and the percentage 
earned. 

Notice that these figures ap- 
pear across the line. In that form 
the computer will do these cal- 
culations on each person. 

Now look at the bottom 
figures. These are the overall 
totals for the earnings and ex- 
penses. This requires the com- 
puter to figure from top to bot- 
tom. But a Level I cannot read or 





GROSS 


COST 


NET 




PERCENTAGE 


Smith 


10,000 


2,500 


7,500 




75% 


Jones 


10,000 


3,000 


7,000 




70% 


Rogers 


9,000 
29,000 


500 
6,000 


8.500 
23,000 




94.44% 


79.31 % 


Table 1. 


While the computer figures 


across 


the lines, Level 1 


cannot add columns 


or handle the names in any 


convenient 


manner. 













manipulate the data in that 
form. 

There are programs that will 
perform some of the calcula- 
tions but they require high level 
programming skills. All the data 
has to be typed into the program 
in the correct form and only 
limited answers are available. 

This does not mean that the 
computer can't be used for 
some form of data processing, 
but you will have to break the job 
up into smaller sections. 

Even prepared 4K programs 
are limited in scope. An inven- 
tory program I saw, allowed only 
100 items with cost and inven- 
tory. 

A Learning Tool 

By now it should be clear that 
what you really do with the 
Radio Shack TRS-80 is learn 
with it. It is an effective intro- 
duction to the computer. You 
will have to work at finding your 
own path into the computing 
world beyond, but help is out 
there: clubs; stores; magazines; 
night schools. Good luck! ■ 



PLAY TRUE 
CASINO CRAPS. 



mm 

INVENT A SYSTEM 

TO BEAT THE 

CASINOS 

WITHOUT LOSING 

A CENT! 



COMES COMPLETE WITH: 

Craps Table Layout 

48-page Gamblers' Booklet 

Showing Table Odds, How To Bet, etc. 

and Software Cassette. 

HERE IS SOFTWARE THAT SIMULATES 

EXACTLY THE "VEGAS CASINO 

CRAPS GAME. 



FOR TRS-80'", MODEL I, LEVEL II, 8K RAM 

PRICE COMPLETE: CASSETTE, LAYOUT, 
48-page PRINTED BOOKLET $ 1 1 95 

v* 394 Postpaid 

KARLART PUBLISHING CO., INC. 

P.O. BOX 30024 
CHICAGO, IL 60630 




Income 

With yourTRS-80 

Everyone is feeling the bite of inflation 
but some TRS-80 owners have found a 
way to ease the pain. Some are making a 
few hundred extra dollars and a few are 
making thousands of dollars in their spare 
time. Our booklet "Money Making Ideas 
for the TRS-80" is a collection of these 
money making methods, along with pro- 
gram sources, program hints, getting 
started suggestions and pit-falls to avoid. 
Send $9.95 to: 

J8lR Electronics 

P.O. Box 492 ^398 
Crystal City, MO 63019 

TRS-80 is a trademark of Ihe Radio Shack Division ot Tandy Corporation. 



HEATH H14 
TRS 80 

NO SOFTWARE 
REQUIRED 

Serial interface mounts inside and is powered by 
expansion interface. Connects at parallel printer 
port. Easy installation. May be used externally but 
requires +5 V and +/- 9 to 12 V. 

Uses printer driver in Level II ROM. No software 
driver needed in high RAM. No more software 
compatability problems. 

■ RS-232-C Interface Free for Other Uses ■ 

• Baud Rate Adjustable From 1200 to 4800 ■ 

• Handshaking Prevents Lost Characters • 

• Output Meets ElA RS-232-C • 

May be used with other serial printers which send 
Line Feed after Carriage Return. Data format is 1 
Start Bit, 8 Data Bits, 2 Stop Bits. 

— Ordering Information — 

Kit With All Parts $29.95 

Printed Circuit Board With Instructions 12.95 

Assembled A Tested With 90 Day Warranty 44.95 

Please Include $1.50 Shipping and Handling 

(NOTE: RS-232 Connector Not Supplied) 

SPEEDWAY ELECTRONICS 

1354 Auburn 

Speedway, Indiana 46224 

PHONE (317) 925 0496 

MASTER CHARGE VISA 1^275 
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America's One-Stop Computer Center 




<^23 




€l€CTRONICS, INC. 



Coll Toll-Free: USA (800) 423-5387 / ^ 
In Calif ornia: (800) 382-3651 » ?BB 

Local & Outside USR: (213) 886-9200 



"H€RD TO H€RD" 
€L€CTRONIC FOOTBALL 

Two ways lo play, against the computer or against a 
friend, and two levels of skill, semi-pro and pro. This 
versatile computerized game will provide hours ot lun 
with authentic football action. Complete offense and 
defense control, pass block, run and kick/punt. LED 
statistical display and electronic sound effects. Batteries 
not included. Wt. 10 oz. * E A OB 
Cat No. 2404 W»,T3 



N€UJDOS + TRS 80 DOS 



Contains NEWDOS. DIRCHECK, DISASSEM, EDTASM, LEVEL I in 
LEVEL II. LMOFFSET, and SUPERZAP 

NEWDOS provides fixes for many of TRS DOS 2.1's problems. Many 
enhancements to BASIC have been added, including built-in 
renumbering , some abbreviated commands, scrolling of listings up or 
down, screen printing (dumps contents of screen to printer), clears 
up keyboard bounce, direct call to DOS without leaving BASIC 
(display directory etc.), display all occurrences of variables used, 
etc. 

With NEWDOS you also get DIRCHECK, which tests and lists disk 
directories, DISASSEM. which is a disassembler, EDTASM, which 
allows you to use your Radio Shack Editor-Assembler on disk with 
disk I/O Level I in Level II allowing you to use or create Level I pro- 
grams and save or retrieve them from disk. Using LVIDSKSL, 
LMOFFSET helps save and load machine language tapes from disk 
even if in same memory as DOS. Finally, SUPERZAP, which allows 
you to display, print and modify memory or disks. Comes with over 
30 pages ot documentation and presumes ownership of TRSDOS 2.1 
and the Radio Shack Editor-Assembler. <00 

Cat No. 1549 TRS-80, Level II, 16Kw/disk +Y" 



SSM VB2 
VIDCO BOARD 

I/O controlled video interface board With a TV 
monitor, the VB2 becomes a video terminal! 
No other I/O card is required for keyboard in- 
put and video display. The cursor, linefeed, 
carriage return, backspace and clear screen 
are hardware controlled. The display is 64 X 
16, all upper case and is selectable for white- 
on-black or black-on-white. 
Produces a clear, bright display, and features 
adjustable picture size and character width. 
Circuitry is provided to drive a speaker for 
beep tone. 
Cat No. Description Price 

1438 VB2 kit $169.00 

1439 VB2 A&T $234.00 



TRS-80 CP/M 

At last, CP/M is available for the TRS-80! 
Long a standard for software development and 
interchange for all the "other" 8080/Z80 
computers on the market, CP/M will now pro- 
vide the same environment for the TRS-80. 
CP/M is a file-oriented disk operating system 
that provides a common set of utilities for pro- 
gram development and operation There are 
six built in commands plus utilities called in 
from disk. CP/M will run on a TRS-80 with as 
little as 16k of memory and one disk drive. 
Comes complete with six manuals. CP/M is a 
registered trade mark of Digital Research. 
Cat No. 1679 <lAO OR 

TRS-80 Level II 16k-w/disk *l*tT.73 



ffmm® HOM€ VIDCO SVSTCM 

The nation's best selling home entertainment center is here! Currently supports a library of 25 video 
game cartridges with over 1300 variations and options. This system comes with interchangeable joy- 
stick and paddle controllers, realistic sound effects, produces bright & crisp colors on your TV 
screen and special circuits to protect your home TV. Also includes ATARI'S "Combat" game with 108 
variations and options. 

CAT NO. DESCRIPTION WT. PRICE 

2375 ATARI Home Video System 8 lb. $183.50 

2206 Driving Controller-Pair 2 lb. $18.59 

2207 Paddle Controller-Pair 2 lb. $18.59 

2208 Joystick Controller-Pair 2 lb. $18.59 

ATARI Gome Cortridges 




, 2376 
»2377 
2378 
2379 

2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 



Space War 

Surround 

Slot Machine 

Outlaw 

Slot Racer 

Video Olympics 

Breakout 

Canyon Bomber 

Street Racer 

Homerun 

Baskatball 



$19.50 
$19.50 
$12.95 
$12.95 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 



2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2500 
2609 
2611 



Football 

Bowling 

Skydiver 

Fun With Numbers 

Brain Game 

Superman 

Casino 

Backgammon 

Video Chess 

Space Invaders 

Adventure 

Indy 500 



Game Cartridge Weight: 6 oz. 



$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$19.50 
$37.95 
$37.95 
$25.00 
$25.00 
$37.95 



MICROPOUS® DISK DRIVCS 

Imagine a5'/." floppy disk system with all the storage capacity of an 
8" floppy system, and more! 

Micropolis can give you more storage because they pack more data 
onto every disk. Ordinary 5V<" floppies provide just 35 tracks per 
drive and store 70 to 130 K bytes of data. Instead, Micropolis uses 77 
tracks-each with 16 sectors of 156 bytes to yield an incredible stor- 
age capacity of 315k bytes per drive. 

And that's not all! Reliability doesn't just happen by accident. At 
Micropolis reliability is engineered into each step of manufacturing. 
For example, most 5V« " floppy disks cut costs by using a plastic cam 
or cam follower to position the read/write head. Micropolis chose to 
use the strength and durability of an all steel cam and cam follower. 
Sure, it costs more, but it gives you more accurate tracking over a 
significantly greater lifespan which adds up to a lower cost per byte 
with use. Software from Micropolis includes a comprehensive DOS, 
(disk operating system), and disk Extended Basic designed for 
8080/Z80 microcomputer systems. The DOS is complete with an as- 
sembler, editor, file management functions and disk utilities. Micro- 
polis BASIC is a complete, powerful programming tool for developing, 
testing, executing and maintaining basic programs. 
The model 1043 MOD II is a single floppy disk with 315k bytes stor- 
age and includes the S-100 disk Controller board. If you need more 
storage, or simply want to save even more money, then order the 
model 1053 MOD II dual disk system with 630k bytes storage capa- 
city and S-100 Controller board. Micropolis DOS and disk extended 
BASIC are standard with both units. 
Cat No. Description Weight Price 

2563 Model 1043 mod II single drive 9 lbs $1145.00 

2564 Model 1053 mod II dual drive 18 lbs $1895.00 



MINI 8100 

TRS-80 to S-100 BUS RDRPTOR 

Mini size, mini price, maxi performance. A complete 
adaptor/motherboard for the TRS-80. 

Cat No. Description Price 

1905 Kit, all parts, 1 S-100 connector $115.00 

1906 A & T with 4 S-100 connectors S155.45 

1907 Kit, with S-100 size bd, plugs into mainframe $90.00 

1908 A & T as above $125.00 



SSM SB 1 

MUSIC SVNTH€SIZ€R BOARD 

• Plug compatible with the S-100 bus! <1 OO Kit 

• Software uses 4K of RAM *ITT IW 

• Uses standard ASCII notation for music encoding 

• Easy to write and correct music! 

Wave form synthesizer, designed to interface with the S-100 bus. 
Can be programmed to play a monophonic solo in an instrumental 
voice that is controlled by the software. Software includes a timer for 
definition of tempo and time signatures. Music can be heard immedi- 
ately after the notation has been typed in. Multiple cards can be used 
to produce chords and harmonies. 

Cat No. 1408 Kit with software $199.00 

Cat No. 1409 SB1 assembled and tested $279.00 

Cat No. 1410 SB1 bare board $45.00 



Leedex 
VID€0 100 12' 



MONITOR 



• Compatible with TRS-80 (no interface required) 

• Compatible with many home computers! 

Now from LEEDEX ... One of the most popular low cost, yet high res- 
olution (650 line) monitors currently available. These units compare 
favorably with monitors costing twice as much. Because of the tact 
that standard composite video input is utilized no RF modulator is 
needed. An extremely sharp and stable picture is achieved. The video 
bandwidth is 12 mhz + / - 3db with a 75 ohm input impedance. 
Cat No. 1204 Video 100 Monitor Wt. 18 lb. $139.00 

Cat No. 1937 TRS-80/Leedex cable kit Wt. 6 oz. $3.00 



16K MCMORV 
ADD-ON KIT $59.95 

Everything you need to upgrade your 
TRS-80, Apple or Exidy! An additional 
16K includes illustrated instructions, 
RAMS and preprogrammed jumpers. No 
special tools required. Wt. 4 oz. 

CAT NO DESCRIPTION 

1156 TRS 80 Keyboard Unit 

1156-A TRS-80 Exp. Inlerfacelptior to 411/79) 

1156-B TRS-80 Exp. Interlace latter 4/1/79) 

1156-C tot Apple II 

11560 lor Exidy 



CCS 7811B 

AAITHM€TIC 

PROCCSSOR 

Assembled & tested, adds advanced arith- 
metic power to your Apple II. AMD AM 9511 
based. 16 and 32 bit fixed point, 32 bit float- 
ing point operation. Float to fixed and fixed to 
float conversions. Trig and inverse functions, 
square roots, logs, exponentiation. Interrupt 
daisy chain, DMA daisy chain, and much 
more. Wt. 2 lbs 
Cat No. 1635 



$399.95 



V€RBATIM 5 V*" DISK€TT€S 

10 per box 



CAT NO 


TYPE 


DESCRIPTION 


PRICE 


1147 


52501 


Soft sector, TRS-80. etc. 


$33.00 


1148 


525-10 


10 hole, hard. Apple, 








North Star 


$33.00 


1149 


525-16 


16 hole, hard, Micropolis 


$33.00 


2330 


577-01 


Soft sector, certified 


$49.95 


2331 


577-10 


10 hole. hard, certified 


$49.95 


2332 


577-16 


16 hole, hard, certified 


$49.95 




NOVATION "CAT" 
ACOUSTIC MOD€M 
$179.00 

The first compact modem designed for the 
small computer user. Transmits data over 
standard telephone lines. Exchange data or 
program with other systems. Data transfer 
rate up to 30 char/sec. Complete and ready to 
use! Requires 110 VAC. 60 Hz 
Cat No. 1480 Wt. 3 lbs. 



DISK€TT€ DRIV€ H€AD CLCANING KIT 

Diskette drive heads need periodic maintenance to assure efficient and error-free 
operation. Unlike other peripheral devices, the read/write head(s) on diskette 
drives are extremely difficult to clean without partially disassembling the drive. 
The diskette drive head cleaning kit allows the user to clean the heads in just min- 
utes, without disassembling the drive. Available in 5V?" or 8", both single and 
double sided. Kit contains 2 cleaning diskettes, 4 oz. bottle of CS-85 cleaning 
solution and an easy pour dispenser. 
Weight 12 oz. 

CAT NO. DESCRIPTION PRICE 

2499 8" Disk Drive Cleaning Kit $30.75 

2534 5V4 " Disk Drive Cleaning Kit $30.75 



S€ND FOR FA€€ 
FIY€R,F€ATURING: 

Page after page of exciting products 
Computerized toys and games, per- 
sonal computers, disk drives, in- 
tegrated circuits, semi conductors 
Add new dimension to your Apple. 
Atari, TRS-80, etc. with our special ap- 
plication boards and comprehensive 
software library. Hundreds of pro- 
ducts available at terrific Hobbyworld 
prices. Circle our reader service 
number or write/phone for your free 
illustrated flyer today. 

HOW TO ORD€R 

Pay by check. Mastercharge. Visa, or COD. 
Charge card orders please include expiration 
date. Payment in U.S. dollars only. Order by 
phone, mail or at our retail store. MINIMUM 
ORDER $10.00 Please include phone number 
and magazine issue you are ordering Irom. 
Prices valid thru last day ol cover date. SHIP- 
PING: USA: Add $2.00 lor first 2 lbs.. 35c 
each addt'l lb lor ground For. AIR add S3 00 
first 2 lbs.. 75c each addt'l lb. FOREIGN: sur- 
face: $3.00 first 2 lbs.. 60c each add) I lb. 
AIR: $11.00 first 2 lbs.. $5 00 each addt'l lb. 
CODs: add $1.25 addt'l. Not responsible for 
typographical errors. Some items subject to 
prior sale or quantity limitations. 120 day 
guaranteed satisfaction Eiception: partially 
assembled kits 



19511 Business Center Drive Dept. V8 Northridge, Calif. 91324 



'Reader Service index — see page 194 
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TRS-80 
SERIAL I/O 

• Can input into basic 

• Can use LLIST and 
LPRINT to output, or 
output continuously • 
RS-232 compatible • 
Can be used with or 
without the expansion 
bus • On board switch 
selectable baud rates 
of 110.150,300,600, 
1200. 2400, parity or 
no parity odd or even, 
5 to 8 data bits, and 1 
or 2 stop bits. D.T.R. 
line • Requires +5, 
-12 VDC • Board only 
$19.95 Part No. 8010, 
with parts $59.95 Part 
No. 801 OA, assembled 
$79.95 Part No. 8010 
C. No connectors pro- 
vided, see below. 




EIA/BS-23S con- 
nector Part No 
OB25PS6.00.wth 
9'. 8 conductor 
cable $10.95 Part 
No DBS5P9 




COMPUCRUISE 




$1 29.95; with cruise con- 
trol $1 69.95 



PAPER TIGER 




Prints address labels, 
multicopy invoices and 
legal-size reports. Adjust 
the tractor width from 
1-3/4 to 9-1/2 inches. 
8 switch-selectable 
forms lengths. Print 6 
or 8 lines per inch. Add 
the software-selectable 
full dot plotting graphics 
option to print illustra- 
tions, block letters, 
charts, graphs. Part No. 

1621 72 $899.95 -with 
graphics option Part No. 

1 621 73 $1 099.95 



GAME PADDLES 
& SOUND 




am 

Includes: 2 game pad- 
dles, interface, soft- 
ware, speaker, power 
supply, full documen- 
tation including: sche- 
matics, theory of 
operation, and user 
guide; plus 2 games on 
cassette (Pong and 
Starship War). $79.95 
Complete Part No. 
7922C 



DIGICOM DATA 
PRODUCTS IIVC. 

Series 31 2 
Acoustic Coupler 




300 BAUD Originate, 
Part No. AC3122, 
$219.95. 300 BAUD 
Answer, Part No. 
AC3122, $219.95. 
300 BAUD Answer/Or- 
iginate, Part No. AC31 23, 
$229.95. 



IBEX 
LIGHT PEN 




Comes with Backgam- 
mon and Tic-Tac-Toe on 
tape with full documen- 
tation and program list- 
ing. Requires 9v. battery. 
Part No. IBEX $19.95 



SYSTEM 

EXPANSION 

from 

LNW Research 

• Serial RS232C/20 
mA I/O • Floppy con- 
troller • 32K bytes 
memory • Parallel print- 
er port • Dual cassette 
port • Real-time clock 

• Screen printer bus • 
Onboard power supply 

• Software compatible 

• Solder mask, silk 
screen. PC board and 
user manual, Part No. 
LNW80, $69.95. 



DISKETTES 




Box of 10, 5" $29.95, 
8" $39.95. 
Plastic box, holds 10 
diskettes, 5" - $4.50, 
8" -$6.50. 



16K RAMS 

For the Apple, 
TRS-80 or Pet $8 
each Part No. 4116/ 
2117. 



LEEDEX 
MONITOR 




12" Black and White* 
12 MHz Bandwidth 
• Handsome Plastic 
Case* $139.00 



S- 100 INTERFACE 




AN S-1 00 bus Adapter— Motherboard for the 
TRS-80. Kit, Part No. HUH81 DLXK, $295.95. 
Assembeled, Part No. HUHB1DLXA. $375.95. 



NOW! 

A FULL SUPPORT SYSTEM 

FOR TRS-80 




• 32K of RAM • EPROM firmware • Disk 
control • Data acquisition • Parallel I/O • 
Serial I/O • Plug into GPA's Motherboard. 
GPA's quality design includes • 6-44 pin edge 
connectors • +5V, -5V, +1 2V, -1 2V external 
power supply required • Active termination. 
The Motherboard, Part No. GPA80, is only 
$149.95. 

TAKE ADVANTAGE OF 

GPA-EXPANSION CARDS 

FOR THE GPA80 

Memory cards: Now with Fortran compilers 
available for your TRS-80, additional expansion 
memory is a must! Card with sockets only, Part 
No. GPA801 ,$1 1 9.95. Card with 1 6K of 41 1 6 
Dynamic Ram, Part No. GPA802, $224.95. 
Card with 32K of 41 1 6 Dynamic Ram, Part No. 
GPA803, $329.95. All cards come equipped 
with sockets to accomodate 32 K of Ram. 
EPROM firmware card. Put those valuable 
subroutines in firmware. Don't waste time 
loading and unloading tapes and disks. For 2708 
or2716EPROMS,PartNo.GPA806,$79.95. 
Serial I/O card. Here's what you've been 
asking for, a full serial terminal interface, with 
RS-232C or 20 mA. Current loop. Input/ output 
capabilities. Part No. GPA807, $79,95. 
Parallel I/O Card. Control functions in the 
outside world, monitor and store real time 
events. Two parallel output ports. Dip switches 
select ports (0-254). Part No. GPA808, 
$79.95. 



FLOPPY DISK 
STORAGE BINDERS 




Three ring binder comes 
with ten transparent plas- 
tic sleeves which accom- 
modate either twenty, 
five-inch or ten, eight-inch 
floppy disks. Binders. 10 
holders, Part No. 81 OB— 
$9.95 • Extra holders, 
Part No. 81 0—691 each. 



Three-ring binder with 
ten 5 1/4 inch jackets 
PartNo.510B-$9.95» 
Jackets only, fits stan- 
dard 3-ring binders, Part 
No. 510— 690: each. 



DIGITAL 
CASSETTE 




5 min. each side. Box 
of 10 $9.95. Part No. 
C-5. 



TRENDCOM 
PRINTER 




TRENDCOM 200, Part 
No. TRCO200 $495.95. 
Interface for TRS-80, 
Part No. T80A $49.95, 
For Apple II, Part No. 
TRCALL, $75.95. For 
PET, NO. TRCP2, 
$79.95. For Scoccerer, 
TRCSR1 $45.95. 



SARGON: A Computer 
Chess Program 

Features the complete program that won the 
1978 West Coast Computer Faire Tourna- 
ment. Part No. 00603 — TRS-80 Level II; 
Part No. 00604 — Apple II (24K). $19.95 



SPINWRITER 
MODELS 5510 and 5520 




Features— EIA RS-232C/CCITT V.24 Inter- 
face Standard • 55 Characters Per Second 
Maximum Print Rate • Impeccable Print Quality 
(OCR Quality) • Microprocessor Electronics • 
High Resolution Rotting/Graphing • Lowest 
Operating Noise Level • Self-Test Printing • 
Operator Engineered Control Panel • Prints 
Original and up to Seven Copies • NEC Informa- 
tion Systems new Model 5510 Receive Only and 
Model 5520 Keyboard Send/Receive SPIN- 
WRITER terminals are microprocessor con- 
trolled serial, impact terminals designed for 
remote printing applications where impeccable 
print quality is required. Model 5510 RO, Part 
No. NECA30759 $2795.95 • Model 5520 
KSR, Part No. NECA30762 $3095.95 



Send for FREE Catalog.. .a big self addressed envelope with 80$ postage gets it fastest! 



Tn nrrjpr- Mention part no., description, and price. In USA shipping paid by us for orders accompanied by check or money 
Ul u ' order. We accept C.O.D. orders (U.S. only) or a VISA or Master Charge no., expiration date, signature and phone 



no., shipping charges will be added. CA residents add 6.5°/o for tax. Outside USA add 1 5°/o for air mail postage 
and handling. Payment must be in U.S. dollars. Dealer inquiries invited. Prices subject to change without notice. 



Order Line: (408) 448-0800 



ELECTRONIC S YSTEMS De P t80 < P0 - Box 21638 < San Jose - CA usA95151 
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BRAND NEW* TRS-80*S 

and accessories at FANTASTIC SAVINGS 



LEVEL II 16K COMPLETE $690 *fl"RS-001XISI 

16K EXPANSION UNIT $400 (fTRS-002SISI 

32K EXPANSION UNIT $525 #TRS-003ISI 

DISK DRIVES (Specify which drive you want) 

$425 each #TRS-004ISI 

FRICTION MODEL PRINTER $870 #TRS-005SISI 



TRACTOR FED MODEL PRINTER ..$1350 #TRS-006ISI 

LINE PRINTER III (AND CABLE) $1750 ffTRS-007ISI 

MOD II 64K $3400 tfTRS-008 

MOD II 2 DISK DRIVE EXPANSION 

SYSTEM $1625#TRS-00 

*A registered trademark of Tandy Corp. 



TRS TERMS: Shipment normally within one week of receipt of your order. Microcomputer acces- 
sories may take three extra weeks to ship. Personal checks take additional two weeks to clear bank. 
ADD $2.50 PER ITEM FOR HANDLING. Everything will be sent to you with UPS freight charges COL- 
LECT. Sorry, no credit card purchases or extra discounts on TRS-80 items. 

■NOT UPGRADED USED OR RECONDITIONED LEVEL I'S WITH OLD KEYBOARDS BUT BRAND 
SPANKING NEW TRS-80'S IN FACTORY CARTONS WITH FULL FACTORY WARRANTY! COMPARE 
PRICES AND QUALITY AND ORDER FROM MOM's. 



MAIL ORDER MICROS ^, 5 s 
Dept 880 • PO Box 427 • Marlboro NH | 
03455 
Phone: [603] 924-3041* 



TRS-80 MODEL II 64K 

s 3400 00 



SEE TRS TERMS 



LEVEL II 16K 
COMPLETE 

LATEST KEYBOARD, 

FULL FACTORY WARRANTY 

in factory carton. . . 

NEW... $690.00 

ORDER *TRS-001X. . .no extra discounts. . .cashier's 
checks, personal checks, or money orders only... no 
credit cards. See TRS TERMS for details of shipping. 

FREE with any TRS-80 LEVEL II 
or ACCESSORY ORDER 

Your choice of any $7.95 Instant Software Cassette (See 
Instant Software ad for list of programs.) 



SPECIAL SUPER SAVINGS 

NO CREDIT CARD ORDERS ACCEPTED 

VERBATIM MINIDISKETTES 
FOR TRS-80, PET. APPLE, HEATH 

(Please specify which computer) fQR ^ ^ ^ (/ 

#P007XS #P015XS 

5 1 /4" 10 PACK.. .ONLY $24 8" 10 PACK ONLY $36 

Plus $2.50 shipping & handling Plus $2.50 shipping & handling 



SPECIAL SUPER SAVINGS SALE PRICES GOOD THRU COVER MONTH OF 
MAGAZINE— OTHER Prices Subject to Change Without Notice. 



* CAUTION— 
Our phone is usually answered by machine. Orders taken with credit cards. 
Questions answered by mail. Please leave your name and address clearly. 



5% EXTRA DISCOUNT— ITEMS THIS SECTION ONLY— ORDER NOW 

for orders with checks or money orders (see "TERMS" for details). Prices subject to change without notice. 



ASK MOM 

For details of October 1980 Asian 
and European Electronics Tours. 
See January Wayne Green editori- 
als in Kilobaud Microcomputing 
and 73 Magazine. Info #002 ... No 
charge. 



MAGIC LIGHT 
BULB SAVER 

If you've got a light bulb you need our 
MAGIC L.B.S. which increases the life 
expectancy of a new bulb 93 times! . . . 
and saves you 44% on energy costs. 
Regularly $2 50 . . . MOM's price is 
$1.99 each. HLS001. 



HEAD ALIGNMENT KIT 

Best cassette recorder lape head 
alignment kit available. Solves 
loading problems. «K001only 
$9.95 



TERMS: EXTRA 5% DISCOUNT ALLOWED 
ONLY ON ORDERS ACCOMPANIED BY 
CASHIERS CHECK. PERSONAL CHECK 
OR MONEY ORDER. NO C.O.D.S PLEASE. 
ADD $2.50 FOR HANDLING FOR ORDERS 
UP TO $50.00- ALL OTHERS ADD 5% (WE 
REFUND EXCESS). WE SHIP UPS OR IN- 
SURED MAIL IF POSSIBLE, WE ACCEPT 
MC, VISA OR AMEX. 



BOOK CLEARANCE 

50% OFF OR MORE! 

How To Buy And Use Minis And Micros 

(Sams-publisher) #BK 1025— was $9.95 

now $5. 
How To Program Microcomputers (Sams- 
Publisher) #BK1027— was $9.95 now 

$4.50. 
8080A Bugbook (Sams-publisher) 

#BK1 103— was $9.95 now $5. 
Understanding Microcomputers (Scelbi- 

publisher) #BK1079— was $8.30 now $4. 
Your Own Computer (Sams-publisher) 

#BK1072— was $1.95 now $1. 
Underground Buying Guide (PMS-publish- 

er) #BK1067 was $5.45 now $2.50. 
Periodical Guide 1976 (Berg-publisher) 

#BK1041— was $3 now $1.50. 
Periodical Guide 1977 (Berg-publisher) 

#BK1042— was $3 now $1.50. 
Compulator Book (Tab-publisher) #BK1012 

—was $7.95 now $4. 



CASIO'S NEW C-80 

CALCULATOR 

CHRONOGRAPH 



has lightweight attractive ruggedly 
built black plastic water-tight case 
and band, regular digital watch fea- 
tures of hours, minutes, seconds. AM; 
PM and day on display PLUS two time 
zones, calendar and a 4 function cal- 
culator! You've seen it advertised in 
the Wall Street Journal for $75... 
MOM's price is only $49.95. Hurry our 
supply is limited . . . order #PC80 now. 




SCOTT 

ADAMS 

ADVENTURES 

SPECIAL 10% OFF 
REGULAR PRICES 

(Reg $14.95) 



#1 ADVENTURELAND 

YOU U WANOER THROUGH AN EN 
CHANTED LAND ENCOUNTERING 
WILD ANIMALS AND MAGICAL 
BEINGS WHILE VOU TRY TO 
RECOVER LOST TREASURES 
Order "SAOOIT loi TRS level II I6K 
•SA00IS »oi Sorcerer 16K ksaooia 
lor Apple 24K-$13 45 each, on 

#2 PIRATE ADVENTURE 

SAIL TO TREASURE ISLAND AND 
TRY TO RECOVER LONG JOHN 
SILVER S LOST TREASURES 
Order HSA002T lor TRS Level II ISK. 
•SA002S lor Sorcerer I6K. HSA002A 
lor Apple ?4K-$I3 45 each, on 
cassene 

#3 MISSION IMPOSSIBLE 
ADVENTURE 

SAVE THE WORLD S FIRST 

AUTOMATED NUCLEAR REACTOR 

WHEN YOU COMPLETE YOUR 

MISSION 

Order HSA003T lor TRS Level II I6K 

"SA003S lor Sorcerer I6K HSA003A 

lor Apple 24K — $13 45 each on 



B4 VOODOO CASTLE 

SAVE COUNT CHISTOt-HOM THE 
riENOISH CURSF OR FOREVER BE 
OOOMED BEWARE THE VOOOOO 

Order 1SA004I tor TRS Level II 16K 

»saoo4S ioi soiceiei 16K «saoma 

Ii.i Apple 24K S13 45 each, on 

»5 THE COUNT 

LOVE AT FIRST BYTE FROM 

YOUR BIG BRASS BED IN 

1HANSYLVANIA 

Order »SA005T lor TRS Level II >6K. 

"SA005S lOl Sprrerer I6K. *SA'XI5A 

lor Apple 24K $13 45 each, on 

*6 STRANGE ODYSSEY 

YOU RE MAROONED AT THE 
GALAXY S EDGE ANO OISCOVIH 
RUINS OF AN ANCIENT ALIEN 
CIVILIZATION AND THY TO COPE 
WITH UNEARTHLY TECHNOLOGIES 
WHILE YOU AMASS FABUl OUS 
TREASURES 

Order HSA006T loi TRS Level II I6K 
■ SA006S lor Sorcerer I6K. "SA006A 
lor Apple 24K $13 45 each on 

#7 MYSTERY FUN HOUSE 

FIND YOUR WAY THROUGH THE 
STRANGEST FUN HOUSE BEFORE 
THE WEIRD PARK CLOSES 
Order HSA00M for IRS Level n I6K 
"SA007S lor Sorcerer 16K SA007A lor 
Apple 24K $13 45 each on cassene 

»8 PYRAMID OF DOOM 

AN EGYPTIAN TREASURE HUNT 
THROUGH A NEWLY UNCOVERED 
PYRAMID COMPLETE WITH AN 
CIENT CURSE 

Order HSA008T lor TRS level II I6K 
"SA008S lor Sorcerer IfiK HSAO0HA 
lor Apple 24K $13 45 each on 



If you enjoy driving, you're going to get a 
COMPUCRUISE. Once you see what it can 
do, you just won't be able to live without it. 



IB'SS 



mmmm 
w\mmm . 



COMPU 
CRUISE 

MODEL #41 

$127.95 



This gadget fits into most dashboards ... no strain even in a tiny sports car like 
the Mazda RX-7 . and once you have it, every trip is like flying a 747. The darned 
thing tells you the time, how fast you're going, how far you've been on this trip or 
Since the last regassing. how many miles per gallon you're getting, either at the ins- 
tant or the average on the trip ... or gallons per hour at the moment or for the 
trip . . . temperature outside . . inside (or coolant temperature, if you prefer) ... oh. 
it has an elapsed time for the trip, a stop watch, lap time, an alarm . . . how much fur- 
ther for your trip, how many gallons more the trip will take, how much longer for the 
trip at your present average speed . . . yes. it gives you your average speed lor the 
trip. You prefer it in metric, no strain . . . liters remaining, etc. Did we mention that it 
also has cruise control either at a speed set on the control board or at whatever 
speed you are traveling? The Compucruise will keep you busy and entertained dur- 
ing any trip . telling you more than you will ever want to know. 

The Compucruise is not difficult to install . . , though it does connect to everything 
except the cigarette lighter. Until you've tried computerized travel, you haven't found 
out how much fun driving can be. It will work on any car not having fuel 
injection , . and there is a front-wheel drive accessory gadget available for only 
$4.40-#P001 (regularly $5.50). 

The price for the Compucruise is regularly $199.95 ... and a bargain at that price. 
We'll sell you one of these fantastic gadgets for $159.95 with cruise control (Model 
44#P002). and $127.95 without (Model 41-#P003).Send money ... and start having 
fun! 



*- Reader Service index — see page 194 
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. . . We have them AH! 

All the Disks and Printers 
that interface to the TRS-80 



CENTRONICS 
PRINTERS 



Disk Drive for the 
TRS-80® 

Save over $100 

on Radio Shack Price 

Percom, Lobo, Vista 

Full compatible with expansion 
interface and TRSDOS software. 



OUR 
PRICE 



$369 



NEW Digital Innovations 

Drive — complete w/case and 

P.S. Your choice of Shugart or 

MPI (40 track) drive 

A 

Fantastic 

Value 



$349 



2-Drive Cable $24.95 

4-Drive Cable $34.95 

(Add $6 for shipping and insurance) 



CORVUS 10 megabyte hard 
disk for Mod. I or II 

ONLY $4795 



ESCON CONVERSION 
FOR IBM SELECTRIC 

Complete w/microprocessor controller and 
power supply. Factory built. User installs 
solenoid assembly or it can be done at Escon 
factory at nominal cost. 

Parallel version /TRS-80, $575 Only $514 
TRS-80 Cable (specify Mod I or II) $25 

(Add $6 for shipping) 



PERCOM 

ELECTRIC CRAYON 

List $249 95 O N L Y $229 . 95 




RADIO 
SHACK® H 
TRS-80® 

with standard m$3&s!i*^l±±. .... __ k- 11 

Radio Shack warranty 
through Radio Shack stores. 

10% Off on Mod I and Mod If 

Mod I, 4K, List $499 OUR PRICE $449 

Mod I Level 2, 16K, List $849 764 

Mod II w/64K, List $3899 3499 

Expansion-Interface with RAM. $269 





Text Quality 
' Parallel 
List $995 ONLY 

NEW 730 w/friction and tractor . . ONLY $679t 

779 (TRS-80 Line Prtr. I), List $1245 949* 

779 w/tractor, List $1350 1049* 

702 120 cps, bi-directional, tractor, VFU 1995 

703 180 cps, bi-directional, tractor, VFU . 2395 

*same as Line Printer I tsame as Line Prtr. II 
(Shipping for 730 and 737 $7.50. Other models 
shipped freight collect) 



NEC SPINWRITER 



TM 



Paper Tiger, ust $995 $895 

w/graphics option, incl. buffer, $1194 . . $989 

TRS-80 cable $ 45 

(Add $7.50 for shipping and insurance.) 

OKIDATA PRINTER 

MICROLIJME 80 

9x7 dot matrix, 6 or 8 lines per inch, prints 132 
columns using compressed print. Prints block 
formatted graphics as displayed by TRS-80, 
u/lc, friction feed (prints from roll) or will feed 
standard 9%" pin-feed fanfold paper. Uses 
Centronics style parallel interface; plug com- 
patible with all TRS-80's. List $949. 




A fantastic 55 cps letter-quality printer 
A fantastic value . . .Call for Price! 



I I'OlU w/serial/parallel 
forms Line Printer III). 
List $1940 (shipped freight col. 



interf. (outper- 

) $1735 




CP/M® OPERATING SYSTEM 

for Mod I CP/M 1.4, List $145 $129 

for Mod II CP/M 2.2, List $170 $149 

Shipping $2.50 

Complete line of CP/M software available 

at discount prices — Call us! 



OUR PRICE <RAQ 

only ?o4y 

Adjustable Tractor Feed Option $99 

Printers for TRS-80 require Level II machines. Printer cables extra. Call for price and order number. 



T PIVl — a disk operating system which 
runs CP/M compatible programs, written 
specifically for Z80 based systems — more 
efficient and less expensive than CP/M ' 
List $79.95 - specify Mod I or Mod II 

our price $59.95 



Prices in this ad are for prepaid orders. Charge cards and C.O.D. 2% higher. Deposit may be required with C.O.D. All prices subject to change and offers 
subject to withdrawal without notice. Radio Shack and TRS-80 are trademarks of the Tandy Corporation. CP/M is a trademark of Digital Research. 

- WRITE FOR FREE CATALOG - 

MiniMicroMart, Incl 

1618 James Street, Syracuse, NY 13203 (315)422-4467 TWX 710-541-0431 
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bookshelf 



2 new books from the editors 
of Kit & oO iUiri'oc oni|Mit inif 



• 40 COMPUTER GAMES— BK7381 — Forty games in all in nine 
different categories. Games for large and small systems, and 
even a section on calculator games. Many versions of BASIC 
used and a wide variety of systems represented. A must for the 
serious computer gamesman. $7.95* 



• UNDERSTANDING AND PROGRAMMING MICROCOMPUTERS -BK7382-A valuable 
addition to your computing library. This two part text includes the best articles that have ap- 
peared in 73 and Kilobaud Microcomputing magazines on the hardware and software 
aspects of the new microcomputing hobby. Well known authors and well structured text 
helps the reader get involved in America's fastest growing hobby. $10.95* 





INTRODUCTORY 



• HOBBY COMPUTERS ARE HERE! — BK7322— If you (or a friend) want to 
come up to speed on how computers work . . . hardware and software . . . 
this is an excellent book. It starts with the fundamentals and explains the 
circuits, and the basics of programming. This book has the highest recom- 
mendations as a teaching aid for newcomers. $4.95.* 

• THE NEW HOBBY COMPUTERS— BK7340— This book takes it from 
where "HOBBY COMPUTERS ARE HERE!" leaves off, with chapters on 
Large Scale Integration, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O for a computer, computer arithmetic, 
checking memory boards . . . and much, much more! Don't miss this tremen- 
dous value! Only $4.95.* 



INTRODUCTION TO MICROCOMPUTERS (VOL. 0^111) 




• AN INTRODUCTION TO MICROCOMPUTERS, VOL. 0- 

BK1130 — The Beginner's Book — Written for readers who know 
nothing about computers — for those who have an interest in 
how to use computers -and for everyone else who must live 
with computers and should know a little about them. The first in 
a series of 4 volumes, this book will explain how computers 
work and what they can do. Computers have become an in- 
tegral part of life and society. During any given day you are af- 
fected by computers, so start learning more about them with 
Volume 0. $7.95.* 




• VOL. I- BK1030-2nd Edition completely revised. Dedicated 
to the basic concepts of microcomputers and hardware theory. 
The purpose of Volume I is to give you a thorough understand- 
ing of what microcomputers are. From basic concepts (which 
are covered in detail), Volume I builds the necessary compo- 
nents of a microcomputer system. This book highlights the dif- 
ference between minicomputers and microcomputers. $12.50.* 

• VOL. II - BK1040 (with binder) - $30.00* - Contains descrip- 
tions of individual microprocessors and support devices used 
only with the parent microprocessor. Volume II describes all 
available chips. 

• VOL. Ill — BK1133 (with binder)-$20.00.* Contains descrip- 
tions of all support devices that can be used with any micropro- 
cessor. 



• HOW TO BUILD A MICROCOMPUTER - AND REALLY UNDERSTAND IT - BK7325 - by 
Sam Creason. The electronics hobbyist who wants to build his own microcomputer 
system now has a practical "How-To" guidebook. This book is a combination technical 
manual and programming guide that takes the hobbyist step-by-step through the design, 
construction, testing and debugging of a complete microcomputer system. Must reading 
for anyone desiring a true understanding of small computer systems. $9.95.* 

• TOOLS & TECHNIQUES FOR ELECTRONICS- BK7348- is an easy-to-understand 
book written for the beginning kit builder as well as the experienced hobbyist. It has 
numerous pictures and descriptions of the safe and correct ways to use basic and spe- 
cialized tools for electronic projects as well as specialized metal working tools and the 
chemical aids which are used in repair shops. $4.95.* 



•Use the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 80 Microcomputing Bookshelf* Peterborough 

NH 03458. Be sure to include check or detailed credit card information. No C.O.D. orders accepted. All above add $ 1 .00 handling. Please allow 4-6 weeks 

for delivery. Questions regarding your order? Please write Customer Service at the above address. 
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Z80 BOOKS 



• TRS-80 DISK AND OTHER MYSTERIES- BK1181 -by Harvard C. Penning- 
ton. This is the definitive work on the TRS-80 disk system. It is full of detailed 
"How to" information with examples, samples and in-depth explanations 
suitable for beginners and professionals alike. The recovery of one lost file is 
worth the price alone. $22.50.* 

• PROGRAMMING THE Z-80- BK1 122- by Rodnay Zaks. Here is assembly 
language programming for the Z-80 presented as a progressive, step-by-step 
course. This book is both an educational text and a self-contained reference 
book, useful to both the beginning and the experienced programmer who wish 
to learn about the Z-80. Exercises to test the reader are included. $14.95.* 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING - BK1 177-by Lance A. 
Leventhal. This book thoroughly covers the Z80 instruction set, abounding in 
simple programming examples which illustrate software development con- 
cepts and actual assembly language usage. Features include Z80 I/O devices 
and interfacing methods, assembler conventions, and comparisons with 
8080A/8085 instruction sets and interrupt structure. $12.50.* 




• Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK - 

BK1045-by Nat Wadsworth. Scelbi's newest cookbook! This 
book contains a complete description of the powerful Z-80 in- 
struction set and a wide variety of programming information. 
Use the author's ingredients including routines, subroutines 
and short programs, choose a time-tested recipe and start 
cooking! $15.95.* 




• INTRODUCTION TO TRS-80 GRAPHICS- BK1180- by Don 
Inman. Dissatisfied with your Level I or Level II manual's 
coverage of graphics capabilities? This well-structured book 
(suitable for classroom use) is ideal for those who want to use 
all the graphics capabilities built into the TRS-80. A tutorial 
method is used with many demonstrations. It is based on the 
Level I, but all material is suitable for Level II use. $8.95.* 



BASIC 






■• 



• BASIC BASIC (2ND EDITION)- BK1026- by James S. 

Coan. This is a textbook which incorporates the learning of 
computer programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs il- 
lustrate the techniques of the BASIC language and every sec- 
tion is followed by practical problems. This second edition 
covers character string handling and the use of data files. 
$9.45.* 



• LEARNING LEVEL II — BK1175 — by David Lien. Written 
especially for the TRS-80, this book concentrates on Level II 
BASIC, exploring every important BASIC language capability. 
Updates are included for those who have studied the Level I 
User's Manual. Sections include: how to use the Editor, dual 
cassette operation, printers and peripheral devices, and the 
conversion of Level I programs to Level II. $15.95.* 

• THE BASIC HANDBOOK— BK1 174— by David Lien. This book 
is unique. It is a virtual ENCYCLOPEDIA of BASIC. While not 
favoring one computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies. If a computer 
does not possess the capabilities of a needed or specified 
word, there are often ways to accomplish the same function by 
using another word or combination of words. That's where the 
HANDBOOK comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-the-line" micro or an oversized 
monster. $14.95.* 

• MY COMPUTER LIKES ME. . .WHEN I SPEAK BASIC— 

BK1039— An introduction to BASIC. . .simple enough for kids. 
If you want to teach BASIC to anyone quickly, this is the way to 
go. $3.95.* 

• ADVANCED BASIC - BK1000- Applications, including 
strings and files, coordinate geometry, area, sequences and 
series, simulation, graphing and games. $9.65*. 

• SIXTY CHALLENGING PROBLEMS WITH BASIC SOLUTIONS 
(2nd Edition) -BK1 073 -by Donald Spencer, provides the serious 
student of BASIC programming with interesting problems and 
solutions. No knowledge of math above algebra required. Includes 
a number of game programs, as well as programs for financial in- 
terest, conversions and numeric manipulations. $6.95.* 



'Use the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough 

NH 03458. Be sure to include check or detailed credit card information. No CO.D. orders accepted. All above add S 1 .00 handling. Please allow 4-6 weeks 

for delivery. Questions regarding your order? Please write Customer Service at the above address. 



FOR TOLL FREE ORDERING CALL 1*800-258-5473 
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GAMES 



• MORE BASIC COMPUTER GAMES- BK1182-edited by 
David H. Ahl. More fun in BASIC! 84 new games from the people 
who brought you BASIC Computer Games. Includes such 

\ favorites as Minotaur (battle the mythical beast) and Eliza 
unload your troubles on the doctor at bargain rates). Complete 
with game description, listing and sample run. $7.50.* 

• WHAT TO DO AFTER YOU HIT RETURN - BK1071 -PCC's 

first book of computer games ... 48 different computer games 
you can play in BASIC . . . programs, descriptions, many illus- 
trations. Lunar Landing, Hammurabi, King, Civel 2, Qubic 5, 
Taxman, Star Trek, Crash, Market, etc. $10.95.* 

• BASIC COMPUTER GAMES- BK1074- Okay, so once you 
get your computer and are running in BASIC, then what? Then 
you need some programs in BASIC, that's what. This book has 
101 games for you from very simple to real buggers. You get the 
games, a description of the games, the listing to put in your 
computer and a sample run to show you how they work. Fun. 
Any one game will be worth more than the price of the book for 
the fun you and your family will have with it. $7.50.* 



MONEY-MAKING 



• HOW TO MAKE MONEY WITH COMPUTERS- BK1003- In 

10 information-packed chapters, Jerry Felsen describes more 
than 30 computer-related, money-making, high profit, low 
capital investment opportunities. $15.00.* 

• HOW TO SELL ANYTHING TO ANYBODY- BK7306- Ac- 
cording to The Guinness Book of World Records, the author, 
Joe Girard, is "the world's greatest salesman." This book 
reveals how he made a fortune -and how you can, too. $2.25.* 

• FREELANCE SOFTWARE PUBLISHING - BK1 179- by B.J. 

Korites. "This book is about money and how to make it by 
writing and selling computer programs," (author's foreword). If 
you have the skills to write a saleable program, you now need to 
acquire the skills to sell that program. This compact book com- 
prehensively covers the entire publishing process and many 
aspects of software salesmanship. $14.95.* 

• THE INCREDIBLE SECRET MONEY MACHINE- BK1178-by Don Lancaster. A dif- 
ferent kind of "cookbook" from Don Lancaster. Want to slash taxes? Get free vacations? 
Win at investments? Make money from something that you like to do? You'll find this 
book essential to give you the key insider details of what is really involved in starting up 
your own money machine. $5.95.* 





BUSINESS 



• PAYROLL WITH COST ACCOUNTING -IN BASIC- BK1001 -by L Poole & M. 
Borchers, includes program listings with remarks, descriptions, discussions of 
the principle behind each program, file layouts, and a complete user's manual with 
step-by-step instructions, flowcharts, and simple reports and CRT displays. Pay- 
roll and cost accounting features include separate payrolls for up to 10 com- 
panies, time-tested interactive data entry, easy correction of data entry errors, job 
costing (labor of distribution), check printing with full deduction and pay detail, 
and 16 different printed reports, including W-2 and 941 (in CBASIC). $20.00.* 

• SOME COMMON BASIC PROGRAMS— BK1053-published by Adam Osborne & 
Associates, Inc. Perfect for non-technical computerists requiring ready-to-use pro- 
grams. Business programs, plus miscellaneous programs. Invaluable for the user 
who is not an experienced programmer. All will operate in the stand-alone mode. 
$12.50 paperback.* 

• PIMS: PERSONAL INFORMATION MANAGEMENT SYSTEM - BK1 009- Learn 
how to unleash the power of a personal computer for your own benefit in this 
ready-to-use data-base management program. $11.95.* 



*(Jse the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough 

NH 03458. Be sure to include check or detailed credit card information. No C.O.D. orders accepted. All above add SI. 00 handling. Please allow 4-6 weeks 

for delivery. Questions regarding your order? Please write Customer Service at the above address. 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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75 Godbout 173 

218 Good-Lyddon Data Systems 142 

270 Mark Gordon Computers 153, 168 

317 Hanson House 134 

313 Harris Data Systems 150 

383 Heath Company 11 

23 Hobby World Electronics 187 

13 Houston Micro-Computer Tech., Inc 53 

103 Howe Software 147 

37 IJG Inc 88, 89 

301 Information Technology Systems 151 

300 Information Technology Systems 106 

2 Instant Software 34, 35, 176, 177 

378 Integrated Service Systems, Inc 179 

246 Interface, Inc 142 

319 Interface Technology 74 

287 Interlude 15 

187 International Software Assoc 141 

315 JLS 162 

249 JMSCorp 185 

190 JPC Products 57 

398 J & R Electronics 186 

193 Joe Computer 155 

293 Johnson Associates 182 

226 Johnson Data 74 

353 Kalglo Electronics Co., Inc 134 

394 Karlart Publishing Co., Inc 186 

184 Key Systems, Inc 37, 38 

* Kilobaud Microcomputing 168 

149 Kogyosha Company 169 

53 LNW Research '. 97 

14 Level IV Products, Inc 120 

15 Lobo Drives International Cov. Ill 

180 MPSSoftware 40 

95 Andrew Machen 159 

318 Maco Manufacturing 134 

59 Magnetic Media Distributors 135 

87 Management Systems Software 175 

90 Manhattan Software, Inc 61 

179 Manhattan Software, Inc 38 

16 Matchless Systems 159 

128 Med Systems Software 183 

104 Mercer Systems, Inc 157 

20 Meta Technologies Corp 6, 7 

405 Meta Technologies Corp 4 

54 Micro Architect 97 

379 Micro-Design 169 

89 Micro Learningware 183 

72 Micro Management Systems, Inc 41 

68 Micro Matrix 141 

309 Micro Mega 49 

29 Micro Mega 78 

310 Micro Mint 163 

384 Micro Systems Software Inc 71 

28 Microcomputer Tech., Inc 39, 112, 113 

360 Microtek 27 

* Micron, Inc 185 

112 Miller Microcomputer Services 183 

24 Mini Micro Mart, Inc 190 

221 MISOSYS 142 

158 MOM'S 189 

324 BrittMonk 143 

285 Mullen Computer Products 73 

144 Mumford Micro Systems 99 

142 National Tricor, Inc 155 

216 National Tricor, Inc 174 

323 New Wave Electronics, Inc 115 

116 Newby Software Development Co 183 

74 Northeast Microware 161 

177 Occupational Computing Co 37 

389 Omega Sales 63 
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178" Omni Automation 40 

296 Orange Micro 171 

108 Orthon Computer 183 

96 PCD Systems 157 

370 Pacific Exchanges 163 

228 Palomar Software 147 

64 Pan American Electronics 172 

207 Pensadyne Computer Services 117 

258 Percom Data Company 58 

408-411 Percom Data Company 3 

1 Percom Data Company Cov. II 

171 Percom Data Company 38 

43 The Peripheral People 162 

393 Personal Computing 80 125 

325 Personal Microcomputer, Inc 37 

17 The Program Store/Realsoft 91 

21 Programma International 1 1 1 

364 The Programmers Guild 179 

395 QC Microsystems 67 

269 Quant Systems 117 

41 Racet Computes 94 

166 Radio Shack (TX) 40 

400 Radio Shack Dealer (MA) 142 

406 Rand Labs 131 

241 Rational Software 49 

372 Realty Software Co 134 

70 Remsoft Inc 185 

276 Richcraft Engineering Ltd 163 

162 Rochester Data, Inc 38 

191 Rondure Company 143 

271 S-C Computer Technology 183 

244 SJW, Inc 165 

* S & M Systems, Inc 85, 147 

291 Scientific Engineering Lab 143 

290 Semi-Soft 155 

297 Service Technologies, Inc 183 

255 Michael Shrayer Software, Inc 149 

413 Simplesoft-DBM 61 

67 Sirius Systems 127 

402 Slectronics 145 

30 Small System Software 151 

232 Snapp, Inc 51 

356 Software Affairs 48 

399 Software Efficiency 163 

176 Software Engineering System, Inc 37 

42 Software Etc 9 

284 Software Exchange 1 15 

286 The Software Mart 22, 23 

277 Solutions 80 157, 183 

316 Southeastern Software 61 

373 Southern Innovative Design (SID) 29 

275 Speedway Electronics 186 

82 Sturdivant & Dunn, Inc 126 

267 Suma Microware 74 

217 Sumware 162 

403 Superior Software 157 

* Synergistic Solar, Inc 163 

358 Syracuse R&D Center 115 

148 TabSalesCo 143 

380 Taitronics Enterprises 173 

45 Taranto & Associates 75 

147 Task Computer Applications 150 

376 Think Tank Labs 157 

303 Tora Systems Limited 173 

385 Trimm Enclosure Products 95 

84 Ultimate Computer Systems 49 

292 Universal Interface 123 

31 V R Data Corp 179 

1 1 1 Vern Street Products 106 

27 Web Associates 72, 77 

314 Williams Enterprises 161 

355 Zocchi Distributors 185 

163 Zoom 38 
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Selling Lobo Drives Disk 

Memory Systems makes 

a lot of 'cents'. 



Yes, becoming a LOBO DRIVES Dealer can make a 
lot of sense. For one thing, the demand for disk drive 
memory systems is growing . . . and will continue to 
grow for the next several years. Let LOBO DRIVES 
help you get your share of this expanding market. 

• DEALER DISCOUNTS- LOBO offers a discount 
schedule that lets you increase your profitability. 

• DEALER SUPPORT- LOBO backs its dealers 
with leads generated by national advertising; 
local, regional, and national trade shows; special 
promotions; outstanding documentation; quick 
response to phone calls; and delivering a quality 
product at a fair price, on time. 

• 1 YEAR WARRANTY- LOBO is so confident in 
the quality of its drives, it offers your customers a 
1 year 1 00% parts/labor warranty. How's that for 
a selling point? 

• LARGE FAMILY OF PRODUCTS-Only 

LOBO offers you a large selection of 
5.25- and 8-inch floppy disk drives, 
and Winchester hard disk drives 
forTRS-80, APPLE and S-1 00 
bus computers. 



• TECHNOLOGY LEADERSHIP- All LOBO prod- 
ucts represent the latest in the state-of-the-art 
technology. When there is something new in disk 
drive technology, LOBO will be the first to have it. 

USING LOBO DRIVES MAKES 
GOOD SENSE.. .SELLING LOBO 
DRIVES MAKES MORE... 

Call or write today for your dealer information kit. 



'4fc>, 
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935Camino Del Sur 
Goleta, California 9301 7 
(805) 685-4546 

"CAN YOU REALLY AFFORD 
TO PAY LESS?" 



INTERNATIONAL IUHAYLt&&r 

THS-80 « a registered trademark o» Radio Shack, a Tandy Company. 
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STARTER KIT 



EXATRON STRINGY FLOPPY FOR THE TRS-80 

Recommended initial purchase: 

Exatron Stringy Floppy S249.50 

3 Wafers each: 5', 10', 20', 50' 40.00 

Bus Extender, 2-for-1 15.00 

ESF Machine Language Monitor 9.95 

Wafer Organizer 5.00 



SPECIAL PRICE FOR THIS STARTER KIT 
Sales Tax (California only) 
Shipping and Handling 



S299.50 



5.50 



S3 19.45 



TOTAL 



For more information see the current Exatron Stringy Floppy Owners Association Newsletter in Microcomputing. 

Stringy Floppy is a trademark of Exatron Corporation. 
HOT LINE (For Calls Outside CAI 800-538-8559 



If you have any questions about the product, about Exatron, or 
ESFOA, please call the Hot Line. Address letters to ESFOA, 3559 
Ryder St., Santa Clara, CA 95051. 




^3 



excellence in electronics 



exatron 

3555 Ryder Street - Santa Clara, California 95051 
(408) 737-7111 



